# # # To apply this patch: # STEP 1: Chdir to the source directory. # STEP 2: Run the 'applypatch' program with this patch file as input. # # If you do not have 'applypatch', it is part of the 'makepatch' package # that you can fetch from the Comprehensive Perl Archive Network: # http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz # In the above URL, 'x' should be 2 or higher. # # To apply this patch without the use of 'applypatch': # STEP 1: Chdir to the source directory. # STEP 2: Run the 'patch' program with this file as input. # #### End of Preamble #### #### Patch data follows #### diff -up '../build/XML-Parser-2.34-3JtwEc/t/astress.t' 'XML-Parser-2.34/t/astress.t' Index: ./t/astress.t --- ./t/astress.t Sun Jul 27 13:13:51 2003 +++ ./t/astress.t Wed Oct 24 22:38:59 2007 @@ -257,7 +257,7 @@ if($count != 2) { } print "ok 26\n"; -if(defined(*{$xmlstring})) { +if($] >= 5.006 && defined(*{$xmlstring})) { print "not "; } print "ok 27\n"; diff -up '../build/XML-Parser-2.34-3JtwEc/t/encoding.t' 'XML-Parser-2.34/t/encoding.t' Index: ./t/encoding.t --- ./t/encoding.t Sun Jul 27 13:13:51 2003 +++ ./t/encoding.t Wed Oct 24 22:40:29 2007 @@ -22,7 +22,8 @@ my $lastel; sub text { my ($xp, $data) = @_; - push(@bytes, unpack('C*', $data)); + my $U0 = $] >= 5.006 ? 'U0' : ''; + push(@bytes, unpack($U0.'C*', $data)); } sub start { @@ -91,7 +92,7 @@ sub get_attr { %attr = @list; } -my $p = new XML::Parser(Handlers => {Start => \&get_attr}); +$p = new XML::Parser(Handlers => {Start => \&get_attr}); eval{ $p->parse($docstring) }; #### End of Patch data #### #### ApplyPatch data follows #### # Data version : 1.0 # Date generated : Wed Oct 24 22:42:48 2007 # Generated by : makepatch 2.03 # Recurse directories : Yes # Excluded files : (\A|/).*\~\Z # (\A|/).*\.a\Z # (\A|/).*\.bak\Z # (\A|/).*\.BAK\Z # (\A|/).*\.elc\Z # (\A|/).*\.exe\Z # (\A|/).*\.gz\Z # (\A|/).*\.ln\Z # (\A|/).*\.o\Z # (\A|/).*\.obj\Z # (\A|/).*\.olb\Z # (\A|/).*\.old\Z # (\A|/).*\.orig\Z # (\A|/).*\.rej\Z # (\A|/).*\.so\Z # (\A|/).*\.Z\Z # (\A|/)\.del\-.*\Z # (\A|/)\.make\.state\Z # (\A|/)\.nse_depinfo\Z # (\A|/)core\Z # (\A|/)tags\Z # (\A|/)TAGS\Z # p 't/astress.t' 4702 1193258339 0100755 # p 't/encoding.t' 2069 1193258429 0100755 #### End of ApplyPatch data #### #### End of Patch kit [created: Wed Oct 24 22:42:48 2007] #### #### Patch checksum: 71 2270 11593 #### #### Checksum: 89 2894 63114 ####