Handle it correctly when a module has *no* directives.
git-svn-id: https://svn.apache.org/repos/asf/httpd/docs-build/trunk@1625077 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/irc_factoids.pl b/irc_factoids.pl
index f04da21..a6d0b45 100755
--- a/irc_factoids.pl
+++ b/irc_factoids.pl
@@ -28,7 +28,7 @@
if ( $directives->{name} ) { # There was only one
%directives = ( $directives->{name} => $directives );
} else { # More than one
- %directives = %{ $xml->{directivesynopsis} };
+ %directives = defined( $xml->{directivesynopsis} ) ? %{ $xml->{directivesynopsis} } : () ;
}
foreach my $directive ( sort( keys %directives ) ) {