Attachment 155988 Details for Bug 242228 – fix insecure tmp use + add shebang

[patch] fix insecure tmp use + add shebang

ps2eps-1.64-fix_tmp.patch (text/plain), 1.44 KB, created by Patrice Dumas on 2007-06-02 16:54:49 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Patrice Dumas

Created: 2007-06-02 16:54:49 UTC

Size: 1.44 KB

patch

obsolete

>--- ps2eps/bin/ps2eps.fix_tmp	2007-06-02 18:14:46.000000000 +0200
>+++ ps2eps/bin/ps2eps	2007-06-02 18:40:55.000000000 +0200
>@@ -1,5 +1,4 @@
>-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' # -*-perl-*-
>-        if 0;
>+#! /usr/bin/perl
> # The expression in the previous line replaces the unix specific line 
> # {#!/usr/bin/perl}.   
> # ps2eps - convert PostScript to EPS (Encapsulated PostScript) files
>@@ -36,6 +35,7 @@ eval '(exit $?0)' && eval 'exec perl -S 
> #         for calculation of the actual BoundingBox)
> 
> use POSIX;
>+use File::Temp qw/ tempfile /;
> 
> #use warnings;
> 
>@@ -105,29 +105,12 @@ $dummy="";
> @ver= split(/ /,$version);
> 
> # filename for temporary files
>-if ($^O =~ /MSWin32/i or $^O =~ /cygwin/i) 
>+if ($^O =~ /MSWin32/i or $^O =~ /cygwin/i or defined($ENV{'TMP'})) 
> {
>-  # it is less trouble to use the current directory if working on
>-  # cygwin and nevertheless using gswin32c.
>-  $tmpfname= "$prgname.$$";
>   $win=1;
> }
>-elsif (defined($ENV{'TMP'}))
>-{ 
>-  $tmpdir= $ENV{'TMP'};
>-  $filesep= ($tmpdir =~ /^?\:\\/) ? '\\' : '/';
>-  if ($tmpdir =~ /$filesep$/)  
>-  { $tmpfname= $tmpdir . "$prgname.$$"; }
>-  else 
>-  { $tmpfname= $tmpdir . "$filesep$prgname.$$"; }
>-  $win=1;
>-}
>-else #assume we're on a UNIXBOX
>-{ 
>-  $tmpfname= "/tmp/" . "$prgname.$$";
>-  $win=0;
>-}
> 
>+($fh, $tmpfname) = tempfile(UNLINK => 1);
> 
> $licensetxt= "\
>     This program is free software; you can redistribute it and/or modify\

Actions: View | Diff

Attachments on bug 242228: 155988