diff options
| -rw-r--r-- | doc/HISTORY | 6 | ||||
| -rwxr-xr-x | editor/pnmquant | 4 |
2 files changed, 6 insertions, 4 deletions
diff --git a/doc/HISTORY b/doc/HISTORY index 0042c114..0b43eb5a 100644 --- a/doc/HISTORY +++ b/doc/HISTORY @@ -7,8 +7,10 @@ CHANGE HISTORY not yet BJH Release 10.56.00 pnmtopng: fix bug: with -alpha specifying a mask which contains - no fully transparent area, output PNG is fully opaque. Broken - in 10.29. + no fully transparent area, output PNG is fully opaque. + Introduced in 10.29. + + pnmquant: work with older Perl that doesn't have 3-argument open. 11.06.29 BJH Release 10.55.00 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); |