Changeset 2051

Timestamp:

11/15/08 05:23:57

Author:

miyagawa

Message:

more XML::Feed changes

Files:

• trunk/plagger/lib/Plagger/Plugin/Filter/FeedBurnerPermalink.pm (modified) (2 diffs)

trunk/plagger/lib/Plagger/Plugin/Filter/FeedBurnerPermalink.pm

@@ -18 +18 @@
-
-    # RSS 1.0 & 2.0
-$args->{orig_entry}->isa('XML::Feed::Entry::RSS')
+ref $args->{orig_entry} =~ /RSS/
-        if (my $orig_link = $args->{orig_entry}->{entry}->{$fbns}->{origLink}) {
-            $args->{entry}->permalink($orig_link);
@@ -25 +25 @@
-    }
-    # Atom 1.0
-$args->{orig_entry}->isa('XML::Feed::Entry::Atom')
+ref $args->{orig_entry} =~ /Atom/
-        my $ns = XML::Atom::Namespace->new(feedburner => $fbns);
-        if (my $orig_link = $args->{orig_entry}->{entry}->get($ns, 'origLink')) {