diff -uNr PostScript-0.06/TextBlock.pm PostScript-0.06-fixed/TextBlock.pm
--- PostScript-0.06/TextBlock.pm	1999-08-11 09:04:36.000000000 -0500
+++ PostScript-0.06-fixed/TextBlock.pm	2015-01-05 19:10:09.853126398 -0600
@@ -54,7 +54,7 @@
     # Returns the number of elements in the TextBlock
     #
     my $self = shift;
-    return $#{@$self}+1;
+    return scalar(@$self);
 }
 
 sub Write {