diff --git a/kalyptus/kdocAstUtil.pm b/kalyptus/kdocAstUtil.pm index 8c24430c..ec3e8fb5 100644 --- a/kalyptus/kdocAstUtil.pm +++ b/kalyptus/kdocAstUtil.pm @@ -675,7 +675,7 @@ sub dumpAst } print "\t" x $depth, "Documentation nodes:\n" if defined - @{ $node->{Doc}->{ "Text" }}; + $node->{Doc}->{ "Text" }; foreach $kid ( @{ $node->{Doc}->{ "Text" }} ) { dumpAst( $kid );