Labs/MovableType/CustomFields/Not a HASH reference

http://blog.tatsutomi.net/2007/08/customfieldsmt4.php

このままやってみようとおもう http://plugins.movalog.com/forums/viewtopic.php?id=638#p2082

Index: CMS.pm
===================================================================
--- CMS.pm    (revision 60379)
+++ CMS.pm    (working copy)
@@ -11171,6 +11171,12 @@
                 plugin_id            => $id,
                 plugin_compat_errors => $registry->{compat_errors},
             };
+            my $block_tags = $plugin->registry('tags', 'block');
+            my $function_tags = $plugin->registry('tags', 'function');
+            my $modifiers = $plugin->registry('tags', 'modifier');
+            my $junk_filters = $plugin->registry('junk_filters');
+            my $text_filters = $plugin->registry('text_filters');
+            
             $row->{plugin_tags} = listify(
                 [
 
@@ -11180,41 +11186,41 @@
 
                             # Format all 'block' tags with <MT(name)>
                             map { s/\?$//; "<MT$_>" }
-                              ( keys %{ $registry->{tags}{block} || {} } )
+                              ( keys %{ $block_tags || {} } )
                         ),
                         (
 
                             # Format all 'function' tags with <$MT(name)$>
                             map { "<\$MT$_\$>" }
-                              ( keys %{ $registry->{tags}{function} || {} } )
+                              ( keys %{ $function_tags || {} } )
                         )
                     )
                 ]
-            ) if $registry->{tags}{block} || $registry->{tags}{function};
+            ) if $block_tags || $function_tags;
             $row->{plugin_attributes} = listify(
                 [
 
                     # Filter out 'plugin' registry entry
                     grep { $_ ne 'plugin' }
-                      keys %{ $registry->{tags}{modifier} || {} }
+                      keys %{ $modifiers || {} }
                 ]
-            ) if $registry->{tags}{modifier};
+            ) if $modifiers;
             $row->{plugin_junk_filters} = listify(
                 [
 
                     # Filter out 'plugin' registry entry
                     grep { $_ ne 'plugin' }
-                      keys %{ $registry->{junk_filters} || {} }
+                      keys %{ $junk_filters || {} }
                 ]
-            ) if $registry->{junk_filters};
+            ) if $junk_filters;
             $row->{plugin_text_filters} = listify(
                 [
 
                     # Filter out 'plugin' registry entry
                     grep { $_ ne 'plugin' }
-                      keys %{ $registry->{text_filters} || {} }
+                      keys %{ $text_filters || {} }
                 ]
-            ) if $registry->{text_filters};
+            ) if $text_filters;
             if (   $row->{plugin_tags}
                 || $row->{plugin_attributes}
                 || $row->{plugin_junk_filters}