| 120 |
my @e; |
my @e; |
| 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->{value} if defined $ent->{value}; |
$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}; |
| 168 |
${test_dir_name}ns-attrs-1.dat |
${test_dir_name}ns-attrs-1.dat |
| 169 |
${test_dir_name}doctypes-1.dat |
${test_dir_name}doctypes-1.dat |
| 170 |
${test_dir_name}doctypes-2.dat |
${test_dir_name}doctypes-2.dat |
| 171 |
|
${test_dir_name}eldecls-1.dat |
| 172 |
${test_dir_name}attlists-1.dat |
${test_dir_name}attlists-1.dat |
|
${test_dir_name}notations-1.dat |
|
| 173 |
${test_dir_name}entities-1.dat |
${test_dir_name}entities-1.dat |
| 174 |
${test_dir_name}entities-2.dat |
${test_dir_name}entities-2.dat |
| 175 |
|
${test_dir_name}notations-1.dat |
| 176 |
|
${test_dir_name}entrefs-1.dat |
| 177 |
|
${test_dir_name}entrefs-2.dat |
| 178 |
]; |
]; |
| 179 |
|
|
| 180 |
require 't/testfiles.pl'; |
require 't/testfiles.pl'; |
Parent Directory
| 
Revision Log
| 
Patch