print/p5-PostScript/files/patch-TextBlock.pm


1
2
3
4
5
6
7
8
9
10
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 {