diff options
Diffstat (limited to 'graphics/netpbm/files/patch-editor-pnmquant')
| -rw-r--r-- | graphics/netpbm/files/patch-editor-pnmquant | 32 |
1 files changed, 6 insertions, 26 deletions
diff --git a/graphics/netpbm/files/patch-editor-pnmquant b/graphics/netpbm/files/patch-editor-pnmquant index f61ca961c530..3a0f3f2579fd 100644 --- a/graphics/netpbm/files/patch-editor-pnmquant +++ b/graphics/netpbm/files/patch-editor-pnmquant @@ -1,26 +1,6 @@ ---- editor/pnmquant.orig Sun Feb 19 22:03:42 2006 -+++ editor/pnmquant Mon Feb 20 09:41:57 2006 -@@ -15,7 +15,9 @@ - use Getopt::Long; - use File::Temp "tempfile"; - #use Fcntl ":seek"; # not available in Perl 5.00503 --use Fcntl ":seek"; -+use Fcntl; -+use POSIX qw(SEEK_SET SEEK_CUR SEEK_END); -+ - - my ($TRUE, $FALSE) = (1,0); - -@@ -57,7 +59,7 @@ - my $infile; - my $ncolors = $ARGV[0]; - -- if (!($ncolors =~ m{ ^[[:digit:]]+$ }x ) || $ncolors == 0) { -+ if (!($ncolors =~ m{ ^[\d]+$ }x ) || $ncolors == 0) { - print(STDERR - "Number of colors argument '$ncolors' is not a positive " . - "integer.\n"); -@@ -116,7 +118,7 @@ +--- editor/pnmquant.orig 2006-08-19 05:12:28.000000000 +0200 ++++ editor/pnmquant 2010-05-21 10:37:10.000000000 +0200 +@@ -149,7 +149,7 @@ tell(INFH); # Avoids bogus "INFH is not referenced" warning } } else { @@ -29,12 +9,12 @@ or die("Unable to open input file '$infile'. Errno=$ERRNO"); } } -@@ -157,7 +159,7 @@ - $spreadOpt = "-spreadbrightness"; +@@ -194,7 +194,7 @@ + push(@options, '-quiet'); } - open(STDOUT, ">", $mapfileSpec); + open(STDOUT, ">" . $mapfileSpec); - my $maprc = system("pnmcolormap", $ncolors, $averageOpt, $spreadOpt); + my $maprc = system("pnmcolormap", $ncolors, @options); |