Fix with perl 5.20+.

Sponsored by: Absolight
2015-02-17 16:05:02 +00:00
parent 1aee8666e8
commit 4a3f1a86d7
2 changed files with 12 additions and 1 deletions
--- a/print/p5-PostScript/Makefile
+++ b/print/p5-PostScript/Makefile
@@ -3,7 +3,7 @@

 PORTNAME=	PostScript
 PORTVERSION=	0.06
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	print perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
--- a/print/p5-PostScript/files/patch-TextBlock.pm
+++ b/print/p5-PostScript/files/patch-TextBlock.pm
@@ -0,0 +1,11 @@
+--- TextBlock.pm.orig	1999-08-11 14:04:36 UTC
+++ TextBlock.pm
+@@ -54,7 +54,7 @@ sub numElements {
+     # Returns the number of elements in the TextBlock
+     #
+     my $self = shift;
+-    return $#{@$self}+1;
+    return scalar(@$self);
+ }
+ 
+ sub Write {