Commit | Line | Data |
---|---|---|
09e96b99 JC |
1 | #!./perl |
2 | ||
3 | # test that "use vars;" doesn't load Carp | |
4 | ||
5 | BEGIN { | |
6 | chdir 't' if -d 't'; | |
7 | @INC = '../lib'; | |
8 | $ENV{PERL5LIB} = '../lib'; | |
9 | } | |
10 | ||
11 | $| = 1; | |
12 | ||
13 | print "1..1\n"; | |
14 | ||
b737a394 | 15 | use vars; |
09e96b99 JC |
16 | # Carp not loaded yet; |
17 | print defined $Carp::VERSION ? "not ok 1\n" : "ok 1\n"; |