my_plvarsp nulling and PERL_GLOBAL_STRUCT_PRIVATE
[perl.git] / lib / vars_carp.t
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
15 # Carp not loaded yet;
16 print defined $Carp::VERSION ? "not ok 1\n" : "ok 1\n";