1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
--- 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 = "-";
}
|
