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.
|
