Author: kwilliams
Date: Fri Oct 6 20:07:28 2006
New Revision: 7894
Modified:
Module-Build/trunk/lib/Module/Build/Base.pm
Log:
Avoid bareword filehandle
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 Fri Oct 6 20:07:28 2006
@@ -347,7 +347,7 @@
my ($self, @cmd) = @_;
if ($self->have_forkpipe) {
local *FH;
- my $pid = open FH, "-|";
+ my $pid = open *FH, "-|";
if ($pid) {
return wantarray ? <FH> : join '', <FH>;
} else {
