import Feed-Find 0.05 from CPAN

git-cpan-module: Feed-Find git-cpan-version: 0.05 git-cpan-authorid: BTROTT git-cpan-file: authors/id/B/BT/BTROTT/Feed-Find-0.05.tar.gz
davorg-cpan · Dec 11, 2009 · 1376c2a · 1376c2a
1 parent 20fc77a
commit 1376c2a
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 6 deletions.
diff --git a/Changes b/Changes
@@ -1,8 +1,12 @@
-# $Id: Changes 799 2004-12-31 21:32:44Z btrott $
+# $Id: Changes 1787 2005-01-09 06:18:25Z btrott $
 
 Revision history for Feed::Find
 
-0.04
+0.05  2005.01.08
+    - Fixed bug where base URI would be unset if there was a <base>
+      tag without an href attribute.
+
+0.04  2004.12.31
     - Added Feed::Find->find_in_html to perform the same auto-discovery
       on a chunk of HTML already in memory.
 

diff --git a/META.yml b/META.yml
@@ -1,5 +1,5 @@
 name: Feed-Find
-version: 0.04
+version: 0.05
 abstract: Syndication Feed Discovery
 author: Benjamin Trott <ben+cpan@stupidfool.org>
 license: perl

diff --git a/lib/Feed/Find.pm b/lib/Feed/Find.pm
@@ -1,4 +1,4 @@
-# $Id: Find.pm 1753 2005-01-01 00:57:41Z btrott $
+# $Id: Find.pm 1769 2005-01-03 17:45:19Z btrott $
 
 package Feed::Find;
 use strict;
@@ -9,7 +9,7 @@ use HTML::Parser;
 use URI;
 
 use vars qw( $VERSION );
-$VERSION = '0.04';
+$VERSION = '0.05';
 
 use constant FEED_MIME_TYPES => [
     'application/x.atom+xml',
@@ -68,7 +68,7 @@ sub _find_links {
                 if $IsFeed{$type} &&
                    ($rel{alternate} || $rel{'service.feed'});
     } elsif ($tag eq 'base') {
-        $p->{base_uri} = $attr->{href};
+        $p->{base_uri} = $attr->{href} if $attr->{href};
     } elsif ($tag =~ /^(?:meta|isindex|title|script|style|head|html)$/) {
         ## Ignore other valid tags inside of <head>.
     } elsif ($tag eq 'a') {