Ignore:
Timestamp:
07/13/10 13:42:11 (11 years ago)
Author:
davidb
Message:

Extra check added to avoid appending/prepending an environment variable when it does not exist yet

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/util.pm

    r22119 r22386  
    754754    my $escaped_val = $val;
    755755    $escaped_val =~ s/\\/\\\\/g; # escape any Windows backslashes for upcoming regex
    756     if($ENV{$var} !~ m/$escaped_val/) {
     756    if (!defined($ENV{$var})) {
     757        $ENV{$var} = "$val";
     758    }
     759    elsif($ENV{$var} !~ m/$escaped_val/) {
    757760        $ENV{$var} = "$val;".$ENV{$var};
    758761    }
    759762    }
    760763    else {
    761     if($ENV{$var} !~ m/$val/) {
     764    if (!defined($ENV{$var})) {
     765        $ENV{$var} = "$val";
     766    }
     767    elsif($ENV{$var} !~ m/$val/) {
    762768        $ENV{$var} = "$val:".$ENV{$var};
    763769    }
     
    773779    my $escaped_val = $val;
    774780    $escaped_val =~ s/\\/\\\\/g; # escape any Windows backslashes for upcoming regex
    775     if($ENV{$var} !~ m/$escaped_val/) {
     781    if (!defined($ENV{$var})) {
     782        $ENV{$var} = "$val";
     783    }
     784    elsif($ENV{$var} !~ m/$escaped_val/) {
    776785        $ENV{$var} .= ";$val";
    777786    }
    778787    }
    779788    else {
    780     if($ENV{$var} !~ m/$val/) {
     789    if (!defined($ENV{$var})) {
     790        $ENV{$var} = "$val";
     791    }
     792    elsif($ENV{$var} !~ m/$val/) {
    781793        $ENV{$var} .= ":$val";
    782794    }
Note: See TracChangeset for help on using the changeset viewer.