This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid POD in test files
[perl5.git] / lib / SelfLoader-buggy.t
1 #!./perl
2
3 BEGIN {
4     if( $ENV{PERL_CORE} ) {
5         chdir 't' if -d 't';
6         @INC = '../lib';
7     }
8 }
9
10 use SelfLoader;
11 print "1..1\n";
12
13 # this script checks that errors on self-loaded
14 # subroutines that affect $@ are reported
15
16 eval { buggy(); };
17 unless ($@ =~ /^syntax error/) {
18     print "not ";
19 }
20 print "ok 1 - syntax errors are reported\n";
21
22 __END__
23
24 sub buggy
25 {
26     +>*;
27 }
28
29
30 # RT 40216
31 #
32 # by Bo Lindbergh <blgl@hagernas.com>, at Aug 22, 2006 5:42 PM
33 #
34 # In the example below, there's a syntax error in the selfloaded
35 # code for main::buggy.  When the eval fails, SelfLoader::AUTOLOAD
36 # tries to report this with "croak $@;".  Unfortunately,
37 # SelfLoader::croak does "require Carp;" without protecting $@,
38 # which gets clobbered.  The program then dies with the
39 # uninformative message " at ./example line 3".
40 #
41 # #! /usr/local/bin/perl
42 # use SelfLoader;
43 # buggy();
44 # __END__
45 # sub buggy
46 # {
47 #     +>*;
48 # }