| Subject: | patch to fix test failures and warnings |
diff -ruP HTML-RSSAutodiscovery-1.1/lib/HTML/RSSAutodiscovery.pm HTML-RSSAutodiscovery-1.1.new/lib/HTML/RSSAutodiscovery.pm
--- HTML-RSSAutodiscovery-1.1/lib/HTML/RSSAutodiscovery.pm Thu Oct 31 00:33:00 2002
+++ HTML-RSSAutodiscovery-1.1.new/lib/HTML/RSSAutodiscovery.pm Mon Oct 20 15:30:53 2003
@@ -481,10 +481,11 @@
# Check links
- if ($attrs->{'name'} =~ /^(XML|RSS)$/) {
+ if (defined($attrs->{'name'}) && $attrs->{'name'} =~ /^(XML|RSS)$/) {
return;
}
- if (($attrs->{'type'} ne "application/rss+xml") &&
+ if (defined($attrs->{'name'}) &&
+ ($attrs->{'type'} ne "application/rss+xml") &&
($attrs->{'type'} ne "text/xml")) {
return;
}
diff -ruP HTML-RSSAutodiscovery-1.1/t/002-locate.t HTML-RSSAutodiscovery-1.1.new/t/002-locate.t
--- HTML-RSSAutodiscovery-1.1/t/002-locate.t Thu Oct 31 00:23:02 2002
+++ HTML-RSSAutodiscovery-1.1.new/t/002-locate.t Mon Oct 20 15:32:21 2003
@@ -4,16 +4,13 @@
plan tests => 5;
my $url = "http://www.diveintomark.org";
-my $links = undef;
-my $count = undef;
+my($links, $count);
use_ok("HTML::RSSAutodiscovery");
-
my $html = HTML::RSSAutodiscovery->new();
-
isa_ok($html,"HTML::RSSAutodiscovery");
-my $links = undef;
+undef $links;
eval { $links = $html->locate($url); };
is($@,'',"Parsed $url");
@@ -22,6 +19,7 @@
$count = scalar(@$links);
cmp_ok($count,">",0,"$count feed(s)");
+
diff -ruP HTML-RSSAutodiscovery-1.1/t/003-noparse.t HTML-RSSAutodiscovery-1.1.new/t/003-noparse.t
--- HTML-RSSAutodiscovery-1.1/t/003-noparse.t Thu Oct 31 00:22:45 2002
+++ HTML-RSSAutodiscovery-1.1.new/t/003-noparse.t Mon Oct 20 15:38:20 2003
@@ -10,7 +10,7 @@
plan tests => 5;
-my $url = "aaronland";
+my $url = "scripting";
my $links = undef;
my $count = undef;