From d9bd7570d07a93026a3147971c8e34be6c1c6c86 Mon Sep 17 00:00:00 2001 From: Simon Ruderich Date: Thu, 22 Mar 2012 00:20:08 +0100 Subject: [PATCH] Don't split on ; in quotes. --- Build.PL | 1 + bin/blhc | 7 +++++-- t/logs/bad-multiline | 3 +++ t/logs/good-multiline | 3 +++ t/tests.t | 2 ++ 5 files changed, 14 insertions(+), 2 deletions(-) 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 /(?