Quote charmonizer ccflags arguments

Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/34dfdaf2
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/34dfdaf2
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/34dfdaf2

Branch: refs/heads/msvc6
Commit: 34dfdaf28ad6b73b4c848f835cf682fd9b73b59c
Parents: 7e7bd8f
Author: Nick Wellnhofer <[email protected]>
Authored: Sun Nov 4 15:06:04 2012 +0100
Committer: Nick Wellnhofer <[email protected]>
Committed: Sun Nov 4 15:06:04 2012 +0100

----------------------------------------------------------------------
 .../perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy/blob/34dfdaf2/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm
----------------------------------------------------------------------
diff --git a/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm 
b/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm
index 21db471..13abca9 100644
--- a/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm
+++ b/clownfish/compiler/perl/lib/Clownfish/CFC/Perl/Build/Charmonic.pm
@@ -77,7 +77,7 @@ sub ACTION_charmony {
         '--enable-perl',
         '--',
         $self->config('ccflags'),
-        @{ $self->extra_compiler_flags },
+        map { _quotify($_) } @{ $self->extra_compiler_flags },
     );
     if ( $ENV{CHARM_VALGRIND} ) {
         unshift @command, "valgrind", "--leak-check=yes";
@@ -91,7 +91,7 @@ sub _quotify {
     my $string = shift;
     $string =~ s/\\/\\\\/g;
     $string =~ s/"/\\"/g;
-    return qq|"$string"|;
+    return $string =~ /\s/ ? qq|"$string"| : $string;
 }
 
 1;

Reply via email to