dinislage/cpanspec
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Send STDIN to /dev/null in the child when executing Makefile.PL. (Bug report from Peter Willis.)

Browse Source
This commit is contained in:
stevenpritchard committed 2008-06-23 23:55:11 +00:00
1 parent fc9af6c480
commit ba39225a62
2 files changed
+4 -1
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Changes
+2
View File
@@ -1,6 +1,8 @@
1.78 1.78
* Fix up the license list some more. * Fix up the license list some more.
* Send STDIN to /dev/null in the child when executing Makefile.PL.
(Bug report from Peter Willis.)
1.77 2008-06-16 1.77 2008-06-16
cpanspec
+2 -1
View File
@@ -10,7 +10,7 @@
# but WITHOUT ANY WARRANTY; without even the implied warranty of # but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# #
# $Id: cpanspec,v 1.63 2008/06/17 20:47:40 stevenpritchard Exp $ # $Id: cpanspec,v 1.64 2008/06/23 23:55:11 stevenpritchard Exp $
our $NAME="cpanspec"; our $NAME="cpanspec";
our $VERSION='1.78'; our $VERSION='1.78';
@@ -918,6 +918,7 @@ for my $file (@args) {
my $makefilepl=extract($archive, $type, "$path/Makefile.PL") my $makefilepl=extract($archive, $type, "$path/Makefile.PL")
or warn "Failed to extract $path/Makefile.PL"; or warn "Failed to extract $path/Makefile.PL";
open(STDIN, ">/dev/null");
open(STDERR, ">/dev/null"); open(STDERR, ">/dev/null");
eval "no warnings; eval "no warnings;
use subs qw(require die warn eval open close rename); use subs qw(require die warn eval open close rename);