Changeset 10212 for trunk/gsdl/perllib/util.pm

Timestamp:

2005-07-05T15:57:24+12:00 (19 years ago)

Author:

davidb

Message:

Introduction of envvar_append() to append items into an environment variable
such as PATH in a platform independent way. It is assumed the variable
passed in (typically representing a filename) is already OS compliant
(i.e. has used filename_cat() to construct it).

File:

• trunk/gsdl/perllib/util.pm (modified) (1 diff)

trunk/gsdl/perllib/util.pm

@@ -537 +537 @@
 
 
+sub envvar_prepend {
+    my ($var,$val) = @_;
+
+    my $current_val = $ENV{$var};
+    
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    $ENV{$var} .= "$val;$current_val";
+    }
+    else {
+    $ENV{$var} .= "$val:$current_val";
+    }
+}
+
+sub envvar_append {
+    my ($var,$val) = @_;
+
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    $ENV{$var} .= ";$val";
+    }
+    else {
+    $ENV{$var} .= ":$val";
+    }
+}
+
+
 # returns the path of a file without the filename -- ie. the directory the file is in
 sub filename_head {