Changeset 31971 for main


Ignore:
Timestamp:
09/15/17 20:51:38 (3 years ago)
Author:
ak19
Message:

Emacs tabbing

File:
1 edited

Legend:

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

    r31876 r31971  
    586586   
    587587    if (scalar(@envvars) == 0) {
    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";
     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";
    601601    } else {
    602602    print $handle "@@@ Environment was:\n********\n";
     
    605605        print $handle "\t$envvar = ".$ENV{$envvar}."\n";
    606606        } else {       
    607             print $handle "Env var '$envvar' was not set\n";       
     607        print $handle "Env var '$envvar' was not set\n";       
    608608        }
    609609    }
Note: See TracChangeset for help on using the changeset viewer.