diff options
| author | François Andriot <[email protected]> | 2015-12-06 16:05:34 +0100 |
|---|---|---|
| committer | Slávek Banko <[email protected]> | 2015-12-06 16:05:34 +0100 |
| commit | 2e9822caa4c35b417d07a1c196960bb3ff8bd531 (patch) | |
| tree | 9ae617caeb11d679fe88381b828aa66686c6282e /kalyptus/kdocAstUtil.pm | |
| parent | bbae3d87ede9001180cf8f7395f12cf5492d6331 (diff) | |
| download | tdebindings-2e9822caa4c35b417d07a1c196960bb3ff8bd531.tar.gz tdebindings-2e9822caa4c35b417d07a1c196960bb3ff8bd531.zip | |
Fix invalid perl syntax in kdocAstUtil.pm
This resolves Bug 2543
Signed-off-by: François Andriot <[email protected]>
Diffstat (limited to 'kalyptus/kdocAstUtil.pm')
| -rw-r--r-- | kalyptus/kdocAstUtil.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 ); |