Changeset 630

Timestamp:

04/20/06 16:35:03

Author:

miyagawa

Message:

Subscription::OPML: support broken OPML feed. use XML::Liberal if installed

Files:

• trunk/plagger/lib/Plagger/Plugin/Subscription/OPML.pm (modified) (2 diffs)

trunk/plagger/lib/Plagger/Plugin/Subscription/OPML.pm

@@ -6 +6 @@
-use URI;
-use XML::OPML;
+
+our $HAS_LIBERAL;
+BEGIN {
+    eval { require XML::Liberal; $HAS_LIBERAL = 1 };
+}
-
-sub register {
@@ -50 +55 @@
-    else {
-        $context->error("Unsupported URI scheme: " . $uri->scheme);
+    }
+
+    if ($HAS_LIBERAL) {
+        my $parser = XML::Liberal->new('LibXML');
+        my $doc = $parser->parse_string($xml);
+        $xml = $doc->toString;
-    }
-