| Subject: | Pod::Usage Insecure dependency in system while running with -T switch |
pod2usage( -exitstatus => 0, -verbose => 2 ) throws error
Insecure dependency in system while running with -T switch at
/usr/share/perl/5.8/Pod/Usage.pm line 550.
when a script has set the -T switch.
Pod-Parser: Pod-Parser-1.35
uname -a: Linux etchbuild 2.6.18-4-xen-amd64 #1 SMP Fri May 4 02:40:51
UTC 2007 x86_64 GNU/Linux
Perl: v5.8.8 built for i486-linux-gnu-thread-multi
To reproduce, run ./pod_usage_test.pl --man
| Subject: | pod_usage_test.pl |
#!/usr/bin/perl -w -T
# Test Pod::Usage with -T
=pod
=head1 NAME
test Pod::Usage with -T, Version 0.0.1, 2007-10-14
=head1 SYNOPSIS
./pod_usage_test.pl --man
./pod_usage_test.pl
=head1 OPTIONS
none : prints OK
--man : prints the error
=head1 DESCRIPTION
Reproduce the bug "Insecure dependency in system while running with -T switch
at /usr/share/perl/5.8/Pod/Usage.pm line 550."
Pod-Parser: Pod-Parser-1.35, Pod-Parser-1.33
uname -a: Linux etchbuild 2.6.18-4-xen-amd64 #1 SMP Fri May 4 02:40:51 UTC 2007 x86_64 GNU/Linux
Perl: This is perl, v5.8.8 built for i486-linux-gnu-thread-multi
=head1 AUTHOR
Christian Kuelker
=head2 License
GPLv2 or later, License for Perl itself.
=cut
use strict;
use warnings;
use Getopt::Long; # command line options
use Pod::Usage; # for man page and help
# global vars
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Make %ENV safer
my $man = 0;
# CLI
GetOptions( "man" => \$man )
or pod2usage( -exitstatus => 2, -msg => "problems parsing command line!" );
# display man page
pod2usage( -exitstatus => 0, -verbose => 2 ) if $man;
print "OK\n";
exit(0);