Changeset 22386

Show
Ignore:
Timestamp:
13.07.2010 13:42:11 (9 years ago)
Author:
davidb
Message:

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

Files:
1 modified

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    }