diff options
| author | Paul Fenwick <pjf@perltraining.com.au> | 2008-05-23 09:24:34 +1000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-25 21:14:40 +0000 |
| commit | 4f923b567478eff0dc7a4bc348785f02b03ea502 (patch) | |
| tree | 5b3ca6f679d381a7c4fff3dbe3c159e46eafa1d7 /lib/lib_pm.PL | |
| parent | e08926902e591e5c2d12e9e6e88a0d5ec7998770 (diff) | |
| download | perl-4f923b567478eff0dc7a4bc348785f02b03ea502.tar.gz | |
lib.pm should not warn about loading .par files
Message-ID: <48357412.5020703@perltraining.com.au>
p4raw-id: //depot/perl@33927
Diffstat (limited to 'lib/lib_pm.PL')
| -rw-r--r-- | lib/lib_pm.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/lib_pm.PL b/lib/lib_pm.PL index 2c12be4dc7..bb2f7ccfcd 100644 --- a/lib/lib_pm.PL +++ b/lib/lib_pm.PL @@ -58,7 +58,7 @@ my \@inc_version_list = $Config_inc_version_list; print OUT <<'!NO!SUBS!'; our @ORIG_INC = @INC; # take a handy copy of 'original' value -our $VERSION = '0.5565'; +our $VERSION = '0.56'; my $Is_MacOS = $^O eq 'MacOS'; my $Mac_FS; if ($Is_MacOS) { @@ -79,7 +79,7 @@ sub import { $path = _nativize($path); - if (-e $path && ! -d _) { + if ($path !~ /\.par$/i && -e $path && ! -d _) { require Carp; Carp::carp("Parameter to use lib must be directory, not file"); } |