Changeset 31971

Show
Ignore:
Timestamp:
15.09.2017 20:51:38 (2 years ago)
Author:
ak19
Message:

Emacs tabbing

Files:
1 modified

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    }