Only the key for %ENV, but not for %CONFIG, needs to be modified

diff --git a/bin/xen-create-image b/bin/xen-create-image
index 6417a5b1253161c8a3783a360d3833b98ced26cd..b1ac0fa429e119a86c82fdf572a3b596179027c7 100755 (executable)
--- a/bin/xen-create-image
+++ b/bin/xen-create-image
@@ -3529,10 +3529,11 @@ sub exportEnvironment
 
     foreach my $key ( keys %CONFIG )
     {
-        $key =~ s/-/_/g;
         if ( defined( $CONFIG{ $key } ) )
         {
-            $ENV{ $key } = $CONFIG{ $key };
+            my $envkey = $key;
+            $envkey =~ s/-/_/g;
+            $ENV{ $envkey } = $CONFIG{ $key };
         }
     }
 }