From 4a3f1a86d7dd247f43a1e013c9a0e34a2ccadd8b Mon Sep 17 00:00:00 2001
From: Mathieu Arnold <mat@FreeBSD.org>
Date: Tue, 17 Feb 2015 16:05:02 +0000
Subject: Fix with perl 5.20+.

Sponsored by:	Absolight
---
 print/p5-PostScript/Makefile                 |  2 +-
 print/p5-PostScript/files/patch-TextBlock.pm | 11 +++++++++++
 2 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 print/p5-PostScript/files/patch-TextBlock.pm

(limited to 'print/p5-PostScript')

diff --git a/print/p5-PostScript/Makefile b/print/p5-PostScript/Makefile
index 64ad3f52bf46..9f1e12caedd1 100644
--- 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-
diff --git a/print/p5-PostScript/files/patch-TextBlock.pm b/print/p5-PostScript/files/patch-TextBlock.pm
new file mode 100644
index 000000000000..0c4edd6d175e
--- /dev/null
+++ 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 {
-- 
cgit v1.2.3