Gecko [ georgetownmover.com ]

Name	Size	Permission	Date
corelist	14.77 KB	-rwxr-xr-x	2019-05-31 11:39
cpan	8 KB	-rwxr-xr-x	2019-05-31 11:39
dbilogstrip	1.36 KB	-r-xr-xr-x	2019-05-31 11:40
dbiprof	6.08 KB	-r-xr-xr-x	2019-05-31 11:40
dbiproxy	5.28 KB	-r-xr-xr-x	2019-05-31 11:40
enc2xs	41.09 KB	-rwxr-xr-x	2019-05-31 11:39
encguess	3.03 KB	-rwxr-xr-x	2019-05-31 11:39
fastcgi-wrapper.pl	3.08 KB	-rwxr-xr-x	2019-05-31 11:40
h2ph	28.57 KB	-rwxr-xr-x	2019-05-31 11:39
h2xs	59.47 KB	-rwxr-xr-x	2019-05-31 11:39
instmodsh	4.22 KB	-rwxr-xr-x	2019-05-31 11:39
json_pp	4.59 KB	-rwxr-xr-x	2019-05-31 11:39
libnetcfg	15.44 KB	-rwxr-xr-x	2019-05-31 11:39
lwp-download	8.36 KB	-r-xr-xr-x	2019-05-31 11:40
lwp-dump	2.66 KB	-r-xr-xr-x	2019-05-31 11:40
lwp-mirror	2.35 KB	-r-xr-xr-x	2019-05-31 11:40
lwp-request	14.64 KB	-r-xr-xr-x	2019-05-31 11:40
perl	3.16 MB	-rwxr-xr-x	2019-05-31 11:39
perl-fcgi	705 B	-rwxr-xr-x	2019-05-31 11:40
perl5.30.0	3.16 MB	-rwxr-xr-x	2019-05-31 11:39
perlbug	45.31 KB	-rwxr-xr-x	2019-05-31 11:39
perldoc	294 B	-rwxr-xr-x	2019-05-31 11:39
perlivp	10.6 KB	-rwxr-xr-x	2019-05-31 11:39
perlthanks	45.31 KB	-rwxr-xr-x	2019-05-31 11:39
piconv	8.19 KB	-rwxr-xr-x	2019-05-31 11:39
pl2pm	4.46 KB	-rwxr-xr-x	2019-05-31 11:39
pod2html	4.07 KB	-rwxr-xr-x	2019-05-31 11:39
pod2man	14.71 KB	-rwxr-xr-x	2019-05-31 11:39
pod2text	10.58 KB	-rwxr-xr-x	2019-05-31 11:39
pod2usage	3.87 KB	-rwxr-xr-x	2019-05-31 11:39
podchecker	3.59 KB	-rwxr-xr-x	2019-05-31 11:39
podselect	2.48 KB	-rwxr-xr-x	2019-05-31 11:39
prove	13.37 KB	-rwxr-xr-x	2019-05-31 11:39
ptar	3.5 KB	-rwxr-xr-x	2019-05-31 11:39
ptardiff	2.6 KB	-rwxr-xr-x	2019-05-31 11:39
ptargrep	4.32 KB	-rwxr-xr-x	2019-05-31 11:39
shasum	9.77 KB	-rwxr-xr-x	2019-05-31 11:39
splain	18.73 KB	-rwxr-xr-x	2019-05-31 11:39
xsubpp	5.07 KB	-rwxr-xr-x	2019-05-31 11:39
zipdetails	49.56 KB	-rwxr-xr-x	2019-05-31 11:39

Rename

#!/usr/local/apps/perl/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<podchecker> [B<-help>] [B<-man>] [B<-(no)warnings>] [I<file>S< >...]

=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<lt>,E<gt>" characters.

=item I<file>

The pathname of a POD file to syntax-check (defaults to standard input).

=back

=head1 DESCRIPTION

B<podchecker> 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<podchecker> invokes the B<podchecker()> function exported by B<Pod::Checker>
Please see L<Pod::Checker/podchecker()> for more details.

=head1 RETURN VALUE

B<podchecker> returns a 0 (zero) exit status if all specified
POD files are ok.

=head1 ERRORS

B<podchecker> 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<any> POD commands.

Status 1 overrides status 2. If you want unambiguous
results, call B<podchecker> with one single argument only.

=head1 SEE ALSO

L<Pod::Simple> and L<Pod::Checker>

=head1 AUTHORS

Please report bugs using L<http://rt.cpan.org>.

Brad Appleton E<lt>bradapp@enteract.comE<gt>,
Marek Rouchal E<lt>marekr@cpan.orgE<gt>

Based on code for B<Pod::Text::pod2text(1)> written by
Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>

=cut

use Pod::Checker;
use Pod::Usage;
use Getopt::Long;

## Define options
my %options;

## Parse options
GetOptions(\%options, qw(help man warnings+ nowarnings))  ||  pod2usage(2);
pod2usage(1)  if ($options{help});
pod2usage(-verbose => 2)  if ($options{man});

if($options{nowarnings}) {
  $options{warnings} = 0;
}
elsif(!defined $options{warnings}) {
  $options{warnings} = 1; # default is warnings on
}

## Dont default to STDIN if connected to a terminal
pod2usage(2) if ((@ARGV == 0) && (-t STDIN));

## Invoke podchecker()
my $status = 0;
@ARGV = qw(-) unless(@ARGV);
for my $podfile (@ARGV) {
    if($podfile eq '-') {
      $podfile = '<&STDIN';
    }
    elsif(-d $podfile) {
      warn "podchecker: Warning: Ignoring directory '$podfile'\n";
      next;
    }
    my $errors =
      podchecker($podfile, undef, '-warnings' => $options{warnings});
    if($errors > 0) {
        # errors occurred
        $status = 1;
        printf STDERR ("%s has %d pod syntax %s.\n",
          $podfile, $errors,
          ($errors == 1) ? 'error' : 'errors');
    }
    elsif($errors < 0) {
        # no pod found
        $status = 2 unless($status);
        print STDERR "$podfile does not contain any pod commands.\n";
    }
    else {
        print STDERR "$podfile pod syntax OK.\n";
    }
}
exit $status;