diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-05-05 07:50:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-05-05 07:50:53 +0000 |
| commit | 8d7ecf559b96045e46d06fc0db835f68131c173e (patch) | |
| tree | c35d4cb87b8ca81170c93b23b70757336daafd0f /Porting | |
| parent | 667f40eece325747f45a265a61726cf9443ad023 (diff) | |
| download | perl-8d7ecf559b96045e46d06fc0db835f68131c173e.tar.gz | |
p4genpatch: current directory may not be writable, so don't
create temp files there
p4raw-id: //depot/perl@16413
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/p4genpatch | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/p4genpatch b/Porting/p4genpatch index fd744af06a..f9a1f4dae6 100644 --- a/Porting/p4genpatch +++ b/Porting/p4genpatch @@ -50,7 +50,7 @@ close $p4; my $tempdir; print "Differences ...\n"; for my $a (@action) { - $tempdir ||= tempdir( "tmp-XXXX", CLEANUP => 1 ); + $tempdir ||= tempdir( "tmp-XXXX", CLEANUP => 1, TMPDIR => 1 ); my($action,$file,$prefix) = @$a; my($path,$basename,$number) = $file =~ m|\Q$prefix\E/(.+/)?([^/]+)#(\d+)|; die "Panic: Could not parse file[$file]" unless $number; |