Fix 'base' stuff

diff --git a/Build.PL b/Build.PL
index d60c8ff..8f63988 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -17,7 +17,7 @@ my $build = Module::Build
                           'LWP::UserAgent'             => 0,
                           'Module::Pluggable'          => 0,
                           'URI::Fetch'                 => 0,
-                          'XML::Atom'                  => 0.23,
+                          'XML::Atom'                  => 0.32,
                           'XML::LibXML'                => 1.66,
                           'XML::RSS'                   => 1.31,
                           'Test::More'                 => 0,

diff --git a/lib/XML/Feed/Format/Atom.pm b/lib/XML/Feed/Format/Atom.pm
index 9336acb..0140d5b 100644 (file)
--- a/lib/XML/Feed/Format/Atom.pm
+++ b/lib/XML/Feed/Format/Atom.pm
@@ -30,31 +30,6 @@ sub init_empty {
     $feed;
 }
 
-# monkey patch
-{
-    my $sub =  sub {
-        my $item = shift;
-        if (XML::Atom::LIBXML) {
-            my $elem = $item->elem;
-            if (@_) {
-                $elem->setAttributeNS('http://www.w3.org/XML/1998/namespace',
-                    'base', $_[0]);
-            }
-            return $elem->getAttributeNS('http://www.w3.org/XML/1998/namespace', 'base');
-        } else {
-            if (@_) {
-                $item->elem->setAttribute('xml:base', $_[0]);
-            }
-            return $item->elem->getAttribute('xml:base');
-        }
-
-    };
-    no strict 'refs';
-    *XML::Atom::Feed::base    = $sub unless XML::Atom::Feed->can('base');
-    *XML::Atom::Entry::base   = $sub unless XML::Atom::Entry->can('base');
-    *XML::Atom::Content::base = $sub unless XML::Atom::Content->can('base');
-}
-
 sub init_string {
     my $feed = shift;
     my($str) = @_;