This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
1e12fbbc55b38b3c109e818c2eeb9ccaf23fa1d4
[perl5.git] / t / lib / croak / pp_hot
1 __END__
2 # NAME calling undef sub belonging to undef GV
3    my $foosub = \&foo;
4    undef *foo;
5    &$foosub;
6 EXPECT
7 Undefined subroutine &main::foo called at - line 3.
8 ########
9 # NAME calling undef sub resident in its GV
10    my $foosub = \&foo;
11    &$foosub;
12 EXPECT
13 Undefined subroutine &main::foo called at - line 2.