unsupported
ˆ
ƒ O‡ÅÄà Ó
Index of /FSS-OZR/root/sys/devices/virtual/tty/tty44/subsystem/tty35
Index of /FSS-OZR/root/sys/devices/virtual/tty/tty44/subsystem/tty35
" ˆl–Ãa¾”TÂXÔ%ýÀã-©‹FÿÁ
ƒeÆÞÅÄ J #!/usr/bin/perl
eval 'exec perl -S $0 "$@"'
if 0;
#############################################################################
# podchecker -- command to invoke the podchecker function in Pod::Checker
#
# Copyright (c) 1998-2000 by Bradford Appleton. All rights reserved.
# This is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.
#############################################################################
use strict;
#use diagnostics;
=head1 NAME
podchecker - check the syntax of POD format documentation files
=head1 SYNOPSIS
B [B<-help>] [B<-man>] [B<-(no)warnings>] [IS< >...]
=head1 OPTIONS AND ARGUMENTS
=over 8
=item B<-help>
Print a brief help message and exit.
=item B<-man>
Print the manual page and exit.
=item B<-warnings> B<-nowarnings>
Turn on/off printing of warnings. Repeating B<-warnings> increases the
warning level, i.e. more warnings are printed. Currently increasing to
level two causes flagging of unescaped "E,E" characters.
=item I
The pathname of a POD file to syntax-check (defaults to standard input).
=back
=head1 DESCRIPTION
B will read the given input files looking for POD
syntax errors in the POD documentation and will print any errors
it find to STDERR. At the end, it will print a status message
indicating the number of errors found.
Directories are ignored, an appropriate warning message is printed.
B invokes the B function exported by B
Please see L for more details.
=head1 RETURN VALUE
B returns a 0 (zero) exit status if all specified
POD files are ok.
=head1 ERRORS
B returns the exit status 1 if at least one of
the given POD files has syntax errors.
The status 2 indicates that at least one of the specified
files does not contain I POD commands.
Status 1 overrides status 2. If you want unambiguous
results, call B with one single argument only.
=head1 SEE ALSO
L and L
=head1 AUTHORS
Please report bugs using L.
Brad Appleton Ebradapp@enteract.comE,
Marek Rouchal Emarekr@cpan.orgE
Based on code for B written by
Tom Christiansen Etchrist@mox.perl.comE
=cut
use Pod::Checker;
use Pod::Usage;
use Getopt::Long;
## Define options
my %options;
## Parse options
GetOptions(\%options, qw(help man warnings+ nowarnings)) |