}
SKIP: {
- eval { require B; 1 } or skip "no B", 12;
+ eval { require B; 1 } or skip "no B", 18;
*b = \&B::svref_2object;
my $CVf_ANON = B::CVf_ANON();
TODO: {
local $TODO = "anon CVs not accounted for yet";
- my @results = split "\n", runperl
+ my @results = split "\n", runperl(
switches => [ "-MB", "-l" ],
- stderr => 1,
prog => q{
my $sub = do {
package four;
print $st eq q/__ANON__/ ? q/ok/ : q/not ok/;
print q/done/;
- };
+ },
+ ($^O eq 'VMS') ? (stderr => 1) : ()
+ );
ok( @results == 5 && $results[4] eq "done",
"anon CVs in undefed stash don't segfault" )