diff options
| -rw-r--r-- | Build/Arch.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/Arch.pm b/Build/Arch.pm index a01a70c..8e561c3 100644 --- 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; |