Changeset 36282

Timestamp:

2022-07-04T12:14:49+12:00 (22 months ago)

Author:

kjdon

Message:

print out a message if the file to source is not found, also use -e for file exists, rather than exists, for the string is defined. exit if its not found - this makes sense for the situation I am testing, hope it makes sense everywhere...

File:

• main/trunk/gs-release-builder/envi/lib/util.pl (modified) (3 diffs)

main/trunk/gs-release-builder/envi/lib/util.pl

@@ -1 +1 @@
 use File::Basename;
+
 
 #envi messages
@@ -218 +219 @@
             my ($name, $value) = split(/=/,$line,2);
             if ( $name !~ /^\_/ ) {
-                $ENV{$name} = $value;
+                $ENV{$name} = $value;
             }
         } elsif ( $line eq "-- ENVIRONMENT \"$rnd\" --" ) {
@@ -228 +229 @@
 
 sub source_bash_script {
-    if ( ! exists $_[0] ) { return; }
+    if ( ! -e $_[0] ) { print "Script $_[0] not found\n"; exit; }
     source_script("bash","$_[0]");
 }
 
 sub source_batch_script {
-    if ( ! exists $_[0] ) { return; }
+    if ( ! -e $_[0] ) { print "Script $_[0] not found\n";  exit; }
     source_script("bat","$_[0]");
 }