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";