Replace '-w' ref in SEE ALSO with 'use warnings'
[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 use vars;
16 # Carp not loaded yet;
17 print defined $Carp::VERSION ? "not ok 1\n" : "ok 1\n";