- Arch::parse(): don't hang on unbalanced quotes

diff --git a/Build/Arch.pm b/Build/Arch.pm
index a01a70c..8e561c3 100644 (file)
--- a/Build/Arch.pm
+++ b/Build/Arch.pm
@@ -26,7 +26,7 @@ sub unquotesplit {
   $str =~ s/^[ \t]+//;
   while ($str =~ /([\"\'])/) {
     my $q = $1;
-    $str =~ s/$q(.*?)$q/quote($1, $q, $vars)/e;
+    last unless $str =~ s/$q(.*?)$q/quote($1, $q, $vars)/e;
   }
   if ($str =~ /\$/) {
     $str =~ s/\$([a-zA-Z0-9_]+|\{([^\}]+)\})/$vars->{$2 || $1} ? join(' ', @{$vars->{$2 || $1}}) : "\$$1"/ge;