1 files changed, 1 insertions, 1 deletions
diff --git a/psresize2.pl b/psresize2.pl
index ba92bf0..fc88ee4 100755
--- a/psresize2.pl
+++ b/psresize2.pl
@@ -464,7 +464,7 @@ sub round {
 # In-place convert the given length to PostScript points
 #
 sub topoints {
-    my $l = $_;
+    my $l = $_[0];
     return unless defined $$l;
  
     $$l =~ /^([+-]?\d*\.?\d+)(\w*)$/  or  die "Unable to parse `$$l'";