Change 16413: p4genpatch: current directory may not be writable, so don't

[Gurusamy Sarathy]

Change 16413 by gsar@onru on 2002/05/05 07:50:53

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

Affected files ...

.... //depot/perl/Porting/p4genpatch#5 edit

Differences ...

==== //depot/perl/Porting/p4genpatch#5 (text) ====
Index: perl/Porting/p4genpatch
--- perl/Porting/p4genpatch.~1~ Sun May  5 02:00:05 2002
+++ perl/Porting/p4genpatch     Sun May  5 02:00:05 2002
@@ -50,7 +50,7 @@
 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;
End of Patch.