Load XML-Feed-0.05 into trunk.

diff --git a/Changes b/Changes
index 894e0ff..8887d36 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,7 +1,11 @@
-# $Id: Changes 1750 2005-01-01 00:46:40Z btrott $
+# $Id: Changes 1762 2005-01-01 17:35:44Z btrott $
 
 Revision history for XML::Feed
 
+0.05  2005.01.01
+    - Call URI::Fetch::URI_GONE() instead of URI::Fetch::FEED_GONE(). Thanks
+      to Richard Clamp for the patch.
+
 0.04  2004.12.31
     - Use "loose" parsing in DateTime::Format::Mail so that we don't die
       on invalid RFC-822 dates.
@@ -10,8 +14,6 @@ Revision history for XML::Feed
     - Switched to using URI::Fetch when fetching feeds. Since we're not
       storing or caching feeds currently, this basically just buys us
       GZIP support, but that's something.
-    - Use Class::ErrorHandler instead of XML::Feed::ErrorHandler. Thanks
-      to Tim Appnel for the patch.
 
 0.03  2004.10.09
     - Fixed bug with feed format detection: properly detect format even in

diff --git a/META.yml b/META.yml
index 661bc6f..7a29758 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,5 +1,5 @@
 name: XML-Feed
-version: 0.04
+version: 0.05
 abstract: XML Syndication Feed Support
 author: Benjamin Trott <ben+cpan@stupidfool.org>
 license: perl

diff --git a/lib/XML/Feed.pm b/lib/XML/Feed.pm
index 53faed9..634cdb0 100644 (file)
--- a/lib/XML/Feed.pm
+++ b/lib/XML/Feed.pm
@@ -1,4 +1,4 @@
-# $Id: Feed.pm 942 2004-12-31 23:01:21Z btrott $
+# $Id: Feed.pm 1762 2005-01-01 17:35:44Z btrott $
 
 package XML::Feed;
 use strict;
@@ -7,7 +7,7 @@ use base qw( Class::ErrorHandler );
 use Feed::Find;
 use URI::Fetch;
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 sub parse {
     my $class = shift;
@@ -19,7 +19,7 @@ sub parse {
         my $res = URI::Fetch->fetch($stream)
             or return $class->error(URI::Fetch->errstr);
         return $class->error("This feed has been permanently removed")
-            if $res->status == URI::Fetch::FEED_GONE();
+            if $res->status == URI::Fetch::URI_GONE();
         $xml = $res->content;
     } elsif (ref($stream) eq 'SCALAR') {
         $xml = $$stream;