From c078a9cef896eefd722dd64b75baab87cf7cb7a2 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Thu, 25 Sep 2014 16:24:23 -0500
Subject: [PATCH] Replaced split with a single regex

---
 src/tools/expandVars.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/tools/expandVars.pl b/src/tools/expandVars.pl
index 4e81ac4e4..76e35e259 100644
--- a/src/tools/expandVars.pl
+++ b/src/tools/expandVars.pl
@@ -49,9 +49,9 @@ expandRelease(\%vars);
 $vars{'ARCH'} = $opt_a if $opt_a;
 
 while ($_ = shift @opt_D) {
-    my ($var, $val) = split(/=/, $_, 2);
-    $vars{$var} = $val;
-    print "$var = $val\n" if $opt_d;
+    m/^ (\w+) \s* = \s* (.*) $/x;
+    $vars{$1} = $2;
+    print "$1 = $2\n" if $opt_d;
 }
 
 # Do it!