diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-06 16:00:57 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-06 16:00:57 +0000 |
commit | 390630257fd9ca7dc6c4928dbcab2a1ddcfaf2c3 (patch) | |
tree | d1df6611aec036f163d3a988e83f0744e93ff405 /lib/base/t/warnings.t | |
parent | c63d38c6752f01266506f029548537ad9ecd081d (diff) | |
download | perl-390630257fd9ca7dc6c4928dbcab2a1ddcfaf2c3.tar.gz |
Add test preambles
p4raw-id: //depot/perl@31542
Diffstat (limited to 'lib/base/t/warnings.t')
-rw-r--r-- | lib/base/t/warnings.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/base/t/warnings.t b/lib/base/t/warnings.t index 51e91741ea..631cc37b7f 100644 --- a/lib/base/t/warnings.t +++ b/lib/base/t/warnings.t @@ -1,5 +1,12 @@ #!/usr/bin/perl -w +BEGIN { + if( $ENV{PERL_CORE} ) { + chdir 't' if -d 't'; + @INC = qw(../lib); + } +} + use strict; use Test::More tests => 1; |