diff options
author | Michael Schroeder <mls@suse.de> | 2012-10-25 16:09:22 +0200 |
---|---|---|
committer | Michael Schroeder <mls@suse.de> | 2012-10-25 16:09:22 +0200 |
commit | cca643cb1db7d887d1025da01ec42e971c5609fb (patch) | |
tree | 398048d17155635908ceffe26faa502c372b6e7d | |
parent | 7f71a696fbbb3387a339448d2a3266b901d99b36 (diff) | |
download | build-cca643cb1db7d887d1025da01ec42e971c5609fb.tar.gz build-cca643cb1db7d887d1025da01ec42e971c5609fb.tar.bz2 build-cca643cb1db7d887d1025da01ec42e971c5609fb.zip |
- Arch::parse(): don't hang on unbalanced quotes
-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; |