squelch diagnostics when optional modules fail to load

rcaputo · Jul 2, 2001 · 8fc2911 · 8fc2911
1 parent 4ad1135
commit 8fc2911
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/00_coverage.t b/tests/00_coverage.t
@@ -12,7 +12,9 @@ use TestSetup;
 
 sub load_optional_module {
   my ($test_number, $module) = @_;
+  stderr_pause();
   eval "package Test::Number_$test_number; use $module";
+  stderr_resume();
   my $reason = $@;
   $reason =~ s/[\x0a\x0d]+/ \/ /g;
   $reason =~ tr[ ][ ]s;