From 5565990ae7d1a23693f78cbe611ec2a5af8dd5e1 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 12 Sep 2007 09:32:47 +0000
Subject: [PATCH] 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
---
 lib/base.pm       | 4 +++-
 lib/base/t/base.t | 4 ++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/base.pm b/lib/base.pm
index 9649e8a..fc0f7f9 100644
--- 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
--- 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;
-- 
2.7.4