Fix invalid perl syntax in kdocAstUtil.pm

This resolves Bug 2543 Signed-off-by: François Andriot <francois.andriot@free.fr>
9 years ago · 7be2f6784d
parent b0ac7d2879
commit 7be2f6784d
1 changed files with 1 additions and 1 deletions
--- a/dcop/dcopidlng/kdocAstUtil.pm
+++ b/dcop/dcopidlng/kdocAstUtil.pm
@ -439,7 +439,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 );