Permalink
Browse files

Load XML-Feed-0.05 into trunk.

  • Loading branch information...
simonwistow committed Apr 22, 2008
1 parent fe71566 commit b3b6d2fc8240a4bcccb5fc102e451f1a7e62c062
Showing with 9 additions and 7 deletions.
  1. +5 −3 Changes
  2. +1 −1 META.yml
  3. +3 −3 lib/XML/Feed.pm
View
@@ -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
View
@@ -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
View
@@ -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;

0 comments on commit b3b6d2f

Please sign in to comment.