#!/usr/bin/perl
use strict;
+BEGIN { pop @INC if $INC[-1] eq '.' }
use File::Find;
use Getopt::Std;
use Archive::Tar;
#!/usr/bin/perl
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use Archive::Tar;
use Getopt::Std;
# archive. See 'ptargrep --help' for more documentation.
#
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use warnings;
$DEBUG = 0;
$WARN = 1;
$FOLLOW_SYMLINK = 0;
-$VERSION = "1.96";
+$VERSION = "1.96_01";
$CHOWN = 1;
$CHMOD = 1;
$SAME_PERMISSIONS = $> == 0 ? 1 : 0;
BEGIN {
require Exporter;
- $VERSION = '1.96';
+ $VERSION = '1.96_01';
@ISA = qw[Exporter];
require Time::Local if $^O eq "MacOS";
use vars qw[@ISA $VERSION];
#@ISA = qw[Archive::Tar];
-$VERSION = '1.96';
+$VERSION = '1.96_01';
### set value to 1 to oct() it during the unpack ###
use if $] < 5.008 => "IO::Scalar";
-$VERSION = '1.62';
+$VERSION = '1.62_01';
=head1 NAME
sub DESTROY { 1 }
}
+# load a module without searching the default entry for the current
+# directory
+sub _safe_load_module {
+ my $name = shift;
+
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+
+ eval "require $name; 1";
+}
+
sub _init_logger
{
- my $log4perl_loaded = eval "require Log::Log4perl; 1";
+ my $log4perl_loaded = _safe_load_module("Log::Log4perl");
unless( $log4perl_loaded )
{
{
$logger->debug( "Loading local::lib" );
- my $rc = eval { require local::lib; 1; };
+ my $rc = _safe_load_module("local::lib");
unless( $rc ) {
$logger->die( "Could not load local::lib" );
}
{
my $path = shift;
- my $loaded = eval "require LWP::Simple; 1;";
+ my $loaded = _safe_load_module("LWP::Simple");
croak "You need LWP::Simple to use features that fetch files from CPAN\n"
unless $loaded;
{
my $args = shift;
- my $loaded = eval "require Archive::Extract; 1;";
+ my $loaded = _safe_load_module("Archive::Extract");
croak "You need Archive::Extract to use features that gitify distributions\n"
unless $loaded;
sub _get_changes_file
{
croak "Reading Changes files requires LWP::Simple and URI\n"
- unless eval "require LWP::Simple; require URI; 1";
+ unless _safe_load_module("LWP::Simple") && _safe_load_module("URI");
my $url = shift;
# vim: ts=4 sts=4 sw=4:
use strict;
package CPAN;
-$CPAN::VERSION = '2.05';
+$CPAN::VERSION = '2.05_01';
$CPAN::VERSION =~ s/_//;
# we need to run chdir all over and we would get at wrong libraries
]
};
if ($usable->{$mod}) {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
for my $c (0..$#{$usable->{$mod}}) {
my $code = $usable->{$mod}[$c];
my $ret = eval { &$code() };
$CPAN::META->{dontload_hash}{$mod}||=1; # unsafe meta access, ok
return 0;
}
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
my $file = $mod;
my $obj;
$file =~ s|::|/|g;
use vars qw(
$VERSION
);
-$VERSION = "5.5002";
+$VERSION = "5.5002_01";
package CPAN::Author;
use strict;
use vars qw(
$VERSION
);
-$VERSION = "5.5001";
+$VERSION = "5.5001_01";
sub look {
my $self = shift;
use vars qw(
$VERSION
);
-$VERSION = "5.5002";
+$VERSION = "5.5002_01";
package CPAN::CacheMgr;
use strict;
use vars qw(
$VERSION
);
-$VERSION = "5.5001";
+$VERSION = "5.5001_01";
package CPAN::Complete;
use strict;
use strict;
use vars qw($VERSION);
-$VERSION = "5.5001";
+$VERSION = "5.5001_01";
# module is internal to CPAN.pm
%CPAN::DEBUG = qw[
bool "" 0+
/;
-$VERSION = "5.50";
+$VERSION = "5.50_01";
sub run {
$_[0]->();
use File::Path ();
@CPAN::Distribution::ISA = qw(CPAN::InfoObj);
use vars qw($VERSION);
-$VERSION = "2.02";
+$VERSION = "2.02_01";
# Accessors
sub cpan_comment {
package CPAN::Distroprefs;
use vars qw($VERSION);
-$VERSION = '6.0001';
+$VERSION = '6.0001_01';
package CPAN::Distroprefs::Result;
use vars qw(
$VERSION
);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
sub new {
use vars qw(
$VERSION
);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
# a module sees its distribution (no version)
# a distribution sees its prereqs (which are module names) (usually with versions)
use vars qw(
$VERSION
);
-$VERSION = "1.001";
+$VERSION = "1.001_01";
sub new {
use vars qw(
$VERSION
);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
sub new {
use vars qw(
$VERSION
);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
sub new {
use vars qw(
$VERSION
);
-$VERSION = "5.5006";
+$VERSION = "5.5006_01";
#-> sub CPAN::FTP::ftp_statistics
# if they want to rewrite, they need to pass in a filehandle
package CPAN::FTP::netrc;
use strict;
-$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01";
+$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01_01";
# package CPAN::FTP::netrc;
sub new {
use File::Spec ();
use CPAN::Mirrors ();
use vars qw($VERSION $auto_config);
-$VERSION = "5.5306";
+$VERSION = "5.5306_01";
=head1 NAME
use CPAN::HTTP::Credentials;
use HTTP::Tiny 0.005;
-$CPAN::HTTP::Client::VERSION = $CPAN::HTTP::Client::VERSION = "1.9601";
+$CPAN::HTTP::Client::VERSION = $CPAN::HTTP::Client::VERSION = "1.9601_01";
# CPAN::HTTP::Client is adapted from parts of cpanm by Tatsuhiko Miyagawa
# and parts of LWP by Gisle Aas
use strict;
use vars qw($USER $PASSWORD $PROXY_USER $PROXY_PASSWORD);
-$CPAN::HTTP::Credentials::VERSION = $CPAN::HTTP::Credentials::VERSION = "1.9600";
+$CPAN::HTTP::Credentials::VERSION = $CPAN::HTTP::Credentials::VERSION = "1.9600_01";
sub clear_credentials {
_clear_non_proxy_credentials();
=cut
-$VERSION = "5.5005"; # see also CPAN::Config::VERSION at end of file
+$VERSION = "5.5005_01"; # see also CPAN::Config::VERSION at end of file
%can = (
commit => "Commit changes to disk",
use strict;
use vars qw($AUTOLOAD $VERSION);
- $VERSION = "5.5005";
+ $VERSION = "5.5005_01";
# formerly CPAN::HandleConfig was known as CPAN::Config
sub AUTOLOAD { ## no critic
package CPAN::Index;
use strict;
use vars qw($LAST_TIME $DATE_OF_02 $DATE_OF_03 $HAVE_REANIMATED $VERSION);
-$VERSION = "1.9601";
+$VERSION = "1.9601_01";
@CPAN::Index::ISA = qw(CPAN::Debug);
$LAST_TIME ||= 0;
$DATE_OF_03 ||= 0;
use vars qw(
$VERSION
);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
sub ro {
my $self = shift;
package CPAN::Kwalify;
use vars qw($VERSION $VAR1);
-$VERSION = "5.50";
+$VERSION = "5.50_01";
use File::Spec ();
use CPAN::HTTP::Credentials;
# we delay requiring LWP::UserAgent and setting up inheritance until we need it
-$CPAN::LWP::UserAgent::VERSION = $CPAN::LWP::UserAgent::VERSION = "1.9601";
+$CPAN::LWP::UserAgent::VERSION = $CPAN::LWP::UserAgent::VERSION = "1.9601_01";
sub config {
package CPAN::Mirrors;
use strict;
use vars qw($VERSION $urllist $silent);
-$VERSION = "1.9601";
+$VERSION = "1.9601_01";
use Carp;
use FileHandle;
use vars qw(
$VERSION
);
-$VERSION = "5.5001";
+$VERSION = "5.5001_01";
BEGIN {
# alarm() is not implemented in perl 5.6.x and earlier under Windows
@CPAN::ISA = ('Exporter');
use CPAN;
-$VERSION = "5.5001";
+$VERSION = "5.5001_01";
$CPAN::META->has_inst('Digest::MD5','no');
$CPAN::META->has_inst('LWP','no');
$CPAN::META->has_inst('Compress::Zlib','no');
use vars qw(
$VERSION
);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
$prompt = "cpan> ";
# in CPAN::Distribution::rematein.
use vars qw{ @All $VERSION };
-$VERSION = "5.5002";
+$VERSION = "5.5002_01";
# CPAN::Queue::queue_item ;
sub queue_item {
"CPAN/Tarzip.pm",
"CPAN/Version.pm",
);
-$VERSION = "5.5004";
+$VERSION = "5.5004_01";
# record the initial timestamp for reload.
$reload = { map {$INC{$_} ? ($_,(stat $INC{$_})[9]) : ()} @relo };
@CPAN::Shell::ISA = qw(CPAN::Debug);
use vars qw($VERSION @ISA $BUGHUNTING);
use CPAN::Debug;
use File::Basename qw(basename);
-$VERSION = "5.5012";
+$VERSION = "5.5012_01";
# module is internal to CPAN.pm
@ISA = qw(CPAN::Debug); ## no critic
use vars qw(
$VERSION
);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
sub new {
my($class,%args) = @_;
use strict;
use vars qw($VERSION);
-$VERSION = "5.5003";
+$VERSION = "5.5003_01";
# CPAN::Version::vcmp courtesy Jost Krieger
sub vcmp {
#!/usr/local/bin/perl
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use vars qw($VERSION);
use App::Cpan '1.60_02';
-$VERSION = '1.61';
+$VERSION = '1.61_01';
my $rc = App::Cpan->run( @ARGV );
use Fcntl;
use integer;
-$VERSION = '5.88';
+$VERSION = '5.88_01';
require Exporter;
require DynaLoader;
END_OF_POD
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use Fcntl;
use Getopt::Long;
-my $VERSION = "5.88";
+my $VERSION = "5.88_01";
sub usage {
my($err, $msg) = @_;
use strict;
use vars qw($VERSION %MMAP $AUTOLOAD);
-$VERSION = "1.17";
+$VERSION = "1.17_01";
%MMAP = (
"SHA-1" => [["Digest::SHA", 1], "Digest::SHA1", ["Digest::SHA2", 1]],
unless (exists ${"$class\::"}{"VERSION"}) {
my $pm_file = $class . ".pm";
$pm_file =~ s{::}{/}g;
- eval { require $pm_file };
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require $pm_file
+ };
if ($@) {
$err ||= $@;
next;
use strict;
use vars qw($VERSION);
-$VERSION = "1.16";
+$VERSION = "1.16_01";
# subclass is supposed to implement at least these
sub new;
use vars qw($VERSION @ISA @EXPORT_OK);
-$VERSION = "1.16";
+$VERSION = "1.16_01";
@ISA = qw(Exporter);
@EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64);
eval {
local $SIG{__DIE__};
local $SIG{__WARN__};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
require Encode::ConfigLocal;
};
package Encode::$_Name_;
-our $VERSION = "0.01";
+our $VERSION = "0.01_01";
use Encode;
use XSLoader;
# with $ENV{PERL_CORE} set
# In case we need it in future...
require Config; import Config;
+ pop @INC if $INC[-1] eq '.';
}
use strict;
use warnings;
#!./perl
# $Id: piconv,v 2.6 2014/03/28 02:37:42 dankogai Exp $
#
+BEGIN { pop @INC if $INC[-1] eq '.' }
use 5.8.0;
use strict;
use Encode ;
# $Id: ucmlint,v 2.2 2008/03/12 09:51:11 dankogai Exp $
#
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
our $VERSION = do { my @r = (q$Revision: 2.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
#!./perl
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use Encode;
use Getopt::Std;
#!/usr/bin/perl -w
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use IO::File;
use ExtUtils::Packlist;
our @EXPORT = qw(test_harness pod2man perllocal_install uninstall
warn_if_old_packlist test_s cp_nonempty);
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
my $Is_VMS = $^O eq 'VMS';
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
use File::Spec;
require ExtUtils::Liblist::Kid;
use strict;
use warnings;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
use ExtUtils::MakeMaker::Config;
use Cwd 'cwd';
use strict;
use ExtUtils::MakeMaker::Config;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::Liblist;
require ExtUtils::MakeMaker;
package ExtUtils::MM_AIX;
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
package ExtUtils::MM_Any;
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
use Carp;
use File::Spec;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
=item os_flavor
require ExtUtils::MM_Win32;
our @ISA = qw( ExtUtils::MM_Unix );
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
=head1 NAME
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Unix );
}
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
=head1 NAME
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
sub new {
die <<'UNSUPPORTED';
use ExtUtils::MakeMaker::Config;
use File::Basename;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Win32;
our @ISA = qw(ExtUtils::MM_Win32);
use ExtUtils::MakeMaker qw(neatvalue);
use File::Spec;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
package ExtUtils::MM_QNX;
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
package ExtUtils::MM_UWIN;
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
# If we make $VERSION an our variable parse_version() breaks
use vars qw($VERSION);
-$VERSION = '6.98';
+$VERSION = '6.98_01';
$VERSION = eval $VERSION; ## no critic [BuiltinFunctions::ProhibitStringyEval]
require ExtUtils::MM_Any;
use File::Basename;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
package ExtUtils::MM_VOS;
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
$ENV{EMXSHELL} = 'sh'; # to run `commands`
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require ExtUtils::MM_Win32;
our @ISA = qw(ExtUtils::MM_Win32);
use strict;
require ExtUtils::MM;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
our @ISA = qw(ExtUtils::MM);
{
my @Prepend_parent;
my %Recognized_Att_Keys;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
$VERSION = eval $VERSION; ## no critic [BuiltinFunctions::ProhibitStringyEval]
# Emulate something resembling CVS $Revision$
use strict;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
use Config ();
package ExtUtils::MakeMaker::FAQ;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
1;
__END__
package ExtUtils::MakeMaker::Tutorial;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
=head1 NAME
# There's just too much Dynaloader incest here to turn on strict vars.
use strict 'refs';
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
require Exporter;
our @ISA = ('Exporter');
our @ISA = qw(Exporter);
our @EXPORT = qw(&Mksymlists);
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
sub Mksymlists {
my(%spec) = @_;
use strict;
use warnings;
-our $VERSION = '6.98';
+our $VERSION = '6.98_01';
use Cwd;
use File::Spec;
$FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4
];
-$VERSION = '0.48';
+$VERSION = '0.48_01';
$VERSION = eval $VERSION; # avoid warnings with development releases
$PREFER_BIN = 0; # XXX TODO implement
$FROM_EMAIL = 'File-Fetch@example.com';
};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
unless( can_load( modules => $use_list ) ) {
$METHOD_FAIL->{'lwp'} = 1;
return;
};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
unless( can_load(modules => $use_list) ) {
$METHOD_FAIL->{'httptiny'} = 1;
return;
};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
unless( can_load(modules => $use_list) ) {
$METHOD_FAIL->{'httplite'} = 1;
return;
'IO::Select' => '0.0',
};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
unless( can_load(modules => $use_list) ) {
$METHOD_FAIL->{'iosock'} = 1;
return;
check( $tmpl, \%hash ) or return;
### required modules ###
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
my $use_list = { 'Net::FTP' => 0 };
unless( can_load( modules => $use_list ) ) {
use strict;
use warnings;
# ABSTRACT: A small, simple, correct HTTP/1.1 client
-our $VERSION = '0.043'; # VERSION
+our $VERSION = '0.043_01'; # VERSION
use Carp ();
return $self->{SSL_options}->{SSL_ca_file}
if $self->{SSL_options}->{SSL_ca_file} and -e $self->{SSL_options}->{SSL_ca_file};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
return Mozilla::CA::SSL_ca_file()
if eval { require Mozilla::CA };
# Display info on the contents of a Zip file
#
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use warnings ;
);
-my $VERSION = "1.06" ;
+my $VERSION = "1.06_01" ;
my $FH;
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
our ($Error);
our ($VERSION, @EXPORT_OK);
-$VERSION = '1.000';
+$VERSION = '1.000_01';
@EXPORT_OK = qw( globmap );
use Compress::Raw::Bzip2 2.064 ;
our ($VERSION);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
sub mkCompObject
{
require Exporter;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
@ISA = qw(Exporter);
@EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
%EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
use IO::Compress::Base::Common 2.064 qw(:Status);
our ($VERSION);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
sub mkCompObject
{
our (@ISA, $VERSION);
@ISA = qw(Exporter IO::File);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
#Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16.
require Exporter;
our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
@ISA = qw(Exporter);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
@EXPORT = qw( isaFilehandle isaFilename isaScalar
whatIsInput whatIsOutput
#
#require Exporter;
#our ($VERSION, @ISA, @EXPORT);
-#$VERSION = '2.000_08';
+#$VERSION = '2.000_09';
#@ISA = qw(Exporter);
$EXPORT_TAGS{Parse} = [qw( ParseParameters
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$Bzip2Error = '';
@ISA = qw(Exporter IO::Compress::Base);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$DeflateError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$GzipError = '' ;
@ISA = qw(Exporter IO::Compress::RawDeflate);
our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names);
our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$RawDeflateError = '';
@ISA = qw(Exporter IO::Compress::Base);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
use IO::Compress::Gzip::Constants 2.064 ;
use Compress::Raw::Bzip2 2.064 ;
our ($VERSION, @ISA);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
sub mkUncompObject
{
our ($VERSION);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
use Compress::Raw::Zlib 2.064 ();
use Compress::Raw::Zlib 2.064 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
our ($VERSION);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$AnyInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$AnyUncompressError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
BEGIN
{
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval ' use IO::Uncompress::Adapter::Inflate 2.064 ;';
eval ' use IO::Uncompress::Adapter::Bunzip2 2.064 ;';
eval ' use IO::Uncompress::Adapter::LZO 2.064 ;';
@ISA = qw(Exporter IO::File);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$Bunzip2Error = '';
@ISA = qw( Exporter IO::Uncompress::Base );
$GunzipError = '';
-$VERSION = '2.064';
+$VERSION = '2.064_01';
sub new
{
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$InflateError = '';
@ISA = qw( Exporter IO::Uncompress::RawInflate );
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$RawInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.064';
+$VERSION = '2.064_01';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
use Config qw(%Config);
use File::Copy;
-my $VERSION = '1.0';
+my $VERSION = '1.0_01';
BEGIN
$HAVE_MONOTONIC
];
- $VERSION = '0.92';
+ $VERSION = '0.92_01';
$VERBOSE = 0;
$DEBUG = 0;
$WARN = 1;
return if IS_WIN98;
### if we don't have ipc::run, we obviously can't use it.
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
return unless can_load(
modules => { 'IPC::Run' => '0.55' },
verbose => ($WARN && $verbose),
### IPC::Open3 works on every non-VMS platform, but it can't
### capture buffers on win32 :(
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
return unless can_load(
modules => { map {$_ => '0.0'} qw|IPC::Open3 IO::Select Symbol| },
verbose => ($WARN && $verbose),
#!/usr/bin/perl
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use Getopt::Long;
use JSON::PP ();
-my $VERSION = '1.00';
+my $VERSION = '1.00_01';
# imported from JSON-XS/bin/json_xs
use B ();
#use Devel::Peek;
-$JSON::PP::VERSION = '2.27203';
+$JSON::PP::VERSION = '2.27203_01';
@JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
use constant INCR_M_C0 => 4;
use constant INCR_M_C1 => 5;
-$JSON::PP::IncrParser::VERSION = '1.01';
+$JSON::PP::IncrParser::VERSION = '1.01_01';
my $unpack_format = $] < 5.006 ? 'C*' : 'U*';
package Locale::Maketext::Simple;
-$Locale::Maketext::Simple::VERSION = '0.21';
+$Locale::Maketext::Simple::VERSION = '0.21_01';
use strict;
use 5.005;
my $pkg = join('::', grep { defined and length } $args{Class}, $args{Subclass});
return $Loc{$pkg} if exists $Loc{$pkg};
- eval { require Locale::Maketext::Lexicon; 1 } or return;
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require Locale::Maketext::Lexicon;
+ 1
+ } or return;
$Locale::Maketext::Lexicon::VERSION > 0.20 or return;
eval { require File::Spec; 1 } or return;
# write to mjd-perl-memoize+@plover.com for a license.
package Memoize;
-$VERSION = '1.03';
+$VERSION = '1.03_01';
# Compile-time constants
sub SCALAR () { 0 }
}
my $modulefile = $module . '.pm';
$modulefile =~ s{::}{/}g;
- eval { require $modulefile };
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require $modulefile
+ };
if ($@) {
croak "Memoize: Couldn't load hash tie module `$module': $@; aborting";
}
=cut
use vars qw(@ISA $VERSION);
-$VERSION = '1.03';
+$VERSION = '1.03_01';
@ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA;
my $verbose = 1;
# require 5.00556;
use Carp;
$DEBUG = 0;
-$VERSION = '1.03';
+$VERSION = '1.03_01';
# This package will implement expiration by prepending a fixed-length header
# to the font of the cached data. The format of the header will be:
=cut
-$VERSION = '1.03';
+$VERSION = '1.03_01';
use Carp;
my $Zero = pack("N", 0);
=cut
-$VERSION = '1.03';
+$VERSION = '1.03_01';
my %cache;
sub TIEHASH {
use NDBM_File;
@ISA = qw(NDBM_File);
-$VERSION = '1.03';
+$VERSION = '1.03_01';
$Verbose = 0;
use SDBM_File;
@ISA = qw(SDBM_File);
-$VERSION = '1.03';
+$VERSION = '1.03_01';
$Verbose = 0;
=cut
use Storable ();
-$VERSION = '1.03';
+$VERSION = '1.03_01';
$Verbose = 0;
sub TIEHASH {
use vars qw($VERSION @Pagers $Bindir $Pod2man
$Temp_Files_Created $Temp_File_Lifetime
);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
#..........................................................................
my @class_list = @{ $self->{'formatter_classes'} || [] };
$self->die( "WHAT? Nothing in the formatter class list!?" ) unless @class_list;
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+
my $good_class_found;
foreach my $c (@class_list) {
DEBUG > 4 and print "Trying to load $c...\n";
my $self = shift;
my $lang = shift;
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
my $pack = 'POD2::' . uc($lang);
eval "require $pack";
if ( !$@ && $pack->can('new') ) {
use warnings;
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
use Carp qw(croak carp);
use Config qw(%Config);
use strict;
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
BEGIN { # Make a DEBUG constant ASAP
*DEBUG = defined( &Pod::Perldoc::DEBUG )
use parent qw(Pod::Perldoc::BaseTo);
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
sub is_pageable { 1 }
sub write_with_binmode { 0 }
use vars qw(@ISA);
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
# Pick our superclass...
#
use parent qw(Pod::Perldoc::BaseTo);
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
use File::Spec::Functions qw(catfile);
use Pod::Man 2.18;
use parent qw(Pod::Perldoc::BaseTo);
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
# This is unlike ToMan.pm in that it emits the raw nroff source!
use parent qw(Pod::Perldoc::BaseTo);
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
sub is_pageable { 1 }
sub write_with_binmode { 0 }
use parent qw( Pod::Simple::RTF );
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
sub is_pageable { 0 }
sub write_with_binmode { 0 }
use warnings;
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
use parent qw(Pod::Perldoc::BaseTo);
use warnings;
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
use parent qw(Pod::Perldoc::BaseTo);
use warnings;
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
use parent qw(Pod::Perldoc::BaseTo);
use parent qw( Pod::Simple::XMLOutStream );
use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.23_01';
sub is_pageable { 0 }
sub write_with_binmode { 0 }
{ no strict 'vars';
- $VERSION = '0.33';
+ $VERSION = '0.33_01';
%EXPORT_TAGS = (
standard => [qw(openlog syslog closelog setlogmask)],
sub can_load {
my ($module, $verbose) = @_;
local($SIG{__DIE__}, $SIG{__WARN__}, $@);
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
my $loaded = eval "use $module; 1";
warn $@ if not $loaded and $verbose;
return $loaded
#!/usr/bin/perl -w
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use warnings;
use App::Prove;
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
use constant GOT_TIME_HIRES => do {
eval 'use Time::HiRes qw(time);';
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 METHODS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
$ENV{HARNESS_ACTIVE} = 1;
$ENV{HARNESS_VERSION} = $VERSION;
use TAP::Object;
use Text::ParseWords qw/shellwords/;
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
# Get the parts of @INC which are changed from the stock list AND
# preserve reordering of stock directories.
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
my $DEFAULT_TAP_VERSION = 12;
my $MAX_TAP_VERSION = 13;
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head2 DESCRIPTION
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
=head1 SYNOPSIS
use base 'TAP::Object';
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
# TODO:
# Handle blessed object syntax
use base 'TAP::Object';
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x;
my $ESCAPE_KEY = qr{ (?: ^\W ) | $ESCAPE_CHAR }x;
=cut
-our $VERSION = '3.30';
+our $VERSION = '3.30_01';
# Backwards compatibility for exportable variable names.
*verbose = *Verbose;
$planned = 0;
}
-$VERSION = '1.26';
+$VERSION = '1.26_01';
require Exporter;
@ISA=('Exporter');
my($result, $expected, $detail, $prefix) = @_;
return _diff_complain_external(@_) if $ENV{PERL_TEST_DIFF};
return _diff_complain_algdiff(@_)
- if eval { require Algorithm::Diff; Algorithm::Diff->VERSION(1.15); 1; };
+ if eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require Algorithm::Diff; Algorithm::Diff->VERSION(1.15);
+ 1;
+ };
$told_about_diff++ or print $TESTERR <<"EOT";
# $prefix (Install the Algorithm::Diff module to have differences in multiline
}
}
-$VERSION = "2.30";
+$VERSION = "2.30_01";
@ISA = qw(Exporter);
@EXPORT = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
@EXPORT = qw(%NetConfig);
@ISA = qw(Net::LocalCfg Exporter);
-$VERSION = "1.13";
-
-eval { local $SIG{__DIE__}; require Net::LocalCfg };
+$VERSION = "1.13_01";
+
+eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ local $SIG{__DIE__};
+ require Net::LocalCfg;
+};
%NetConfig = (
nntp_hosts => [],
@ISA = qw(Exporter);
@EXPORT_OK = qw(hostname hostdomain hostfqdn domainname);
-$VERSION = "2.23";
+$VERSION = "2.23_01";
my ($host, $domain, $fqdn) = (undef, undef, undef);
use Net::Config;
use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC);
-$VERSION = '2.79';
+$VERSION = '2.79_01';
@ISA = qw(Exporter Net::Cmd IO::Socket::INET);
# Someday I will "use constant", when I am not bothered to much about
require Net::FTP::dataconn;
@ISA = qw(Net::FTP::dataconn);
-$VERSION = "1.19";
+$VERSION = "1.19_01";
sub read {
require Net::FTP::I;
@ISA = qw(Net::FTP::I);
-$VERSION = "0.01";
+$VERSION = "0.01_01";
1;
require Net::FTP::dataconn;
@ISA = qw(Net::FTP::dataconn);
-$VERSION = "1.12";
+$VERSION = "1.12_01";
sub read {
require Net::FTP::I;
@ISA = qw(Net::FTP::I);
-$VERSION = "0.01";
+$VERSION = "0.01_01";
1;
use Net::Cmd;
use Errno;
-$VERSION = '0.12';
+$VERSION = '0.12_01';
@ISA = qw(IO::Socket::INET);
use Time::Local;
use Net::Config;
-$VERSION = "2.26";
+$VERSION = "2.26_01";
@ISA = qw(Net::Cmd IO::Socket::INET);
use FileHandle;
use vars qw($VERSION $TESTING);
-$VERSION = "2.14";
+$VERSION = "2.14_01";
my %netrc = ();
use Carp;
use Net::Config;
-$VERSION = "2.31";
+$VERSION = "2.31_01";
@ISA = qw(Net::Cmd IO::Socket::INET);
use Net::Cmd;
use Net::Config;
-$VERSION = "2.33";
+$VERSION = "2.33_01";
@ISA = qw(Net::Cmd IO::Socket::INET);
@ISA = qw(Exporter);
@EXPORT_OK = qw(inet_time inet_daytime);
-$VERSION = "2.10";
+$VERSION = "2.10_01";
$TIMEOUT = 120;
@ISA = qw(Exporter);
@EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod
dos2unix);
-$VERSION = '1.18';
+$VERSION = '1.18_01';
my $Is_VMS = $^O eq 'VMS';
my $Is_VMS_mode = $Is_VMS;
my $vms_efs;
my $vms_case;
- if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
+ if (eval { local $SIG{__DIE__};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require VMS::Feature; }) {
$vms_unix_rpt = VMS::Feature::current("filename_unix_report");
$vms_efs = VMS::Feature::current("efs_charset");
$vms_case = VMS::Feature::current("efs_case_preserve");
our $VERSION;
BEGIN {
- $VERSION = '3.24';
+ $VERSION = '3.24_01';
}
use ExtUtils::ParseXS::Constants $VERSION;
use ExtUtils::ParseXS::CountLines $VERSION;
use warnings;
use Symbol;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
=head1 NAME
package ExtUtils::ParseXS::CountLines;
use strict;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
our $SECTION_END_MARKER;
use strict;
use warnings;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
=head1 NAME
use File::Spec;
use ExtUtils::ParseXS::Constants ();
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
our (@ISA, @EXPORT_OK);
@ISA = qw(Exporter);
use 5.006001;
use strict;
use warnings;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
#use Carp qw(croak);
require ExtUtils::ParseXS;
use 5.006001;
use strict;
use warnings;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
use ExtUtils::Typemaps;
use 5.006001;
use strict;
use warnings;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
=head1 NAME
use 5.006001;
use strict;
use warnings;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
=head1 NAME
use warnings;
require ExtUtils::Typemaps;
-our $VERSION = '3.24';
+our $VERSION = '3.24_01';
=head1 NAME
#!perl
use 5.006;
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
eval {
require ExtUtils::ParseXS;
);
%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);
-$VERSION = "0.40";
+$VERSION = "0.40_01";
sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function
BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }
# define the constant 'DEBUG' at compile-time
-$VERSION = "1.05";
+$VERSION = "1.05_01";
@ISA = ();
use I18N::LangTags qw(alternate_language_tags locale2language_tag);
print " About to use $module ...\n" if DEBUG;
{
local $SIG{'__DIE__'};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval "require $module"; # used to be "use $module", but no point in that.
}
if($@) {
# Time-stamp: "2004-10-06 23:26:21 ADT"
use strict;
use vars qw(%Name %Is_Disrec $Debug $VERSION);
-$VERSION = '0.39';
+$VERSION = '0.39_01';
# POD at the end.
#----------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = "1.31";
+our $VERSION = "1.31_01";
XSLoader::load 'IO', $VERSION;
sub import {
my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
or croak $@;
}
use File::Spec;
@ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.10";
+$VERSION = "1.10_01";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(DIR_UNLINK);
@ISA = qw(IO::Handle IO::Seekable Exporter);
-$VERSION = "1.16";
+$VERSION = "1.16_01";
@EXPORT = @IO::Seekable::EXPORT;
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.35";
+$VERSION = "1.35_01";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(
use Carp;
use Symbol;
-$VERSION = "1.15";
+$VERSION = "1.15_01";
sub new {
my $type = shift;
our(@ISA, @EXPORT_OK, @EXPORT, $VERSION);
@ISA = qw(Exporter);
-$VERSION = "0.09";
+$VERSION = "0.09_01";
@EXPORT = qw( POLLIN
POLLOUT
@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
@ISA = qw(Exporter);
-$VERSION = "1.10";
+$VERSION = "1.10_01";
$VERSION = eval $VERSION;
sub seek {
use vars qw($VERSION @ISA);
require Exporter;
-$VERSION = "1.22";
+$VERSION = "1.22_01";
@ISA = qw(Exporter); # This is only so we can do version checking
@ISA = qw(IO::Handle);
-$VERSION = "1.38";
+$VERSION = "1.38_01";
@EXPORT_OK = qw(sockatmark);
use Errno;
@ISA = qw(IO::Socket);
-$VERSION = "1.35";
+$VERSION = "1.35_01";
my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
use Carp;
@ISA = qw(IO::Socket);
-$VERSION = "1.26";
+$VERSION = "1.26_01";
$VERSION = eval $VERSION;
IO::Socket::UNIX->register_domain( AF_UNIX );
}
-$VERSION = '1.25';
+$VERSION = '1.25_01';
@ISA = ();
$MATCH_SUPERS = 1;
local $SIG{'__DIE__'};
local $@;
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval "require $module"; # used to be "use $module", but no point in that.
if($@) {
use Locale::Maketext;
-our $VERSION = '1.20';
+our $VERSION = '1.20_01';
=head1 NAME
use Locale::Maketext;
-our $VERSION = '1.20';
+our $VERSION = '1.20_01';
sub zorp { return scalar @_ }
=cut
+BEGIN { pop @INC if $INC[-1] eq '.' }
use Module::CoreList;
use Getopt::Long qw(:config no_ignore_case);
use Pod::Usage;
%bug_tracker %deprecated %delta/;
use Module::CoreList::TieHashDelta;
use version;
-$VERSION = '5.20150822';
+$VERSION = '5.20150822_01';
sub _released_order { # Sort helper, to make '?' sort after everything else
(substr($released{$a}, 0, 1) eq "?")
use strict;
use vars qw($VERSION);
-$VERSION = '5.20150822';
+$VERSION = '5.20150822_01';
sub TIEHASH {
my ($class, $changed, $removed, $parent) = @_;
use Module::CoreList;
use Module::CoreList::TieHashDelta;
-$VERSION = '5.20150822';
+$VERSION = '5.20150822_01';
sub utilities {
my $perl = shift;
@ISA = qw(Exporter);
@EXPORT = qw(pingecho);
-$VERSION = "2.43";
+$VERSION = "2.43_01";
# Constants
$timeout # Seconds after which ping times out
) = @_;
- eval { require Net::Ping::External; }
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require Net::Ping::External;
+ }
or croak('Protocol "external" not supported on your system: Net::Ping::External not found');
return Net::Ping::External::ping(ip => $ip, timeout => $timeout);
}
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
my $xs_version = $VERSION;
$VERSION =~ tr/_//;
my $use_vms_feature;
BEGIN {
if ($^O eq 'VMS') {
- if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
+ if (eval { local $SIG{__DIE__};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require VMS::Feature; }) {
$use_vms_feature = 1;
}
}
use strict;
use vars qw(@ISA $VERSION);
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
my %module = (MacOS => 'Mac',
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
@ISA = qw(File::Spec::Unix);
if ($mntopts and ($mntopts =~ /,managed/)) {
return 0;
}
- eval { require Win32API::File; } or return 1;
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require Win32API::File;
+ } or return 1;
my $osFsType = "\0"x256;
my $osVolName = "\0"x256;
my $ouFsFlags = 0;
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
require File::Spec::Unix;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
require Exporter;
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
@ISA = qw(File::Spec::Unix);
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
@ISA = qw(File::Spec::Unix);
use strict;
use vars qw($VERSION);
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
my $xs_version = $VERSION;
$VERSION =~ tr/_//;
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
@ISA = qw(File::Spec::Unix);
my $use_feature;
BEGIN {
- if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
+ if (eval { local $SIG{__DIE__};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require VMS::Feature; }) {
$use_feature = 1;
}
}
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.48_02';
+$VERSION = '3.48_03';
$VERSION =~ tr/_//;
@ISA = qw(File::Spec::Unix);
=cut
sub case_tolerant {
- eval { require Win32API::File; } or return 1;
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require Win32API::File;
+ } or return 1;
my $drive = shift || "C:";
my $osFsType = "\0"x256;
my $osVolName = "\0"x256;
use vars qw($canonical $forgive_me $VERSION);
-$VERSION = '2.49_01';
+$VERSION = '2.49_02';
BEGIN {
- if (eval { local $SIG{__DIE__}; require Log::Agent; 1 }) {
+ if (eval {
+ local $SIG{__DIE__};
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require Log::Agent;
+ 1;
+ }) {
Log::Agent->import;
}
#
use strict 'vars';
use vars qw($VERSION);
-$VERSION = '2.22';
+$VERSION = '2.22_01';
$VERSION = eval $VERSION;
# constant.pm is slow
{
local $SIG{__DIE__};
my $fn = _module_to_filename($base);
- eval { require $fn };
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require $fn
+ };
# Only ignore "Can't locate" errors from our eval require.
# Other fatal errors (syntax etc) must be reported.
#
}
use vars qw(%attr $VERSION);
-$VERSION = '2.17';
+$VERSION = '2.17_01';
# constant.pm is slow
sub PUBLIC () { 2**0 }
@ISA = qw(Exporter Math::BigFloat);
-$VERSION = '0.36';
+$VERSION = '0.36_01';
use overload; # inherit overload from BigFloat
@ISA = qw(Exporter Math::BigInt);
-$VERSION = '0.36';
+$VERSION = '0.36_01';
use overload; # inherit overload from BigInt
package bigint;
use 5.006;
-$VERSION = '0.36';
+$VERSION = '0.36_01';
use Exporter;
@ISA = qw( Exporter );
@EXPORT_OK = qw( PI e bpi bexp hex oct );
# see if we can find Math::BigInt::Lite
if (!defined $a && !defined $p) # rounding won't work to well
{
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval 'require Math::BigInt::Lite;';
if ($@ eq '')
{
package bignum;
use 5.006;
-$VERSION = '0.37';
+$VERSION = '0.37_01';
use Exporter;
@ISA = qw( bigint );
@EXPORT_OK = qw( PI e bexp bpi hex oct );
# see if we can find Math::BigInt::Lite
if (!defined $a && !defined $p) # rounding won't work to well
{
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval 'require Math::BigInt::Lite;';
if ($@ eq '')
{
package bigrat;
use 5.006;
-$VERSION = '0.36';
+$VERSION = '0.36_01';
require Exporter;
@ISA = qw( bigint );
@EXPORT_OK = qw( PI e bpi bexp hex oct );
# see if we can find Math::BigInt::Lite
if (!defined $a && !defined $p) # rounding won't work to well
{
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval 'require Math::BigInt::Lite;';
if ($@ eq '')
{
=cut
+BEGIN { pop @INC if $INC[-1] eq '.' }
use Pod::Html;
pod2html @ARGV;
require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION = 1.21;
+$VERSION = 1.21_01;
@ISA = qw(Exporter);
@EXPORT = qw(pod2html htmlify);
@EXPORT_OK = qw(anchorify);
# Debugger for Perl 5.00x; perl5db.pl patch level:
use vars qw($VERSION $header);
-$VERSION = '1.44_01';
+$VERSION = '1.44_02';
$header = "perl5db.pl version $VERSION";
= $obj->cmd_args =~ /\A(?:(\d*)\s*(.*))?\z/) {
# See if we've got the necessary support.
- if (!eval { require PadWalker; PadWalker->VERSION(0.08) }) {
+ if (!eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require PadWalker; PadWalker->VERSION(0.08) }) {
my $Err = $@;
_db_warn(
$Err =~ /locate/
=cut
- if (not $text =~ /::/ and eval { require PadWalker } ) {
+ if (not $text =~ /::/ and eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require PadWalker } ) {
my $level = 1;
while (1) {
my @info = caller($level);
,"uncommitted-changes"
,"CVE-2016-6185"
,"CVE-2015-8853"
+ ,"CVE-2016-1238"
#endif
PERL_GIT_UNPUSHED_COMMITS /* do not remove this line */
,NULL
-CPAN cpan/CPAN/lib/CPAN/Author.pm 792d7c8fbe6ed45e1244e589a8b712878c5dd2a5
-CPAN cpan/CPAN/lib/CPAN/CacheMgr.pm 132adb7f96014ec7ded45457044ed925d3181475
-CPAN cpan/CPAN/lib/CPAN/FTP.pm 3f0d5fc572c8749a566d73ca892c6c89ce3fb676
-CPAN cpan/CPAN/lib/CPAN/HandleConfig.pm e52052b6ef6d1d664f0ffa6cf01d48a8d1321520
-CPAN cpan/CPAN/lib/CPAN/HTTP/Client.pm 242842ca566fd8e3d776deb549ff758a571ca2e3
-CPAN cpan/CPAN/lib/CPAN/Index.pm 73aee30450127c5ac4dc05abc2c10a8accd4b198
-CPAN cpan/CPAN/lib/CPAN/LWP/UserAgent.pm e09525b0c2377c5ac28b7fad1b6d70c57e343913
-CPAN cpan/CPAN/lib/CPAN/Mirrors.pm 580e74746abaf1628d533015d5b529d82a470af4
+CPAN cpan/CPAN/lib/CPAN/Author.pm 31efd07ada1df7bcc6519cad79d3c7c9e60bd67b
+CPAN cpan/CPAN/lib/CPAN/CacheMgr.pm e2815c9aa177d4d502ce792f3a528a7dd310d98e
+CPAN cpan/CPAN/lib/CPAN/FTP.pm 900d2531161ffbadce1ea1b4c66b40fbc01fa281
+CPAN cpan/CPAN/lib/CPAN/HandleConfig.pm fff963a15a4d570297c29a1d129d644746bf3c7f
+CPAN cpan/CPAN/lib/CPAN/HTTP/Client.pm dfb05ba98a9ccbbd082bf2255ed3bbd6249e4f53
+CPAN cpan/CPAN/lib/CPAN/Index.pm e16aaca226d692a886fc289b4daef8885caa9d20
+CPAN cpan/CPAN/lib/CPAN/LWP/UserAgent.pm c9a184eeefe4388ef2c85ae04496d06219d7cab0
+CPAN cpan/CPAN/lib/CPAN/Mirrors.pm b68181e1e27a88247b5ce5f2a41d999fbeaf9ad0
Digest::MD5 cpan/Digest-MD5/t/files.t c1417867017210ce3d199eb9d55d8ef61fdf1a83
-Encode cpan/Encode/bin/enc2xs f60036fd3574ec05c9aab7f4db00a828d5dea92d
+Encode cpan/Encode/bin/enc2xs a0685329f5e713b1f3866d90b61e3210fe943d8b
Encode cpan/Encode/Byte/Makefile.PL 0986e25f981a3bf182a13a0060d28d4efedd87e6
Encode cpan/Encode/CN/Makefile.PL 5507a49d822d0c1d14e967f4595e29e9c873540b
Encode cpan/Encode/EBCDIC/Makefile.PL 574289638393eb6b1109eb9a6874bfe8c5d2ddea
-Encode cpan/Encode/Encode.pm fc26f74b44148a4f0c9e8ec2b0a9c20eae96249d
+Encode cpan/Encode/Encode.pm f0961aba6e6917cefd47e2953d8c428d22ebc55e
Encode cpan/Encode/Encode.xs 9ee24e3915319bdec044535667a39e3dc531fdcf
Encode cpan/Encode/Encode/Makefile_PL.e2x 4d0420b19cea75c513842329c1906221130bdb6b
Encode cpan/Encode/JP/Makefile.PL a9ca9c836424cc2ecbefa4933d9da5db54131b98
$RCSID = '$Id: c2ph,v 1.7 95/10/28 10:41:47 tchrist Exp Locker: tchrist $';
+BEGIN { pop @INC if $INC[-1] eq '.' }
use File::Temp;
######################################################################
print OUT <<'!NO!SUBS!';
+BEGIN { pop @INC if $INC[-1] eq '.' }
+
use strict;
use Config;
print OUT <<'!NO!SUBS!';
+BEGIN { pop @INC if $INC[-1] eq '.' }
+
use warnings;
=head1 NAME
# $Id: Configure,v 1.8 1997/03/04 09:22:32 gbarr Exp $
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use IO::File;
use Getopt::Std;
my @patches = Config::local_patches();
my $patch_tags = join "", map /(\S+)/ ? "+$1 " : (), @patches;
+BEGIN { pop @INC if $INC[-1] eq '.' }
use warnings;
use strict;
use Config;
# This "$file" file was generated by "$0"
require 5;
-BEGIN { \$^W = 1 if \$ENV{'PERLDOCDEBUG'} }
+BEGIN {
+ \$^W = 1 if \$ENV{'PERLDOCDEBUG'};
+ pop \@INC if \$INC[-1] eq '.';
+}
use Pod::Perldoc;
exit( Pod::Perldoc->run() );
print OUT <<'!NO!SUBS!';
+BEGIN { pop @INC if $INC[-1] eq '.' }
+
sub usage {
warn "@_\n" if @_;
print << " EOUSAGE";
if \$running_under_some_shell;
!GROK!THIS!
+print <<'!NO!SUBS!';
+
+BEGIN { pop @INC if $INC[-1] eq '.' }
+
+!NO!SUBS!
+
while (<IN>) {
print OUT unless /^package diagnostics/;
}
#!/usr/local/bin/perl
+BEGIN { pop @INC if $INC[-1] eq '.' }
use Config;
use File::Basename qw(&basename &dirname);
use Cwd;
#!/usr/bin/perl
+BEGIN { pop @INC if $INC[-1] eq '.' }
use Config;
use File::Basename qw(&basename &dirname);
use Cwd;
projects / openbsd / commitdiff