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

Diff of /markup/html/whatpm/t/XML-Parser.t

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

revision 1.13 by wakaba, Sun Oct 19 06:14:57 2008 UTC revision 1.14 by wakaba, Sun Oct 19 07:19:00 2008 UTC
# Line 121  sub test ($) { Line 121  sub test ($) {
121      for (keys %{$p->{ge}}) {      for (keys %{$p->{ge}}) {
122        my $ent = $p->{ge}->{$_};        my $ent = $p->{ge}->{$_};
123        my $v = '<!ENTITY ' . $ent->{name} . ' "';        my $v = '<!ENTITY ' . $ent->{name} . ' "';
124        $v .= $ent->{text} if defined $ent->{text};        $v .= $ent->{value} if defined $ent->{value};
125        $v .= '" "';        $v .= '" "';
126        $v .= $ent->{pubid} if defined $ent->{pubid};        $v .= $ent->{pubid} if defined $ent->{pubid};
127        $v .= '" "';        $v .= '" "';
# Line 133  sub test ($) { Line 133  sub test ($) {
133      }      }
134      for (keys %{$p->{pe}}) {      for (keys %{$p->{pe}}) {
135        my $ent = $p->{pe}->{$_};        my $ent = $p->{pe}->{$_};
136        my $v = '<!ENTITY % ' . $ent->{name} . ' "';        my $v = '<!ENTITY % ' . $ent->{name} . ' "';
137        $v .= $ent->{text} if defined $ent->{text};        $v .= $ent->{value} if defined $ent->{value};
138        $v .= '" "';        $v .= '" "';
139        $v .= $ent->{pubid} if defined $ent->{pubid};        $v .= $ent->{pubid} if defined $ent->{pubid};
140        $v .= '" "';        $v .= '" "';
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24