diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-12 09:32:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-12 09:32:47 +0000 |
| commit | 5565990ae7d1a23693f78cbe611ec2a5af8dd5e1 (patch) | |
| tree | b3cc94733ba69f3ddf9de59d9bdb692f5bfbc2f2 /lib/base | |
| parent | 0130bfd94175b569069a67c8e36c3b9094446d8b (diff) | |
| download | perl-5565990ae7d1a23693f78cbe611ec2a5af8dd5e1.tar.gz | |
Make @INC available in base.pm's error message when
a module can't be found. See CPAN bug #28582.
p4raw-id: //depot/perl@31853
Diffstat (limited to 'lib/base')
| -rw-r--r-- | lib/base/t/base.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/base/t/base.t b/lib/base/t/base.t index 8a9f3eaea0..68dbea054d 100644 --- a/lib/base/t/base.t +++ b/lib/base/t/base.t @@ -56,11 +56,11 @@ is( $Eval2::VERSION, 1.02 ); eval q{use base 'reallyReAlLyNotexists'}; -like( $@, qr/^Base class package "reallyReAlLyNotexists" is empty./, +like( $@, qr/^Base class package "reallyReAlLyNotexists" is empty\./, 'base with empty package'); eval q{use base 'reallyReAlLyNotexists'}; -like( $@, qr/^Base class package "reallyReAlLyNotexists" is empty./, +like( $@, qr/^Base class package "reallyReAlLyNotexists" is empty\./, ' still empty on 2nd load'); { my $warning; |