lstat_cache(): print a warning if doing ping-pong between cache types

diff --git a/perl/private-Error.pm b/perl/private-Error.pm
index ebd07498a22ec598449211e8a26c0b63689633ff..11e9cd9a02eb3f85a9150c6fb06d1fc76abd9b09 100644 (file)
--- a/perl/private-Error.pm
+++ b/perl/private-Error.pm
@@ -43,8 +43,6 @@ sub throw_Error_Simple
 
 # Exported subs are defined in Error::subs
 
-use Scalar::Util ();
-
 sub import {
     shift;
     local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
@@ -290,6 +288,14 @@ package Error::subs;
 
 @ISA = qw(Exporter);
 
+
+sub blessed {
+       my $item = shift;
+       local $@; # don't kill an outer $@
+       ref $item and eval { $item->can('can') };
+}
+
+
 sub run_clauses ($$$\@) {
     my($clauses,$err,$wantarray,$result) = @_;
     my $code = undef;
@@ -312,7 +318,7 @@ ($$$\@)
                    $i -= 2;
                    next CATCHLOOP;
                }
-               elsif(Scalar::Util::blessed($err) && $err->isa($pkg)) {
+               elsif(blessed($err) && $err->isa($pkg)) {
                    $code = $catch->[$i+1];
                    while(1) {
                        my $more = 0;
@@ -421,7 +427,7 @@ (&;$)
 
     if (defined($err))
     {
-        if (Scalar::Util::blessed($err) && $err->can('throw'))
+        if (blessed($err) && $err->can('throw'))
         {
             throw $err;
         }
@@ -775,7 +781,7 @@ =head1 $Error::ObjectifyCallback
 
 This variable holds a reference to a subroutine that converts errors that
 are plain strings to objects. It is used by Error.pm to convert textual
-errors to objects, and can be overrided by the user.
+errors to objects, and can be overridden by the user.
 
 It accepts a single argument which is a hash reference to named parameters.
 Currently the only named parameter passed is C<'text'> which is the text