# 
# 
# 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 ####