Attachment 43884 Details for Bug 68046 – p5-XML-Simple-2.12.patch

[patch] p5-XML-Simple-2.12.patch

p5-XML-Simple-2.12.patch (text/plain), 3.23 KB, created by Lars Thegler on 2004-06-17 15:30:22 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Lars Thegler

Created: 2004-06-17 15:30:22 UTC

Size: 3.23 KB

patch

obsolete

>diff -ruN --exclude=CVS /usr/home/lth/cvs/ports/textproc/p5-XML-Simple.old/Makefile /usr/home/lth/cvs/ports/textproc/p5-XML-Simple/Makefile
>--- /usr/home/lth/cvs/ports/textproc/p5-XML-Simple.old/Makefile	Mon Jan  5 09:00:10 2004
>+++ /usr/home/lth/cvs/ports/textproc/p5-XML-Simple/Makefile	Thu Jun 17 15:31:29 2004
>@@ -6,7 +6,7 @@
> #
> 
> PORTNAME=	XML-Simple
>-PORTVERSION=	2.09
>+PORTVERSION=	2.12
> CATEGORIES=	textproc perl5
> MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
> MASTER_SITE_SUBDIR=	XML
>@@ -22,4 +22,12 @@
> 
> MAN3=		XML::Simple.3 XML::Simple::FAQ.3
> 
>-.include <bsd.port.mk>
>+.include <bsd.port.pre.mk>
>+.if ${PERL_LEVEL} <= 500503
>+EXTRA_PATCHES=	${PATCHDIR}/5.005_03-lib::XML::Simple.pm
>+
>+post-configure:
>+	${PERL} -pi -e 's/($POD2MAN_EXE$)/$$1 --lax/' ${WRKSRC}/Makefile
>+
>+.endif
>+.include <bsd.port.post.mk>
>diff -ruN --exclude=CVS /usr/home/lth/cvs/ports/textproc/p5-XML-Simple.old/distinfo /usr/home/lth/cvs/ports/textproc/p5-XML-Simple/distinfo
>--- /usr/home/lth/cvs/ports/textproc/p5-XML-Simple.old/distinfo	Fri Mar 19 02:51:14 2004
>+++ /usr/home/lth/cvs/ports/textproc/p5-XML-Simple/distinfo	Tue Jun 15 12:03:39 2004
>@@ -1,2 +1,2 @@
>-MD5 (XML-Simple-2.09.tar.gz) = 7138184cbfe3c1d26c98ff55690a679d
>-SIZE (XML-Simple-2.09.tar.gz) = 59459
>+MD5 (XML-Simple-2.12.tar.gz) = 001884c8f2f9ccbee61e5e72547309ad
>+SIZE (XML-Simple-2.12.tar.gz) = 65543
>diff -ruN --exclude=CVS /usr/home/lth/cvs/ports/textproc/p5-XML-Simple.old/files/5.005_03-lib::XML::Simple.pm /usr/home/lth/cvs/ports/textproc/p5-XML-Simple/files/5.005_03-lib::XML::Simple.pm
>--- /usr/home/lth/cvs/ports/textproc/p5-XML-Simple.old/files/5.005_03-lib::XML::Simple.pm	Thu Jan  1 01:00:00 1970
>+++ /usr/home/lth/cvs/ports/textproc/p5-XML-Simple/files/5.005_03-lib::XML::Simple.pm	Thu Jun 17 15:43:12 2004
>@@ -0,0 +1,41 @@
>+--- lib/XML/Simple.pm.orig	Mon Apr  5 09:12:47 2004
>++++ lib/XML/Simple.pm	Thu Jun 17 13:41:37 2004
>+@@ -331,7 +331,7 @@
>+   if($filename) {
>+     # $tree = $xp->parsefile($filename);  # Changed due to prob w/mod_perl
>+     local(*XML_FILE);
>+-    open(XML_FILE, '<', $filename) || croak qq($filename - $!);
>++    open(XML_FILE, '<'. $filename) || croak qq($filename - $!);
>+     $tree = $xp->parse(*XML_FILE);
>+     close(XML_FILE);
>+   }
>+@@ -541,9 +541,9 @@
>+     }
>+     else {
>+       local(*OUT);
>+-      open(OUT, '>', "$self->{opt}->{outputfile}") ||
>++      open(OUT, '>'. "$self->{opt}->{outputfile}") ||
>+         croak "open($self->{opt}->{outputfile}): $!";
>+-      binmode(OUT, ':utf8') if($] >= 5.008);
>++#      binmode(OUT, ':utf8') if($] >= 5.008);
>+       print OUT $xml || croak "print: $!";
>+       close(OUT);
>+     }
>+@@ -1535,7 +1535,7 @@
>+ sub numeric_escape {
>+   my($self, $data, $level) = @_;
>+ 
>+-  use utf8; # required for 5.6
>++#  use utf8; # required for 5.6
>+ 
>+   if($self->{opt}->{numericescape} eq '2') {
>+     $data =~ s/([^\x00-\x7F])/'&#' . ord($1) . ';'/gse;
>+@@ -1569,7 +1569,7 @@
>+   my @keys = $self->{opt}->{nosort} ? keys %$hashref : sort keys %$hashref;
>+   foreach $key (@keys) {
>+     $value = $hashref->{$key};
>+-    return($hashref) unless(UNIVERSAL::isa($value, 'HASH'));
>++    return($hashref) unless(UNIVERSAL::isa($value||'', 'HASH'));
>+ 
>+     if(ref($self->{opt}->{keyattr}) eq 'HASH') {
>+       return($hashref) unless(defined($self->{opt}->{keyattr}->{$parent}));

Actions: View | Diff

Attachments on bug 68046: 43884