Fix invalid perl syntax in kdocAstUtil.pm

This resolves Bug 2543 Signed-off-by: François Andriot <francois.andriot@free.fr> (cherry picked from commit 2e9822caa4)
9 years ago · dc5f265d3e
parent 3e49a0c6fb
commit dc5f265d3e
1 changed files with 1 additions and 1 deletions
--- 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 );