45 lines
1.1 KiB
Text
45 lines
1.1 KiB
Text
--- 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 = "-";
|
|
}
|