Changeset 21719

Timestamp:

10/21/08 00:54:55 (5 years ago)

Author:

daisuke

Message:

silence warnings

Files:

• lang/perl/Data-Feed/trunk/lib/Data/Feed/RSS/Entry.pm (modified) (3 diffs)

lang/perl/Data-Feed/trunk/lib/Data/Feed/RSS/Entry.pm

@@ -7 +7 @@
 use DateTime::Format::Mail;
 use DateTime::Format::W3CDTF;
+use Scalar::Util ();
 
 with 'Data::Feed::Web::Entry';
@@ -44 +45 @@
 
     if (@_) {
-        $item->{description} = blessed $_[0] eq 'Data::Feed::Web::Content' ?
+        $item->{description} = 
+            (Scalar::Util::blessed($_[0]) || '') eq 'Data::Feed::Web::Content' ?
             $_[0]->body : $_[0];
         ## Because of the logic below, we need to add some dummy content,
@@ -78 +80 @@
 
     if (@_) {
-        my $c = blessed $_[0] eq 'Data::Feed::Web::Content' ? $_[0]->body : $_[0];
+        my $c = (Scalar::Util::blessed($_[0]) || '') eq 'Data::Feed::Web::Content' ? $_[0]->body : $_[0];
         $item->{content}{encoded} = $c;
     }