--- editor/pnmquant.DIST	Mon Dec 29 08:11:52 2003
+++ editor/pnmquant	Mon Dec 29 08:12:24 2003
@@ -20,7 +20,7 @@
 
 sub parseCommandLine(@) {
 
-    my @args = @_;
+    @ARGV = @_;
 
     my ($opt_center, $opt_meancolor, $opt_meanpixel, $opt_floyd,
         $opt_spreadbrightness, $opt_spreadluminosity, $opt_mapfile);
@@ -34,18 +34,18 @@
                             "floyd|fs!" => \$opt_floyd,
                             );
 
-    if (@args > 2) {
+    if (@ARGV > 2) {
         print(STDERR "This program takes at most 2 arguments.  You specified ",
-              0+@args, "\n");
+              0+@ARGV, "\n");
         exit(1);
     } 
-    if (@args < 1) {
+    if (@ARGV < 1) {
         print(STDERR 
               "You must specify the number of colors as an argument.\n");
         exit(1);
     }
     my $infile;
-    my $ncolors = $args[0];
+    my $ncolors = $ARGV[0];
     
     if (!($ncolors =~ m{ ^[[:digit:]]+$ }x ) || $ncolors == 0) {
         print(STDERR 
@@ -54,8 +54,8 @@
         exit(1);
     }
 
-    if (@args > 1) {
-        $infile = $args[1];
+    if (@ARGV > 1) {
+        $infile = $ARGV[1];
     } else {
         $infile = "-";
     }