diff options
Diffstat (limited to 'tools/pm/DocsParser.pm')
-rw-r--r-- | tools/pm/DocsParser.pm | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/tools/pm/DocsParser.pm b/tools/pm/DocsParser.pm index fed5d49b..430cacb4 100644 --- a/tools/pm/DocsParser.pm +++ b/tools/pm/DocsParser.pm @@ -78,7 +78,7 @@ sub read_defs($$$) $DocsParser::CurrentFile = "$path/$filename"; if ( ! -r $DocsParser::CurrentFile) { - print "DocsParser.pm: Warning: Can't read file \"" . $DocsParser::CurrentFile . "\".\n"; + print STDERR "DocsParser.pm: Warning: Can't read file \"" . $DocsParser::CurrentFile . "\".\n"; return; } # Parse @@ -86,23 +86,22 @@ sub read_defs($$$) if( $@ ) { $@ =~ s/at \/.*?$//s; - print "\nError in \"" . $DocsParser::CurrentFile . "\":$@\n"; + print STDERR "\nError in \"" . $DocsParser::CurrentFile . "\":$@\n"; return; } # C++ overide documentation: - $DocsParser::CurrentFile = "$path/$filename_override"; - if ( ! -r $DocsParser::CurrentFile) - { - print "DocsParser.pm: Warning: Can't read file \"" . $DocsParser::CurrentFile . "\".\n"; - return; - } + $DocsParser::CurrentFile = $path . '/' . $filename_override; + + # It is not an error if the documentation override file does not exist. + return unless (-r $DocsParser::CurrentFile); + # Parse eval { $objParser->parsefile($DocsParser::CurrentFile) }; if( $@ ) { $@ =~ s/at \/.*?$//s; - print "\nError in \"" . $DocsParser::CurrentFile . "\":$@"; + print STDERR "\nError in \"" . $DocsParser::CurrentFile . "\":$@"; return; } } |