Changeset 31971 for main/trunk/greenstone2
- Timestamp:
- 2017-09-15T20:51:38+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r31876 r31971 586 586 587 587 if (scalar(@envvars) == 0) { 588 589 590 591 592 593 594 595 596 597 598 599 600 588 #print $handle "@@@ All env vars requested\n"; 589 590 my $output = ""; 591 592 print $handle "@@@ Environment was:\n********\n"; 593 foreach my $envvar (sort keys(%ENV)) { 594 if(defined $ENV{$envvar}) { 595 print $handle "\t$envvar = $ENV{$envvar}\n"; 596 } else { 597 print $handle "\t$envvar = \n"; 598 } 599 } 600 print $handle "********\n"; 601 601 } else { 602 602 print $handle "@@@ Environment was:\n********\n"; … … 605 605 print $handle "\t$envvar = ".$ENV{$envvar}."\n"; 606 606 } else { 607 607 print $handle "Env var '$envvar' was not set\n"; 608 608 } 609 609 }
Note:
See TracChangeset
for help on using the changeset viewer.