Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8010/t
Modified Files:
Tag: release-0_26_branch
xs.t
Log Message:
Capture shell error message when compiler is not found.
Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.14.2.1
retrieving revision 1.14.2.2
diff -u -d -r1.14.2.1 -r1.14.2.2
--- xs.t 7 Jan 2005 02:17:42 -0000 1.14.2.1
+++ xs.t 24 Mar 2005 01:48:27 -0000 1.14.2.2
@@ -6,12 +6,18 @@
use Module::Build;
use File::Spec;
-print("1..0 # Skipped: no compiler found\n"), exit(0) unless Module::Build->current->have_c_compiler;
-plan tests => 12;
-
my $common_pl = File::Spec->catfile('t', 'common.pl');
require $common_pl;
+{ local $SIG{__WARN__} = sub {};
+
+ my $have_c_compiler;
+ stderr_of( sub {$have_c_compiler = Module::Build->current->have_c_compiler} );
+ print("1..0 # Skipped: no compiler found\n"), exit(0) unless $have_c_compiler;
+}
+
+plan tests => 12;
+
######################### End of black magic.
# Pretend we're in the t/XSTest/ subdirectory
|
