[Swift-commit] r7427 - trunk/bin

[davidk at ci.uchicago.edu]

Author: davidk
Date: 2013-12-13 14:50:59 -0600 (Fri, 13 Dec 2013)
New Revision: 7427

Modified:
   trunk/bin/swiftrun
Log:
lc


Modified: trunk/bin/swiftrun
===================================================================
--- trunk/bin/swiftrun	2013-12-13 20:50:37 UTC (rev 7426)
+++ trunk/bin/swiftrun	2013-12-13 20:50:59 UTC (rev 7427)
@@ -126,8 +126,7 @@
 
    # In the case of a shortened definition, check for aliases 
    if ( !defined( $property ) ) {
-      if ( defined( $xml_aliases{ lc( $namespace )})) { 
-         $namespace=lc($namespace);
+      if ( defined( $xml_aliases{ $namespace })) { 
 
          # Values that need that may need modifications
          if( $namespace eq "jobwalltime" ) {
@@ -405,6 +404,7 @@
             $_ =~ s/^\s+//;               
             if( /^}/ ) { last; } 
             my ($key, $value) = split('=', ($prefix . ".$_"), 2);
+            $key = lc($key);
             if($key eq "sites") { $key = "site"; }
             $value =~ s/\$(\w+)/$ENV{$1}/g;
             $properties{ $key } = $value;
@@ -413,6 +413,7 @@
 
       else {
          my ($key, $value) = split('=', $_, 2);
+         $key = lc($key);
          if($key eq "sites") { $key = "site"; }
          if(defined($key) && defined($value) && length($key) && length($value)) {
             $value =~ s/\$(\w+)/$ENV{$1}/g; # Substitute environment variables