Changeset 29582 for main/trunk/greenstone2/perllib/util.pm
- Timestamp:
- 2014-12-11T15:42:41+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r29112 r29582 1348 1348 } 1349 1349 1350 my $lastkey; 1350 1351 while (defined (my $perl_output_line = <PIN>)) { 1351 1352 my($key,$value) = ($perl_output_line =~ m/^([^=]*)[=](.*)$/); 1352 #$env_map{$key}=$value; 1353 $ENV{$key}=$value; 1353 if(defined $key) { 1354 #$env_map{$key}=$value; 1355 $ENV{$key}=$value; 1356 $lastkey = $key; 1357 } elsif($lastkey && $perl_output_line !~ m/^\s*$/) { 1358 # there was no equals sign in $perl_output_line, so this 1359 # $perl_output_line may be a spillover from the previous 1360 $ENV{$lastkey} = $ENV{$lastkey}."\n".$perl_output_line; 1361 } 1354 1362 } 1355 1363 close (PIN);
Note:
See TracChangeset
for help on using the changeset viewer.