From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 5 May 2002 07:50:53 +0000 (+0000)
Subject: p4genpatch: current directory may not be writable, so don't
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d7ecf559b96045e46d06fc0db835f68131c173e;p=p5sagit%2Fp5-mst-13.2.git

p4genpatch: current directory may not be writable, so don't
create temp files there

p4raw-id: //depot/perl@16413
---

diff --git a/Porting/p4genpatch b/Porting/p4genpatch
index fd744af..f9a1f4d 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;