[MKDoc-commit] [1.6] fix slightly broken MKDoc::Text::Structured Petal modifiers

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] fix slightly broken MKDoc::Text::Structured Petal modifiers

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/flo:
        Object.pm

-------------- next part --------------
Index: Object.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/Attic/Object.pm,v
retrieving revision 1.4.2.6
retrieving revision 1.4.2.7
diff -Lflo/Object.pm -Lflo/Object.pm -u -r1.4.2.6 -r1.4.2.7
--- flo/Object.pm
+++ flo/Object.pm
@@ -54,7 +54,7 @@
 $Petal::Hash::MODIFIERS->{'as_html_entities:'} = sub {
     my $hash  = shift;
     my $key   = shift;
-    return MKDoc::Text::Structured::Inline::process_entities_only ($hash->{$key});
+    return MKDoc::Text::Structured::Inline::process_entities_only ($hash->fetch ($key));
 };
 
 =pod
@@ -69,7 +69,7 @@
 $Petal::Hash::MODIFIERS->{'as_html_inline:'} = sub {
     my $hash  = shift;
     my $key   = shift;
-    return MKDoc::Text::Structured::Inline::process ($hash->{$key});
+    return MKDoc::Text::Structured::Inline::process ($hash->fetch ($key));
 };
 
 =pod
@@ -84,7 +84,7 @@
 $Petal::Hash::MODIFIERS->{'as_html_blocks:'} = sub {
     my $hash  = shift;
     my $key   = shift;
-    return MKDoc::Text::Structured::process ($hash->{$key});
+    return MKDoc::Text::Structured::process ($hash->fetch ($key));
 };
 
 ##