Changeset 1660 in ProjectBuilder for devel

Timestamp:

Oct 21, 2012, 2:27:22 PM (12 years ago)

Author:

Bruno Cornec

Message:

• In debug mode, do not erase the temporary dir created to ease analysis

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (2 diffs)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -406 +406 @@
 
 sub pb_temp_init {
+
+my $cleanup = 1;
 
 if (not defined $ENV{'TMPDIR'}) {
@@ -431 +433 @@
     pb_mkdir_p("$ENV{'TMPDIR'}/$template");
 } else {
-    $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => 1 );
+    $cleanup = 0 if ($pbdebug >= 1);
+    $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => $cleanup );
 }
 }