[Module-build-checkins] Module-Build/t xs.t,1.14.2.1,1.14.2.2

[Randy W. S. <si...@us...>]

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