From 2e9822caa4c35b417d07a1c196960bb3ff8bd531 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:05:34 +0100
Subject: 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>
---
 kalyptus/kdocAstUtil.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kalyptus')

diff --git a/kalyptus/kdocAstUtil.pm b/kalyptus/kdocAstUtil.pm
index 8c24430c..ec3e8fb5 100644
--- 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 );
-- 
cgit v1.2.1