diff options
| author | Solar Designer <solar@openwall.com> | 2004-01-26 04:22:18 +0300 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-01 17:40:02 +0000 |
| commit | 2359510ddb135dcc6e80153f51cff0a97b20b597 (patch) | |
| tree | b074c5df813a1e3e529f0330620b456ecc4988e6 /ext/Devel | |
| parent | a95a5f75a0e72874474834cd9e274afa0f23b6d8 (diff) | |
| download | perl-2359510ddb135dcc6e80153f51cff0a97b20b597.tar.gz | |
Re: [perl #15063] /tmp issues
Message-ID: <20040125222218.GA13499@openwall.com>
Remove insecure usage of /tmp from code and documentation
p4raw-id: //depot/perl@22258
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm index 45a34b667b..e97311bd71 100644 --- a/ext/Devel/PPPort/PPPort.pm +++ b/ext/Devel/PPPort/PPPort.pm @@ -349,13 +349,13 @@ foreach $filename (map(glob($_),@ARGV)) { } if ($changes) { - open(OUT,">/tmp/ppport.h.$$"); + open(OUT,"ppport.h.$$"); print OUT $c; close(OUT); - open(DIFF, "diff -u $filename /tmp/ppport.h.$$|"); - while (<DIFF>) { s!/tmp/ppport\.h\.$$!$filename.patched!; print STDOUT; } + open(DIFF, "diff -u $filename ppport.h.$$|"); + while (<DIFF>) { s!ppport\.h\.$$!$filename.patched!; print STDOUT; } close(DIFF); - unlink("/tmp/ppport.h.$$"); + unlink("ppport.h.$$"); } else { print "Looks OK\n"; } |