diff -up netpbm-10.35.60/generator/ppmrainbow.ppmrainbowexit netpbm-10.35.60/generator/ppmrainbow --- netpbm-10.35.60/generator/ppmrainbow.ppmrainbowexit 2009-02-15 13:04:35.000000000 +0100 +++ netpbm-10.35.60/generator/ppmrainbow 2009-02-26 18:48:34.000000000 +0100 @@ -21,15 +21,16 @@ GetOptions("width=i" => \$Twid, "norepeat!" => \$norepeat, "verbose!" => \$verbose); +$! = 1; die "invalid width and/or height\n" unless $Twid >= 1 && $Thgt >= 1; my $verboseCommand = $verbose ? "set -x;" : ""; if (@ARGV < 1) { - die("You must specify at least one color as an argument"); + die("You must specify at least one color as an argument\n"); } elsif (@ARGV < 2 && $norepeat) { die("With the -norepeat option, you must specify at least two colors " . - "as arguments."); + "as arguments.\n"); } my @colorlist; @@ -57,7 +58,7 @@ while (@colorlist >= 2) { my $rc = system("$verboseCommand pgmramp -lr $w $Thgt | " . "pgmtoppm \"$colorlist[0]-$colorlist[1]\" >$outfile"); if ($rc != 0) { - die("pgmramp|pgmtoppm failed."); + die("pgmramp|pgmtoppm failed.\n"); } $widthRemaining -= $w; $n++;