[Module-build-checkins] Module-Build/t xs.t,1.17,1.18

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

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5963/t

Modified Files:
	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.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- xs.t	24 Mar 2005 01:16:59 -0000	1.17
+++ xs.t	24 Mar 2005 01:44:34 -0000	1.18
@@ -6,11 +6,18 @@
 use Module::Build;
 use File::Spec;
 
+my $common_pl = File::Spec->catfile('t', 'common.pl');
+require $common_pl;
+
 { local $SIG{__WARN__} = sub {};
-  if (      !Module::Build->current->feature('C_support') ) {
+
+  my $have_c_compiler;
+  stderr_of( sub {$have_c_compiler = Module::Build->current->have_c_compiler} );
+
+  if ( !Module::Build->current->feature('C_support') ) {
     print("1..0 # Skipped: C_support not enabled\n");
     exit(0);
-  } elsif ( !Module::Build->current->have_c_compiler ) {
+  } elsif ( !$have_c_compiler ) {
     print("1..0 # Skipped: C_support enabled, but no compiler found\n");
     exit(0);
   }
@@ -18,9 +25,6 @@
 
 plan tests => 12;
 
-my $common_pl = File::Spec->catfile('t', 'common.pl');
-require $common_pl;
-
 ######################### End of black magic.
 
 # Pretend we're in the t/XSTest/ subdirectory