This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B:: is pre-instantiated when B is static
[perl5.git] / lib / Carp.t
index 35272e5..253baac 100644 (file)
@@ -6,6 +6,7 @@ BEGIN {
 
 use warnings;
 no warnings "once";
 
 use warnings;
 no warnings "once";
+use Config;
 
 my $Is_VMS = $^O eq 'VMS';
 
 
 my $Is_VMS = $^O eq 'VMS';
 
@@ -390,17 +391,23 @@ fresh_perl_like(
  'Carp can handle UTF8-flagged strings after a syntax error',
 );
 
  'Carp can handle UTF8-flagged strings after a syntax error',
 );
 
-fresh_perl_is(
- q<
-   use Carp;
-   $SIG{__WARN__} = sub{};
-   carp ("A duck, but which duck?");
-   print "ok" unless exists $::{"B::"};
-  >,
- 'ok',
- {},
- 'Carp does not autovivify *B::'
-);
+SKIP:
+{
+    skip("B:: always created when static", 1)
+      if $Config{static_ext} =~ /\bB\b/;
+
+    fresh_perl_is(
+     q<
+       use Carp;
+       $SIG{__WARN__} = sub{};
+       carp ("A duck, but which duck?");
+       print "ok" unless exists $::{"B::"};
+      >,
+     'ok',
+     {},
+     'Carp does not autovivify *B::'
+    );
+  }
 
 # New tests go here
 
 
 # New tests go here