Make work with older Perl

git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@1516 9d0c8265-081b-0410-96cb-a4ca84ce46f8

1 files changed, 2 insertions, 2 deletions

diff --git a/editor/pnmquant b/editor/pnmquant
index 175f6906..5edbe85e 100755
--- a/editor/pnmquant
+++ b/editor/pnmquant
@@ -149,7 +149,7 @@ sub openSeekableAsStdin($) {
             tell(INFH);  # Avoids bogus "INFH is not referenced" warning
         }
     } else {
-        open(STDIN, "<", $infile) 
+        open(STDIN, "<$infile") 
             or die("Unable to open input file '$infile'.  Errno=$ERRNO");
     }
 }
@@ -194,7 +194,7 @@ sub makeColormap($$$$$) {
         push(@options, '-quiet');
     }
 
-    open(STDOUT, ">", $mapfileSpec);
+    open(STDOUT, ">$mapfileSpec");
 
     my $maprc = system("pnmcolormap", $ncolors, @options);