diff options
author | giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8> | 2009-12-10 03:08:53 +0000 |
---|---|---|
committer | giraffedata <giraffedata@9d0c8265-081b-0410-96cb-a4ca84ce46f8> | 2009-12-10 03:08:53 +0000 |
commit | 9f0ff62ea7e084be7167a2bd4f177bf9dfbfaaf2 (patch) | |
tree | 8bc8cd807329b5fdd80e3b92f75de670728668af /generator/ppmrainbow | |
parent | 43939e66b1d4eeb2f3799c124f3598756755005a (diff) | |
download | netpbm-mirror-9f0ff62ea7e084be7167a2bd4f177bf9dfbfaaf2.tar.gz netpbm-mirror-9f0ff62ea7e084be7167a2bd4f177bf9dfbfaaf2.tar.xz netpbm-mirror-9f0ff62ea7e084be7167a2bd4f177bf9dfbfaaf2.zip |
Release 10.47.05
git-svn-id: http://svn.code.sf.net/p/netpbm/code/stable@1045 9d0c8265-081b-0410-96cb-a4ca84ce46f8
Diffstat (limited to 'generator/ppmrainbow')
-rwxr-xr-x | generator/ppmrainbow | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/generator/ppmrainbow b/generator/ppmrainbow index f98536cd..96e304ac 100755 --- a/generator/ppmrainbow +++ b/generator/ppmrainbow @@ -47,7 +47,10 @@ if (!$norepeat) { push @colorlist, $ARGV[0]; } -my $tmpprefix = $tmpdir . "/$myname.$$."; +my $ourtmp = "$tmpdir/ppmrainbow$$"; +mkdir($ourtmp, 0777) or + die("Unable to create directory for temporary files '$ourtmp"); + my $widthRemaining; my $n; @@ -58,7 +61,7 @@ $widthRemaining = $Twid; @outlist = (); while (@colorlist >= 2) { - my $outfile = sprintf("%s%03u.ppm", $tmpprefix, $n); + my $outfile = sprintf("%s/file.%03u.ppm", $ourtmp, $n); push(@outlist, $outfile); my $w = int(($widthRemaining-1)/(@colorlist-1))+1; @@ -78,5 +81,10 @@ while (@colorlist >= 2) { exit 0; END { - unlink @outlist if @outlist; + if (@outlist) { + unlink(@outlist); + } + if (defined($ourtmp)) { + rmdir($ourtmp); + } } |