From: Simon Ruderich Date: Wed, 21 Mar 2012 23:20:08 +0000 (+0100) Subject: Don't split on ; in quotes. X-Git-Tag: 0.01~80 X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=d9bd7570d07a93026a3147971c8e34be6c1c6c86;p=blhc%2Fblhc.git Don't split on ; in quotes. --- diff --git a/Build.PL b/Build.PL index 3edcfb8..051de84 100644 --- a/Build.PL +++ b/Build.PL @@ -35,6 +35,7 @@ my $build = Module::Build->new( 'Getopt::Long' => 0, 'Pod::Usage' => 0, 'Term::ANSIColor' => 0, + 'Text::ParseWords' => 0, }, ); $build->create_build_script; diff --git a/bin/blhc b/bin/blhc index 3d5f73c..e183027 100755 --- a/bin/blhc +++ b/bin/blhc @@ -23,6 +23,7 @@ use warnings; use Getopt::Long (); use Term::ANSIColor (); +use Text::ParseWords (); our $VERSION = '0.01'; @@ -393,8 +394,10 @@ while (my $line = <>) { my $non_verbose = is_non_verbose_build($line); # One line may contain multiple commands (";"). Treat each one as single - # line. - my @line = split /(?