/[suikacvs]/markup/html/whatpm/t/CSS-Parser-1.t
Suika

Diff of /markup/html/whatpm/t/CSS-Parser-1.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by wakaba, Sun Feb 10 09:38:27 2008 UTC revision 1.20 by wakaba, Mon Feb 11 00:32:10 2008 UTC
# Line 20  for my $file_name (map {"t/$_"} qw( Line 20  for my $file_name (map {"t/$_"} qw(
20    css-1.dat    css-1.dat
21    css-2.dat    css-2.dat
22    css-3.dat    css-3.dat
23      css-4.dat
24    css-visual.dat    css-visual.dat
25    css-generated.dat    css-generated.dat
26    css-paged.dat    css-paged.dat
# Line 476  sub serialize_rule ($$) { Line 477  sub serialize_rule ($$) {
477      my $prefix = $rule->prefix;      my $prefix = $rule->prefix;
478      $v .= $prefix . ': ' if length $prefix;      $v .= $prefix . ': ' if length $prefix;
479      $v .= '<' . $rule->namespace_uri . ">\n";      $v .= '<' . $rule->namespace_uri . ">\n";
480      } elsif ($rule->type == $rule->IMPORT_RULE) {
481        $v .= '| ' . $indent . '@import <' . $rule->href . '> ' . $rule->media;
482        $v .= "\n";
483      } elsif ($rule->type == $rule->CHARSET_RULE) {
484        $v .= '| ' . $indent . '@charset ' . $rule->encoding . "\n";
485    } else {    } else {
486      die "Rule type @{[$rule->type]} is not supported";      die "Rule type @{[$rule->type]} is not supported";
487    }    }
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24