contrib/perl5/t/lib/env.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 BEGIN {
   9         $ENV{FOO} = "foo";
  10 }
  11
  12 use Env qw(FOO);
  13
  14 $FOO .= "/bar";
  15
  16 print "1..1\n";
  17 print "not " if $FOO ne 'foo/bar';
  18 print "ok 1\n";