Use Scalar::Util::blessed() to check if our objects are blessed

Scalar::Util is now required.

diff --git a/Makefile.PL b/Makefile.PL
index 1392ee08f744e5f99523782f2854e3d165e306d1..1d0fd94b4588899c3bc7c638023955c86b9e8e80 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,6 +11,7 @@ $file = "lib/$file.pm";
 
 my %PREREQ_PM = (
  'Carp'           => 0,
+ 'Scalar::Util'   => 0,
  'Text::Balanced' => 0,
 );
 

diff --git a/lib/Regexp/Wildcards.pm b/lib/Regexp/Wildcards.pm
index 8d79b936abdc19cb2ce7fcd5c12852d738eb5d60..15b42c79fccf5f0b8122a5db5938bc2d846e1eb0 100644 (file)
--- a/lib/Regexp/Wildcards.pm
+++ b/lib/Regexp/Wildcards.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Carp           qw<croak>;
+use Scalar::Util   qw<blessed>;
 use Text::Balanced qw<extract_bracketed>;
 
 =head1 NAME
@@ -61,7 +62,7 @@ Typesets that mimic the behaviour of Windows and Unix shells are also provided.
 
 sub _check_self {
  croak 'First argument isn\'t a valid ' . __PACKAGE__ . ' object'
-  unless ref $_[0] and $_[0]->isa(__PACKAGE__);
+  unless blessed $_[0] and $_[0]->isa(__PACKAGE__);
 }
 
 my %types = (
@@ -468,7 +469,7 @@ An object module shouldn't export any function, and so does this one.
 
 =head1 DEPENDENCIES
 
-L<Carp> (core module since perl 5), L<Text::Balanced> (since 5.7.3).
+L<Carp> (core module since perl 5), L<Scalar::Util>, L<Text::Balanced> (since 5.7.3).
 
 =head1 CAVEATS