File fix-perl-no-defined-array.diff of Package kdebindings3
Index: kdebindings-3.5.10/kalyptus/kdocAstUtil.pm
===================================================================
--- kdebindings-3.5.10.orig/kalyptus/kdocAstUtil.pm
+++ kdebindings-3.5.10/kalyptus/kdocAstUtil.pm
@@ -674,7 +674,7 @@ sub dumpAst
dumpAst( $kid );
}
- print "\t" x $depth, "Documentation nodes:\n" if defined
+ print "\t" x $depth, "Documentation nodes:\n" if
@{ $node->{Doc}->{ "Text" }};
foreach $kid ( @{ $node->{Doc}->{ "Text" }} ) {