diff options
| author | Jim Cromie <jcromie@cpan.org> | 2005-01-02 23:36:16 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-07 14:30:51 +0000 |
| commit | 09e96b99c215ed417c37d0d188dd576c5464c72a (patch) | |
| tree | f0311897e0c6eb6d473caa496bbc83165704599f /lib/vars_carp.t | |
| parent | 5df617be18e4372550725f3369e8e3fd641cce19 (diff) | |
| download | perl-09e96b99c215ed417c37d0d188dd576c5464c72a.tar.gz | |
Re: [PATCH] Remove Carp from warnings.pm
Message-ID: <cfe85dfa05010305367445dee6@mail.gmail.com>
p4raw-id: //depot/perl@23768
Diffstat (limited to 'lib/vars_carp.t')
| -rw-r--r-- | lib/vars_carp.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/vars_carp.t b/lib/vars_carp.t new file mode 100644 index 0000000000..85a19513b5 --- /dev/null +++ b/lib/vars_carp.t @@ -0,0 +1,16 @@ +#!./perl + +# test that "use vars;" doesn't load Carp + +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; + $ENV{PERL5LIB} = '../lib'; +} + +$| = 1; + +print "1..1\n"; + +# Carp not loaded yet; +print defined $Carp::VERSION ? "not ok 1\n" : "ok 1\n"; |