cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upgrade to 0.81.

Browse Source 
Requested by:	nork
This commit is contained in:
Jun Kuriyama 2004-11-05 06:09:52 +00:00
parent 35971f2a2e
commit b1918b5320
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=120834
4 changed files with 8 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
japanese/p5-PDFJ/Makefile
View File

@ -6,7 +6,7 @@
#
PORTNAME= PDFJ
PORTVERSION= 0.71
PORTVERSION= 0.81
CATEGORIES= japanese perl5
MASTER_SITES= http://hp1.jonex.ne.jp/%7Enakajima.yasushi/archives/

4
japanese/p5-PDFJ/distinfo
View File

@ -1,2 +1,2 @@
MD5 (PDFJ-0.71.zip) = 4de974317e91297af70152bf3878efd6
SIZE (PDFJ-0.71.zip) = 677672
MD5 (PDFJ-0.81.zip) = cf679512ecd828840ee4a754fada6fc7
SIZE (PDFJ-0.81.zip) = 1503771

62
japanese/p5-PDFJ/files/patch-PDFJ.pm
View File

@ -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);

2
japanese/p5-PDFJ/pkg-plist
View File

@ -2,7 +2,9 @@
%%SITE_PERL%%/PDFJ/E2U.pm
%%SITE_PERL%%/PDFJ/Object.pm
%%SITE_PERL%%/PDFJ/S2U.pm
%%SITE_PERL%%/PDFJ/Shape.pm
%%SITE_PERL%%/PDFJ/TTF.pm
%%SITE_PERL%%/PDFJ/Type1.pm
%%SITE_PERL%%/PDFJ/U2C.pm
%%SITE_PERL%%/PDFJ/Unicode.pm
%%SITE_PERL%%/XPDFJ.pm