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/files/patch-TextBlock.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 print/p5-PostScript/files/patch-TextBlock.pm

(limited to 'print/p5-PostScript/files/patch-TextBlock.pm')

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