diff options
| author | Adriano Ferreira <a.r.ferreira@gmail.com> | 2006-07-06 10:02:23 -0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-07 14:52:15 +0000 |
| commit | ff5c8f2aafc62d460908048388675aaeb811dd92 (patch) | |
| tree | d554ad1446b0599a94c842dc46dd337606c55033 /lib/Shell.t | |
| parent | ead3295200d473d7e8131c8284d762c13903f6d8 (diff) | |
| download | perl-ff5c8f2aafc62d460908048388675aaeb811dd92.tar.gz | |
Re: Dual life for Shell.pm
From: "Adriano Ferreira" <a.r.ferreira@gmail.com>
Message-ID: <73ddeb6c0607060902tc471f84sf1bb841b6e9ecddf@mail.gmail.com>
p4raw-id: //depot/perl@28502
Diffstat (limited to 'lib/Shell.t')
| -rw-r--r-- | lib/Shell.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Shell.t b/lib/Shell.t index 106cd2a51d..51f54a1bf8 100644 --- a/lib/Shell.t +++ b/lib/Shell.t @@ -1,8 +1,10 @@ #!./perl BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; + if( $ENV{PERL_CORE} ) { + chdir 't' if -d 't'; + @INC = '../lib'; + } } use Test::More tests => 7; |