avoid deprecated form of isa()

davorg-cpan · Oct 16, 2014 · cf84451 · cf84451
1 parent a51d4e2
commit cf84451
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Build.PL b/Build.PL
@@ -22,6 +22,7 @@ my $build = Module::Build
                           'XML::LibXML'                => '1.66',
                           'XML::RSS'                   => '1.47',
                           'Test::More'                 => 0,
+                          'Scalar::Util'               => 0,
                         },
          create_makefile_pl => 'traditional',
          meta_merge =>
@@ -37,6 +38,7 @@ my $build = Module::Build
                 'Simon Wistow <simon@thegestalt.org>',
                 'Gabor Szabo <szabgab@cpan.org>',
                 'Minty Walker <mintywalker@gmail.com>',
+                'Karen Etheridge <ether@cpan.org>',
              ],
          },
        );

diff --git a/lib/XML/Feed.pm b/lib/XML/Feed.pm
@@ -7,6 +7,7 @@ use Feed::Find;
 use URI::Fetch;
 use LWP::UserAgent;
 use Carp;
+use Scalar::Util 'blessed';
 use Module::Pluggable search_path => "XML::Feed::Format",
                       require     => 1,
                       sub_name    => 'formatters';
@@ -37,7 +38,7 @@ sub parse {
     return $class->error("Stream parameter is required") unless $stream;
     my $feed = bless {}, $class;
     my $xml = '';
-    if (UNIVERSAL::isa($stream, 'URI')) {
+    if (blessed($stream) and $stream->isa('URI')) {
         my $ua  = LWP::UserAgent->new;
         $ua->agent(__PACKAGE__ . "/$VERSION");
         $ua->env_proxy; # force allowing of proxies