[Module-build-checkins] [svn:Module-Build] r5880 - Module-Build/trunk/lib/Module/Build

[<kwi...@cv...>]

Author: kwilliams
Date: Sun Apr  9 10:08:56 2006
New Revision: 5880

Modified:
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
The syntax open(FH, "-|", @cmd) causes a compile-time syntax error on
5.005, so protect it.


Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm	(original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm	Sun Apr  9 10:08:56 2006
@@ -346,7 +346,8 @@
   my ($self, @cmd) = @_;
   if ($self->have_multiarg_pipeopen) {
     local *FH;
-    open FH, "-|", @cmd or die "Can't run @cmd: $!";
+    unshift @cmd, "-|";
+    open FH, @cmd or die "Can't run @cmd: $!";
     return wantarray ? <FH> : join '', <FH>;
   } else {
     my $cmd = $self->_quote_args(@cmd);