Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37045511
en ru br
Репозитории ALT
S:10.85.04-alt2
5.1: 10.35.32-alt1.M51.1
4.1: 10.35.32-alt1.M41.1
4.0: 10.35.32-alt1.M40.1
3.0: 10.26.4-alt1
www.altlinux.org/Changes

Группа :: Графика
Пакет: netpbm

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: netpbm-10.33-alt-ppmrainbow-tmp.patch
Скачать


--- a/generator/ppmrainbow	2010-02-12 23:20:41 +0300
+++ b/generator/ppmrainbow	2010-02-13 18:30:55 +0300
@@ -4,8 +4,6 @@
 
 my ($FALSE, $TRUE) = (0,1);
 
-(my $myname = $0) =~ s#\A.*/##;
-
 sub fatal($) {
     my ($msg) = @_;
 
@@ -18,7 +16,6 @@
 # set defaults
 $Twid = 600;
 $Thgt = 8;
-$tmpdir = $ENV{"TMPDIR"} || "/tmp";
 $norepeat = $FALSE;
 $verbose = $FALSE;
 
@@ -47,7 +44,9 @@
     push @colorlist, $ARGV[0];
 }
 
-my $tmpprefix = $tmpdir . "/$myname.$$.";
+use File::Temp qw(tempdir);
+use sigtrap qw(die normal-signals);
+$tmpdir = tempdir("ppmrainbow.XXXXXXXX", TMPDIR => 1, CLEANUP => 1);
 
 my $widthRemaining;
 my $n;
@@ -58,7 +57,7 @@
 @outlist = ();
 
 while (@colorlist >= 2) {
-    my $outfile = sprintf("%s%03u.ppm", $tmpprefix, $n);
+    my $outfile = sprintf("%s/%s%03u.ppm", $tmpdir, $n);
     push(@outlist, $outfile);
 
     my $w = int(($widthRemaining-1)/(@colorlist-1))+1;
@@ -76,7 +75,3 @@
     or exit 1;
 
 exit 0;
-
-END {
-    unlink @outlist if @outlist;
-}
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin