xref: /openbsd/gnu/usr.bin/perl/lib/vars_carp.t (revision 5af055cd)
1#!./perl
2
3# test that "use vars;" doesn't load Carp
4
5BEGIN {
6    chdir 't' if -d 't';
7    @INC = '../lib';
8    $ENV{PERL5LIB} = '../lib';
9}
10
11$| = 1;
12
13print "1..1\n";
14
15# Carp not loaded yet;
16print defined $Carp::VERSION ? "not ok 1\n" : "ok 1\n";
17