# New Ticket Created by "Mr. Nobody"
# Please include the string: [perl #15925]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=15925 >
The command.com shell in windows 9x dosen't recognize
2>&1 so it messes up Configure when it starts checking
pointer alignment, this patch fixes it on windows 9x
but it dosen't take out the stderr redirection on
shells that support it.
--- lib/Parrot/Configure/Step.bak Thu Jul 18 16:59:04
2002
+++ lib/Parrot/Configure/Step.pm Thu Aug 1 09:51:54
2002
@@ -16,6 +16,7 @@
gen => ['genfile']
);
+my $redir_err = ($ENV{COMSPEC} =~ /command\.com/i) ?
"" : "2>&1";
#Configure::Data->get('key')
#Configure::Data->set('key', 'value')
@@ -71,9 +72,9 @@
my($cc, $ccflags, $ldout, $o, $ld, $ldflags,
$cc_exe_out, $exe, $libs)=
Configure::Data->get( qw(cc ccflags ld_out o ld
ldflags cc_exe_out exe libs) );
- system("$cc $ccflags -I./include -c test.c >test.cco
2>&1") and die "C compiler failed (see test.cco)";
+ system("$cc $ccflags -I./include -c test.c >test.cco
$redir_err") and die "C compiler failed (see
test.cco)";
- system("$ld $ldflags test$o ${cc_exe_out}test$exe
$libs >test.ldo 2>&1") and die "Linker failed (see
test.ldo)";
+ system("$ld $ldflags test$o ${cc_exe_out}test$exe
$libs >test.ldo $redir_err") and die "Linker failed
(see test.ldo)";
}
sub cc_run {
@@ -89,10 +90,10 @@
sub cc_run_capture {
my $exe=Configure::Data->get('exe');
if (defined($_[0]) && length($_[0])) {
- `./test$exe $_[0] 2>&1`;
+ `./test$exe $_[0] $redir_err`;
}
else {
- `./test$exe 2>&1`;
+ `./test$exe $redir_err`;
}
}
__________________________________________________
Do You Yahoo!?
Yahoo! Health - Feel better, live better
http://health.yahoo.com
