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 7be2f6784d)
8 years ago · a6ec8c20eb
parent 294f15f367
commit a6ec8c20eb
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 );