Changeset 1663 in ProjectBuilder

Timestamp:

Oct 22, 2012, 5:00:50 AM (11 years ago)

Author:

Bruno Cornec

Message:

• Small improvement to pb_exit

File:

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

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

@@ -348 +348 @@
 }
 
+=item B<pb_exit>
+
+Fundtion to call before exiting pb so cleanup is done
+
+=cut
+
+sub pb_exit {
+
+my $ret = shift || 0;
+pb_log(0,"Please remove manually $ENV{'PBTMP'} after debug analysis\n") if ($pbdebug > 1);
+exit($ret);
+}
+
 =item B<pb_syntax_init>
 
@@ -407 +420 @@
 
 sub pb_temp_init {
-
-my $cleanup = 1;
 
 if (not defined $ENV{'TMPDIR'}) {
@@ -434 +445 @@
     pb_mkdir_p("$ENV{'TMPDIR'}/$template");
 } else {
-    $cleanup = 0 if ($pbdebug gt 1);
-    $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => $cleanup );
+    if ($pbdebug > 1) {
+        $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'});
+        pb_log(2,"DEBUG: Creating a non-volatile temporary directory ($ENV{'PBTMP'})\n");
+    } else {
+        $ENV{'PBTMP'} = tempdir( "pb.XXXXXXXXXX", DIR => $ENV{'TMPDIR'}, CLEANUP => 1 );
+    }
 }
 }
@@ -559 +574 @@
 }
 
-
-=item B<pb_exit>
-
-Fundtion to call before exiting pb so cleanup is done
-
-=cut
-
-sub pb_exit {
-
-my $ret = shift || 0;
-pb_log(0,"Please remove manually $ENV{'PBTMP'} after debug analysis\n" if ($pbdebug gt 1);
-exit($ret);
-}
-
 =back