[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.565,1.566

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16465/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Perl's support for multi-arg open with pipes is spotty, so use a flag for it

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.565
retrieving revision 1.566
diff -u -d -r1.565 -r1.566
--- Base.pm	24 Mar 2006 23:26:41 -0000	1.565
+++ Base.pm	25 Mar 2006 04:50:16 -0000	1.566
@@ -342,7 +342,7 @@
   # don't have to worry about shell args.
 
   my ($self, @cmd) = @_;
-  if ($] >= 5.008) {
+  if ($self->have_multiarg_pipeopen) {
     local *FH;
     open FH, "-|", @cmd or die "Can't run @cmd: $!";
     return wantarray ? <FH> : join '', <FH>;
@@ -352,6 +352,7 @@
   }
 }
 
+sub have_multiarg_pipeopen { $] >= 5.008 }
 
 # Determine whether a given binary is the same as the perl
 # (configuration) that started this process.