diff options
author | Jun Kuriyama <kuriyama@FreeBSD.org> | 2004-11-05 06:09:52 +0000 |
---|---|---|
committer | Jun Kuriyama <kuriyama@FreeBSD.org> | 2004-11-05 06:09:52 +0000 |
commit | b1918b5320f4c734397f78f3c7c05e12fd2590a0 (patch) | |
tree | e2df22e39fac79325f0a5b662eba450b2ff65b60 /japanese/p5-PDFJ/files | |
parent | 35971f2a2ec4f3b0509ce1bacf5d2a4e5402e04e (diff) | |
download | ports-b1918b5320f4c734397f78f3c7c05e12fd2590a0.tar.gz ports-b1918b5320f4c734397f78f3c7c05e12fd2590a0.zip |
Upgrade to 0.81.
Requested by: nork
Notes
Notes:
svn path=/head/; revision=120834
Diffstat (limited to 'japanese/p5-PDFJ/files')
-rw-r--r-- | japanese/p5-PDFJ/files/patch-PDFJ.pm | 62 |
1 files changed, 3 insertions, 59 deletions
diff --git a/japanese/p5-PDFJ/files/patch-PDFJ.pm b/japanese/p5-PDFJ/files/patch-PDFJ.pm index f881034daa36..8fd167cc91e0 100644 --- a/japanese/p5-PDFJ/files/patch-PDFJ.pm +++ b/japanese/p5-PDFJ/files/patch-PDFJ.pm @@ -1,36 +1,6 @@ ---- PDFJ.pm.orig Mon Nov 3 17:20:56 2003 -+++ PDFJ.pm Mon Nov 3 17:55:17 2003 -@@ -1801,9 +1801,9 @@ - } - my $self; - if( @args == 1 ) { -- if( !ref($args[0]) ) { -+ if( $args[0] and !ref($args[0]) ) { - $self = PDFJ::Util::strstyle2hashref($args[0]); -- } elsif( ref($args[0]) eq 'HASH' || ref($args[0]) eq $class ) { -+ } elsif( $args[0] and (ref($args[0]) eq 'HASH' || ref($args[0]) eq $class) ) { - %$self = %{$args[0]}; - } else { - croak "illegal $class->new() argument"; -@@ -1811,7 +1811,7 @@ - } else { - %$self = @args; - } -- if( %$self == 1 && $self->{style} ) { -+ if( keys %$self == 1 && $self->{style} ) { - $self = $class->new($self->{style}); - } - for my $key(keys %$self) { -@@ -1843,7 +1843,7 @@ - } else { - %args = @args; - } -- if( %args == 1 && $args{style} ) { -+ if( keys %args == 1 && $args{style} ) { - $clone = $self->clone($args{style}); - } else { - $clone = $self->new(%$self); -@@ -3234,7 +3234,7 @@ +--- PDFJ.pm.orig Thu Oct 28 18:02:55 2004 ++++ PDFJ.pm Fri Nov 5 14:59:35 2004 +@@ -3750,7 +3750,7 @@ my($self, $str) = @_; my $style = $self->style; my $result = []; @@ -39,29 +9,3 @@ for( my $j = 0; $j <= $#c; $j++ ) { my $c = $c[$j]; if( $c ge "\x81" && $c le "\x9f" || $c ge "\xe0" && $c le "\xfc" ) { -@@ -4166,7 +4166,6 @@ - sub new1 { - my($class, $value) - = PDFJ::Util::methodargs([qw(value)], @_); -- my $class = shift; - my $self; - if( ref($value) eq 'ARRAY' ) { - $self = bless { type => 'rgb', value => $value }, $class; -@@ -4487,7 +4486,7 @@ - my($self, $x, $y, $w, $h, $style) - = PDFJ::Util::methodargs([qw(x y w h style)], @_); - $style = PDFJ::ShapeStyle->new($style) -- if !ref($style) || ref($style) eq 'HASH'; -+ if ($style and (!ref($style) || ref($style) eq 'HASH')); - my @stylepdf; - @stylepdf = $style->pdf if $style; - my($x1, $y1, $x2, $y2) = ($x, $y, $x + $w, $y + $h); -@@ -4528,7 +4527,7 @@ - = PDFJ::Util::methodargs([qw(x y w h spec style)], @_); - $spec = "s" unless $spec; - $style = PDFJ::ShapeStyle->new($style) -- if !ref($style) || ref($style) eq 'HASH'; -+ if ($style and (!ref($style) || ref($style) eq 'HASH')); - my @stylepdf; - @stylepdf = $style->pdf if $style; - my($r); |