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

diff --git a/lib/base.pm b/lib/base.pm
index 9649e8a..fc0f7f9 100644 (file)
--- a/lib/base.pm
+++ b/lib/base.pm
@@ -92,9 +92,11 @@ sub import {
                 die if $@ && $@ !~ /^Can't locate .*? at \(eval /;
                 unless (%{"$base\::"}) {
                     require Carp;
+                    local $" = " ";
                     Carp::croak(<<ERROR);
 Base class package "$base" is empty.
-    (Perhaps you need to 'use' the module which defines that package first.)
+    (Perhaps you need to 'use' the module which defines that package first,
+    or make that module available in \@INC (\@INC contains: @INC).
 ERROR
                 }
                 $sigdie = $SIG{__DIE__};

diff --git a/lib/base/t/base.t b/lib/base/t/base.t
index 8a9f3ea..68dbea0 100644 (file)
--- 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;