1#!./perl -w 2 3BEGIN { 4 unshift @INC, 't'; 5 require Config; 6 if ( ( $Config::Config{'extensions'} !~ /\bB\b/ ) ) { 7 print "1..0 # Skip -- Perl configured without B module\n"; 8 exit 0; 9 } 10 require 'test.pl'; 11} 12plan 1; 13 14# RT #126410 = used to coredump when doing SvSTASH on %version:: 15 16TODO: { 17 fresh_perl_is( 18 'use B; version->new("v5.22.0"); $s = B::svref_2object(\%version::); $s->SvSTASH; print "ok\n"', 19 "ok\n", { stderr => 1 }, 'RT #126410 - SvSTASH against %version::' 20 ); 21} 22