Changeset 2347 in ProjectBuilder for devel

Timestamp:

Jan 10, 2019, 4:30:51 PM (6 years ago)

Author:

Bruno Cornec

Message:

Exit in pb_system if PBTMP is not defined in env

File:

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

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

@@ -15 +15 @@
 use strict;
 use lib qw (lib);
-use Carp qw/confess cluck/;
+use Carp qw/confess croak/;
 use Cwd;
 use File::Path;
@@ -151 +151 @@
 pb_log(0,"$cmt... ") if ((! defined $verbose) || ($verbose ne "quiet"));
 pb_log(1,"Executing $cmd\n");
+
+croak('Please call pb_temp_init in your code before using pb_system') if (not defined "$ENV{'PBTMP'}");
 unlink("$ENV{'PBTMP'}/system.$$.log") if (-f "$ENV{'PBTMP'}/system.$$.log");
 $redir = "2>> $ENV{'PBTMP'}/system.$$.log 1>> $ENV{'PBTMP'}/system.$$.log" if ((! defined $verbose) || ($verbose ne "noredir"));