From 094540b6609b51b8c35bde18ea80db32e4b99e98 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois=20Andriot?= <francois.andriot@free.fr>
Date: Sun, 6 Dec 2015 16:02:21 +0100
Subject: [PATCH] Fix invalid perl syntax in kdocAstUtil.pm This resolves Bug
 2543
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: François Andriot <francois.andriot@free.fr>
(cherry picked from commit 7be2f6784dcb70a494fc9eb98da68cf10f8a6edb)
---
 dcop/dcopidlng/kdocAstUtil.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dcop/dcopidlng/kdocAstUtil.pm b/dcop/dcopidlng/kdocAstUtil.pm
index ec67ace5f..f31f2b365 100644
--- 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 );