Error: Can't use string ("HASH(0xb7a4b44)") as a HASH ref while "strict refs" in use at /usr/local/mkdoc-1-6/MKDoc/Util/LinkParser.pm line 454.
Petal object dump:
==================
$VAR1 = bless( {
'lang' => 'en',
'file' => 'editor/link/en.html'
}, 'Petal' );
Stack trace:
============
at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 373
Petal::process('Petal=HASH(0xafd0220)', 'self', 'flo::editor::Link=HASH(0xb0db20c)') called at ../flo/Component.pm line 315
flo::Component::edit('flo::editor::Link=HASH(0xb0db20c)') called at /usr/local/mkdoc-1-6/flo/Editor.pm line 740
flo::Editor::edit('flo::Editor=HASH(0xb7da998)') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash/Var.pm line 86
Petal::Hash::Var::process('Petal::Hash::Var', 'Petal::Hash=HASH(0xa532388)', 'self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 187
Petal::Hash::fetch('Petal::Hash=HASH(0xa532388)', 'self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 160
Petal::Hash::__FETCH('Petal::Hash=HASH(0xa532388)', 'structure self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 117
Petal::Hash::get('Petal::Hash=HASH(0xa532388)', 'structure self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 129
Petal::Hash::get_encoded('Petal::Hash=HASH(0xa532388)', 'structure self/editor/edit') called at (eval 446) line 145
Petal::__ANON__('Petal::Hash=HASH(0xa532388)') called at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 370
eval {...} called at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 361
Petal::process('Petal=HASH(0xa5341c4)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4be074)', '__input__', 'XML', '__output__', 'XHTML') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 624
flo::Plugin::render('flo::plugin::Admin::Content=HASH(0xb4be074)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4be074)', '__input__', 'XML', '__output__', 'XHTML') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 573
flo::Plugin::render_http('flo::plugin::Admin::Content=HASH(0xb4be074)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4be074)', '__input__', 'XML', '__output__', 'XHTML') called at ../flo/plugin/Admin/Content.pm line 84
flo::plugin::Admin::Content::http_get('flo::plugin::Admin::Content=HASH(0xb4be074)') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 222
flo::Plugin::run('flo::plugin::Admin::Content=HASH(0xb4be074)') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 182
flo::Plugin::main('flo::plugin::Admin::Content') called at /usr/local/mkdoc-1-6/MKDoc.pm line 105
MKDoc::main() called at /usr/local/mkdoc-1-6/MKDoc.pm line 72
MKDoc::process('MKDoc') called at /usr/local/mkdoc-1-6/cgi/mkdoc.cgi line 52
eval {...} called at /usr/local/mkdoc-1-6/cgi/mkdoc.cgi line 35
Apache::ROOTusers_2elinktest_2ewebarchitects_2eco_2euk::handler('Apache=SCALAR(0xb49b928)') called at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Apache/Registry.pm line 149
eval {...} called at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Apache/Registry.pm line 149
Apache::Registry::handler('Apache=SCALAR(0xb49b928)') called at /dev/null line 0
eval {...} called at /dev/null line 0
Template perl code dump:
========================
1. $VAR1 = sub {
2. my $hash = shift;
3. my $res = "";
4. local $^W = 0;
5. $res .= "";
6. $res .= do {
7. my $res = $hash->get_encoded ('set: align self/align');
8. (defined $res) ? $res : "";
9. };
10. $res .= "";
11. $res .= do {
12. my $res = $hash->get_encoded ('set: dir self/direction');
13. (defined $res) ? $res : "";
14. };
15. $res .= "";
16. $res .= do {
17. my $res = $hash->get_encoded ('set: name_delete string:${self/block_name}_delete');
18. (defined $res) ? $res : "";
19. };
20. $res .= "";
21. $res .= do {
22. my $res = $hash->get_encoded ('set: name_url string:${self/block_name}_url');
23. (defined $res) ? $res : "";
24. };
25. $res .= "";
26. $res .= do {
27. my $res = $hash->get_encoded ('set: name_title string:${self/block_name}_title');
28. (defined $res) ? $res : "";
29. };
30. $res .= "";
31. $res .= do {
32. my $res = $hash->get_encoded ('set: name_description string:${self/block_name}_description');
33. (defined $res) ? $res : "";
34. };
35. $res .= "\