diff --git a/kdoc/src/kdocAstUtil.pm b/kdoc/src/kdocAstUtil.pm index 8db4fd3..815a89e 100644 --- a/kdoc/src/kdocAstUtil.pm +++ b/kdoc/src/kdocAstUtil.pm @@ -595,7 +595,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" }} ) {