--- messaging/manakai/lib/Message/Markup/Atom.dis	2006/11/05 12:31:50	1.18
+++ messaging/manakai/lib/Message/Markup/Atom.dis	2006/12/29 14:45:44	1.20
@@ -43,7 +43,7 @@
   @DISCore:author: DISCore|Wakaba
   @License: license|Perl+MPL
   @Date:
-    $Date: 2006/11/05 12:31:50 $
+    $Date: 2006/12/29 14:45:44 $
 
   @Require:
     @@Module:
@@ -738,7 +738,7 @@
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        <Q::fe|Atom> => '1.0',
                      });
 
@@ -748,7 +748,7 @@
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        Core => '3.0',
                        <Q::fe|Atom> => '1.0',
                      });
@@ -759,7 +759,7 @@
     @@PerlDef:
       require Message::Markup::Atom;
       my $impl = $Message::DOM::ImplementationRegistry
-                   ->get_implementation ({
+                   ->get_dom_implementation ({
                        XML => '3.0',
                        <Q::fe|Atom> => '1.0',
                      });
@@ -3135,7 +3135,9 @@
         $test->assert_num_equals (actual_value => 0+@$list, expected_value => 0);
 
         $test->id ('parent');
+        my $parent;
         for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) {
+          $parent = $_;
           $_-><M::Node.appendChild>
                 ($doc-><M::Document.createElementNS> (<Q::atom|>, 'author'));
           $_-><M::Node.appendChild>
@@ -3155,7 +3157,9 @@
         my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry');
 
         $test->id ('parent');
+        my $parent;
         for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) {
+          $parent = $_;
           $_-><M::Node.appendChild>
                 ($doc-><M::Document.createElementNS> (<Q::atom|>, 'author'));
           $_-><M::Node.appendChild>