Changeset 31971

Timestamp:

2017-09-15T20:51:38+12:00 (7 years ago)

Author:

ak19

Message:

Emacs tabbing

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/util.pm

@@ -586 +586 @@
     
     if (scalar(@envvars) == 0) {
-        #print $handle "@@@ All env vars requested\n";    
-        
-        my $output = "";
-
-        print $handle "@@@ Environment was:\n********\n";       
-        foreach my $envvar (sort keys(%ENV)) {
-            if(defined $ENV{$envvar}) {
-                print $handle "\t$envvar = $ENV{$envvar}\n";
-            } else {
-            print $handle "\t$envvar = \n";
-            }   
-        }
-        print $handle "********\n"; 
+    #print $handle "@@@ All env vars requested\n";    
+    
+    my $output = "";
+    
+    print $handle "@@@ Environment was:\n********\n";       
+    foreach my $envvar (sort keys(%ENV)) {
+        if(defined $ENV{$envvar}) {
+        print $handle "\t$envvar = $ENV{$envvar}\n";
+        } else {
+        print $handle "\t$envvar = \n";
+        }   
+    }
+    print $handle "********\n"; 
     } else {
     print $handle "@@@ Environment was:\n********\n";
@@ -605 +605 @@
         print $handle "\t$envvar = ".$ENV{$envvar}."\n";
         } else {        
-            print $handle "Env var '$envvar' was not set\n";        
+        print $handle "Env var '$envvar' was not set\n";        
         }
     }