Changeset 10212 for trunk/gsdl/perllib/util.pm
- Timestamp:
- 2005-07-05T15:57:24+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/util.pm
r10211 r10212 537 537 538 538 539 sub envvar_prepend { 540 my ($var,$val) = @_; 541 542 my $current_val = $ENV{$var}; 543 544 if ($ENV{'GSDLOS'} =~ /^windows$/i) { 545 $ENV{$var} .= "$val;$current_val"; 546 } 547 else { 548 $ENV{$var} .= "$val:$current_val"; 549 } 550 } 551 552 sub envvar_append { 553 my ($var,$val) = @_; 554 555 if ($ENV{'GSDLOS'} =~ /^windows$/i) { 556 $ENV{$var} .= ";$val"; 557 } 558 else { 559 $ENV{$var} .= ":$val"; 560 } 561 } 562 563 539 564 # returns the path of a file without the filename -- ie. the directory the file is in 540 565 sub filename_head {
Note:
See TracChangeset
for help on using the changeset viewer.