This is for blead under Cygwin on Windows. While it looks like the test passes, here's the output: t/op/stash....................................................sh: line 26: 21868 Segmentation fault (core dumped) /c/_/perl_tmp/38064/perl-current/perl.exe "-I../lib" -MB -l -e ' my $sub = do { package four; sub { 1 }; }; %four:: = (); my $gv = B::svref_2object($sub)->GV; print $gv->isa(q/B::GV/) ? q/ok/ : q/not ok/; my $st = eval { $gv->STASH->NAME }; print $st eq q/__ANON__/ ? q/ok/ : q/not ok/; my $sub = do { package five; sub { 1 }; }; undef %five::; $gv = B::svref_2object($sub)->GV; print $gv->isa(q/B::GV/) ? q/ok/ : q/not ok/; $st = eval { $gv->STASH->NAME }; print $st eq q/__ANON__/ ? q/ok/ : q/not ok/; print q/done/; ' 2>&1 okThread Next