Fix invalid perl syntax in kdocAstUtil.pm

This resolves Bug 2543 Signed-off-by: François Andriot <francois.andriot@free.fr>
9 years ago · 2e9822caa4
parent bbae3d87ed
commit 2e9822caa4
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 );