diff options
269 files changed, 430 insertions, 279 deletions
diff --git a/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptar b/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptar index 0eaffa7ccb7..9dc6402c666 100644 --- a/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptar +++ b/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptar @@ -1,6 +1,7 @@ #!/usr/bin/perl use strict; +BEGIN { pop @INC if $INC[-1] eq '.' } use File::Find; use Getopt::Std; use Archive::Tar; diff --git a/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptardiff b/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptardiff index 5205d63c3fb..c119dfa1698 100644 --- a/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptardiff +++ b/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptardiff @@ -1,5 +1,6 @@ #!/usr/bin/perl +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use Archive::Tar; use Getopt::Std; diff --git a/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptargrep b/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptargrep index 0367d849d7e..30ebf65a63a 100644 --- a/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptargrep +++ b/gnu/usr.bin/perl/cpan/Archive-Tar/bin/ptargrep @@ -4,6 +4,7 @@ # archive. See 'ptargrep --help' for more documentation. # +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use warnings; diff --git a/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar.pm b/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar.pm index 50afbb334b9..6418d34dbf2 100644 --- a/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar.pm +++ b/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar.pm @@ -31,7 +31,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD $DEBUG = 0; $WARN = 1; $FOLLOW_SYMLINK = 0; -$VERSION = "1.96"; +$VERSION = "1.96_01"; $CHOWN = 1; $CHMOD = 1; $SAME_PERMISSIONS = $> == 0 ? 1 : 0; diff --git a/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm index 957ac278adc..0989664adff 100644 --- a/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm +++ b/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm @@ -3,7 +3,7 @@ package Archive::Tar::Constant; BEGIN { require Exporter; - $VERSION = '1.96'; + $VERSION = '1.96_01'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; diff --git a/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/File.pm b/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/File.pm index 39fca623fab..59d1f254b92 100644 --- a/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/File.pm +++ b/gnu/usr.bin/perl/cpan/Archive-Tar/lib/Archive/Tar/File.pm @@ -13,7 +13,7 @@ use Archive::Tar::Constant; 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 ### diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/App/Cpan.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/App/Cpan.pm index b548bcc0ae6..78433e2f9c7 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/App/Cpan.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/App/Cpan.pm @@ -6,7 +6,7 @@ use vars qw($VERSION); use if $] < 5.008 => "IO::Scalar"; -$VERSION = '1.62'; +$VERSION = '1.62_01'; =head1 NAME @@ -458,9 +458,20 @@ sub AUTOLOAD { 1 } 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 ) { @@ -898,7 +909,7 @@ sub _load_local_lib # -I { $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" ); } @@ -1013,7 +1024,7 @@ sub _get_file { 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; @@ -1035,7 +1046,7 @@ sub _gitify { 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; @@ -1099,7 +1110,7 @@ sub _show_Changes 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; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN.pm index 4ed4b6cdd00..afecfabca41 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN.pm @@ -2,7 +2,7 @@ # 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 @@ -1090,6 +1090,8 @@ sub has_usable { ] }; 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() }; @@ -1118,6 +1120,8 @@ sub has_inst { $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; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Author.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Author.pm index 572f3ab31d5..33f9e18eb63 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Author.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Author.pm @@ -8,7 +8,7 @@ use CPAN::InfoObj; use vars qw( $VERSION ); -$VERSION = "5.5002"; +$VERSION = "5.5002_01"; package CPAN::Author; use strict; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Bundle.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Bundle.pm index 1525dde5e32..eb452ef840e 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Bundle.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Bundle.pm @@ -8,7 +8,7 @@ use CPAN::Module; use vars qw( $VERSION ); -$VERSION = "5.5001"; +$VERSION = "5.5001_01"; sub look { my $self = shift; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/CacheMgr.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/CacheMgr.pm index 144efd62b3b..b1d988200bc 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/CacheMgr.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/CacheMgr.pm @@ -10,7 +10,7 @@ use File::Find; use vars qw( $VERSION ); -$VERSION = "5.5002"; +$VERSION = "5.5002_01"; package CPAN::CacheMgr; use strict; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Complete.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Complete.pm index 588e6e6c2cf..59dc9468948 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Complete.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Complete.pm @@ -42,7 +42,7 @@ use strict; use vars qw( $VERSION ); -$VERSION = "5.5001"; +$VERSION = "5.5001_01"; package CPAN::Complete; use strict; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Debug.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Debug.pm index 48e394bd419..887dcd7500f 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Debug.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Debug.pm @@ -3,7 +3,7 @@ package CPAN::Debug; use strict; use vars qw($VERSION); -$VERSION = "5.5001"; +$VERSION = "5.5001_01"; # module is internal to CPAN.pm %CPAN::DEBUG = qw[ diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/DeferredCode.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/DeferredCode.pm index 0db37a64853..e7aa37d1341 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/DeferredCode.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/DeferredCode.pm @@ -7,7 +7,7 @@ use overload fallback => 1, map { ($_ => 'run') } qw/ bool "" 0+ /; -$VERSION = "5.50"; +$VERSION = "5.50_01"; sub run { $_[0]->(); diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distribution.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distribution.pm index 9a0870717da..370356c4090 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distribution.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distribution.pm @@ -9,7 +9,7 @@ use CPAN::InfoObj; use File::Path (); @CPAN::Distribution::ISA = qw(CPAN::InfoObj); use vars qw($VERSION); -$VERSION = "2.02"; +$VERSION = "2.02_01"; # Accessors sub cpan_comment { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distroprefs.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distroprefs.pm index 05b19faa47a..f92d15e427a 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distroprefs.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distroprefs.pm @@ -6,7 +6,7 @@ use strict; package CPAN::Distroprefs; use vars qw($VERSION); -$VERSION = '6.0001'; +$VERSION = '6.0001_01'; package CPAN::Distroprefs::Result; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distrostatus.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distrostatus.pm index 0cc6cc9a793..645c70ec7dd 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distrostatus.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Distrostatus.pm @@ -7,7 +7,7 @@ use vars qw($something_has_failed_at); use vars qw( $VERSION ); -$VERSION = "5.5"; +$VERSION = "5.5_01"; sub new { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/RecursiveDependency.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/RecursiveDependency.pm index b928ad74e31..09b12c01756 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/RecursiveDependency.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/RecursiveDependency.pm @@ -7,7 +7,7 @@ use overload '""' => "as_string"; 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) diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/blocked_urllist.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/blocked_urllist.pm index 87d07d13f14..03c58b0d45a 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/blocked_urllist.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/blocked_urllist.pm @@ -7,7 +7,7 @@ use overload '""' => "as_string"; use vars qw( $VERSION ); -$VERSION = "1.001"; +$VERSION = "1.001_01"; sub new { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_not_installed.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_not_installed.pm index 1e7fa83a53b..44d11a81b9e 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_not_installed.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_not_installed.pm @@ -7,7 +7,7 @@ use overload '""' => "as_string"; use vars qw( $VERSION ); -$VERSION = "5.5"; +$VERSION = "5.5_01"; sub new { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_process_error.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_process_error.pm index ae8c14ebebe..3a47aaa4446 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_process_error.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Exception/yaml_process_error.pm @@ -7,7 +7,7 @@ use overload '""' => "as_string"; use vars qw( $VERSION ); -$VERSION = "5.5"; +$VERSION = "5.5_01"; sub new { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP.pm index 831f234d3ce..2f97f24f394 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP.pm @@ -14,7 +14,7 @@ use vars qw($connect_to_internet_ok $Ua $Thesite $ThesiteURL $Themethod); 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 diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP/netrc.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP/netrc.pm index 0778e8adbcc..80ba52a9db5 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP/netrc.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FTP/netrc.pm @@ -1,7 +1,7 @@ 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 { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FirstTime.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FirstTime.pm index d1a8eef2607..7ba4ea7950b 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FirstTime.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/FirstTime.pm @@ -10,7 +10,7 @@ use File::Path (); use File::Spec (); use CPAN::Mirrors (); use vars qw($VERSION $auto_config); -$VERSION = "5.5306"; +$VERSION = "5.5306_01"; =head1 NAME diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Client.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Client.pm index 4fc792c26a4..0c3190b00bb 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Client.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Client.pm @@ -6,7 +6,7 @@ use vars qw(@ISA); 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 diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Credentials.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Credentials.pm index 097c67d0ed7..01912dfb533 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Credentials.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/Credentials.pm @@ -4,7 +4,7 @@ package CPAN::HTTP::Credentials; 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(); diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HandleConfig.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HandleConfig.pm index a138128bdfe..83c7e8a3d33 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HandleConfig.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HandleConfig.pm @@ -12,7 +12,7 @@ CPAN::HandleConfig - internal configuration handling for CPAN.pm =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", @@ -768,7 +768,7 @@ sub prefs_lookup { 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 diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Index.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Index.pm index 8205d78bd02..acbe6c6ef9c 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Index.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Index.pm @@ -1,7 +1,7 @@ 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; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/InfoObj.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/InfoObj.pm index 9198316c69f..f9b2ece7b65 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/InfoObj.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/InfoObj.pm @@ -11,7 +11,7 @@ use Cwd qw(chdir); use vars qw( $VERSION ); -$VERSION = "5.5"; +$VERSION = "5.5_01"; sub ro { my $self = shift; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Kwalify.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Kwalify.pm index 3cade90b91a..116664456be 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Kwalify.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Kwalify.pm @@ -49,7 +49,7 @@ use strict; package CPAN::Kwalify; use vars qw($VERSION $VAR1); -$VERSION = "5.50"; +$VERSION = "5.50_01"; use File::Spec (); diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/LWP/UserAgent.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/LWP/UserAgent.pm index fe8bf27a4a9..6daa5aed61f 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/LWP/UserAgent.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/LWP/UserAgent.pm @@ -6,7 +6,7 @@ use vars qw(@ISA $USER $PASSWD $SETUPDONE); 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 { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Mirrors.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Mirrors.pm index 37e7ce0ef9f..6c25108c129 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Mirrors.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Mirrors.pm @@ -34,7 +34,7 @@ CPAN::Mirrors - Get CPAN mirror information and select a fast one package CPAN::Mirrors; use strict; use vars qw($VERSION $urllist $silent); -$VERSION = "1.9601"; +$VERSION = "1.9601_01"; use Carp; use FileHandle; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Module.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Module.pm index 2c0c71ae7d1..5594e88c4c1 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Module.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Module.pm @@ -7,7 +7,7 @@ use strict; 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 diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Nox.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Nox.pm index f7ed4a38afb..d9f7246d4aa 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Nox.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Nox.pm @@ -10,7 +10,7 @@ use Exporter (); @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'); diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Prompt.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Prompt.pm index 7a4e2d81e13..8f6b0d1331d 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Prompt.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Prompt.pm @@ -6,7 +6,7 @@ use vars qw($prompt); use vars qw( $VERSION ); -$VERSION = "5.5"; +$VERSION = "5.5_01"; $prompt = "cpan> "; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Queue.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Queue.pm index 8027d22d3b2..67c12946968 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Queue.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Queue.pm @@ -72,7 +72,7 @@ package CPAN::Queue; # in CPAN::Distribution::rematein. use vars qw{ @All $VERSION }; -$VERSION = "5.5002"; +$VERSION = "5.5002_01"; # CPAN::Queue::queue_item ; sub queue_item { diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Shell.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Shell.pm index 9e0bb14a2b8..9189f1bde1d 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Shell.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Shell.pm @@ -47,7 +47,7 @@ use vars qw( "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); diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Tarzip.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Tarzip.pm index f585a01bf72..722165b865d 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Tarzip.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Tarzip.pm @@ -4,7 +4,7 @@ use strict; 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 diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/URL.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/URL.pm index 52b42eec88e..f85bf5f427c 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/URL.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/URL.pm @@ -8,7 +8,7 @@ use overload '""' => "as_string", fallback => 1; use vars qw( $VERSION ); -$VERSION = "5.5"; +$VERSION = "5.5_01"; sub new { my($class,%args) = @_; diff --git a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Version.pm b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Version.pm index fa75221d9da..b18edb1642e 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Version.pm +++ b/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Version.pm @@ -2,7 +2,7 @@ package CPAN::Version; use strict; use vars qw($VERSION); -$VERSION = "5.5003"; +$VERSION = "5.5003_01"; # CPAN::Version::vcmp courtesy Jost Krieger sub vcmp { diff --git a/gnu/usr.bin/perl/cpan/CPAN/scripts/cpan b/gnu/usr.bin/perl/cpan/CPAN/scripts/cpan index 3b4a5b5067b..9ec88ac2eb4 100644 --- a/gnu/usr.bin/perl/cpan/CPAN/scripts/cpan +++ b/gnu/usr.bin/perl/cpan/CPAN/scripts/cpan @@ -1,10 +1,11 @@ #!/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 ); diff --git a/gnu/usr.bin/perl/cpan/Digest-SHA/lib/Digest/SHA.pm b/gnu/usr.bin/perl/cpan/Digest-SHA/lib/Digest/SHA.pm index 57f0bd6ef6f..ebc06428217 100644 --- a/gnu/usr.bin/perl/cpan/Digest-SHA/lib/Digest/SHA.pm +++ b/gnu/usr.bin/perl/cpan/Digest-SHA/lib/Digest/SHA.pm @@ -7,7 +7,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use Fcntl; use integer; -$VERSION = '5.88'; +$VERSION = '5.88_01'; require Exporter; require DynaLoader; diff --git a/gnu/usr.bin/perl/cpan/Digest-SHA/shasum b/gnu/usr.bin/perl/cpan/Digest-SHA/shasum index 32b71733bf7..16b7225db00 100644 --- a/gnu/usr.bin/perl/cpan/Digest-SHA/shasum +++ b/gnu/usr.bin/perl/cpan/Digest-SHA/shasum @@ -94,11 +94,12 @@ L<Digest::SHA::PurePerl>. 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) = @_; diff --git a/gnu/usr.bin/perl/cpan/Digest/Digest.pm b/gnu/usr.bin/perl/cpan/Digest/Digest.pm index c3355a8bd44..16dae9d16e5 100644 --- a/gnu/usr.bin/perl/cpan/Digest/Digest.pm +++ b/gnu/usr.bin/perl/cpan/Digest/Digest.pm @@ -3,7 +3,7 @@ package Digest; 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]], @@ -38,7 +38,11 @@ sub new 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; diff --git a/gnu/usr.bin/perl/cpan/Digest/Digest/base.pm b/gnu/usr.bin/perl/cpan/Digest/Digest/base.pm index b2844ba3400..936d55d7327 100644 --- a/gnu/usr.bin/perl/cpan/Digest/Digest/base.pm +++ b/gnu/usr.bin/perl/cpan/Digest/Digest/base.pm @@ -2,7 +2,7 @@ package Digest::base; use strict; use vars qw($VERSION); -$VERSION = "1.16"; +$VERSION = "1.16_01"; # subclass is supposed to implement at least these sub new; diff --git a/gnu/usr.bin/perl/cpan/Digest/Digest/file.pm b/gnu/usr.bin/perl/cpan/Digest/Digest/file.pm index 3b86e63503a..02f39df5c45 100644 --- a/gnu/usr.bin/perl/cpan/Digest/Digest/file.pm +++ b/gnu/usr.bin/perl/cpan/Digest/Digest/file.pm @@ -8,7 +8,7 @@ use Digest (); 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); diff --git a/gnu/usr.bin/perl/cpan/Encode/Encode.pm b/gnu/usr.bin/perl/cpan/Encode/Encode.pm index 5d477f6bdec..ac90e549edd 100644 --- a/gnu/usr.bin/perl/cpan/Encode/Encode.pm +++ b/gnu/usr.bin/perl/cpan/Encode/Encode.pm @@ -56,6 +56,8 @@ require Encode::Config; eval { local $SIG{__DIE__}; local $SIG{__WARN__}; + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; require Encode::ConfigLocal; }; diff --git a/gnu/usr.bin/perl/cpan/Encode/Encode/_PM.e2x b/gnu/usr.bin/perl/cpan/Encode/Encode/_PM.e2x index eb59cd1b520..8b137e68347 100644 --- a/gnu/usr.bin/perl/cpan/Encode/Encode/_PM.e2x +++ b/gnu/usr.bin/perl/cpan/Encode/Encode/_PM.e2x @@ -1,5 +1,5 @@ package Encode::$_Name_; -our $VERSION = "0.01"; +our $VERSION = "0.01_01"; use Encode; use XSLoader; diff --git a/gnu/usr.bin/perl/cpan/Encode/bin/enc2xs b/gnu/usr.bin/perl/cpan/Encode/bin/enc2xs index c44487d0c21..8e7f8114890 100644 --- a/gnu/usr.bin/perl/cpan/Encode/bin/enc2xs +++ b/gnu/usr.bin/perl/cpan/Encode/bin/enc2xs @@ -4,6 +4,7 @@ BEGIN { # 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; diff --git a/gnu/usr.bin/perl/cpan/Encode/bin/piconv b/gnu/usr.bin/perl/cpan/Encode/bin/piconv index 669304b68ce..f041503a131 100644 --- a/gnu/usr.bin/perl/cpan/Encode/bin/piconv +++ b/gnu/usr.bin/perl/cpan/Encode/bin/piconv @@ -1,6 +1,7 @@ #!./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 ; diff --git a/gnu/usr.bin/perl/cpan/Encode/bin/ucmlint b/gnu/usr.bin/perl/cpan/Encode/bin/ucmlint index 622376d8851..25e0d67ef60 100644 --- a/gnu/usr.bin/perl/cpan/Encode/bin/ucmlint +++ b/gnu/usr.bin/perl/cpan/Encode/bin/ucmlint @@ -3,6 +3,7 @@ # $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 }; diff --git a/gnu/usr.bin/perl/cpan/Encode/bin/unidump b/gnu/usr.bin/perl/cpan/Encode/bin/unidump index ae0da30852b..f19082744fa 100644 --- a/gnu/usr.bin/perl/cpan/Encode/bin/unidump +++ b/gnu/usr.bin/perl/cpan/Encode/bin/unidump @@ -1,5 +1,6 @@ #!./perl +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use Encode; use Getopt::Std; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/bin/instmodsh b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/bin/instmodsh index 8b9aa95ae74..ab0f9d1ffef 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/bin/instmodsh +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/bin/instmodsh @@ -1,5 +1,6 @@ #!/usr/bin/perl -w +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use IO::File; use ExtUtils::Packlist; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm index f45d41d0323..1ca35f07255 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm @@ -10,7 +10,7 @@ our @ISA = qw(Exporter); 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'; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm index 2d21e12d824..4f8befcf9f4 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm @@ -2,7 +2,7 @@ package ExtUtils::Liblist; use strict; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; use File::Spec; require ExtUtils::Liblist::Kid; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm index e39c8b27ced..f45ff7e7fd4 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm @@ -11,7 +11,7 @@ use 5.006; use strict; use warnings; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; use ExtUtils::MakeMaker::Config; use Cwd 'cwd'; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm index a34015f94d1..f9116a76377 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm @@ -3,7 +3,7 @@ package ExtUtils::MM; use strict; use ExtUtils::MakeMaker::Config; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; require ExtUtils::Liblist; require ExtUtils::MakeMaker; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm index 7c600a6c2dc..f18083c7c5c 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm @@ -1,7 +1,7 @@ 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); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm index 20663111ef1..8a5a36c5de0 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_Any; use strict; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; use Carp; use File::Spec; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm index 060ce36837b..14378ff4e4a 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm @@ -26,7 +26,7 @@ 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'; =item os_flavor diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm index d8f3e3a88fa..d8ae013f32e 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm @@ -9,7 +9,7 @@ require ExtUtils::MM_Unix; require ExtUtils::MM_Win32; our @ISA = qw( ExtUtils::MM_Unix ); -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm index 4f52a9859db..8bdd3fdca42 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm @@ -2,7 +2,7 @@ package ExtUtils::MM_DOS; use strict; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm index 861a544172a..3fa1a7720cc 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm @@ -7,7 +7,7 @@ BEGIN { our @ISA = qw( ExtUtils::MM_Unix ); } -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm index cd3a12a38c0..074312e1601 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm @@ -2,7 +2,7 @@ package ExtUtils::MM_MacOS; use strict; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; sub new { die <<'UNSUPPORTED'; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm index f6b0b5bd3a7..670d5767671 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm @@ -22,7 +22,7 @@ use strict; 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); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm index 52bc4d1f108..f9455189ad4 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm @@ -5,7 +5,7 @@ use strict; 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; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm index 7b74bf41d56..7c6ea5ee2af 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm @@ -1,7 +1,7 @@ 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); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm index 5b9730025fd..93a90bc687a 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm @@ -1,7 +1,7 @@ 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); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm index da9e0f79ff3..48ab3bd3abf 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm @@ -15,7 +15,7 @@ use ExtUtils::MakeMaker qw($Verbose neatvalue); # 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; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm index 331cbcd0fa0..25ca35113bc 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm @@ -15,7 +15,7 @@ BEGIN { use File::Basename; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm index 648ba5401b6..935783b4a08 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm @@ -1,7 +1,7 @@ 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); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm index e056d2eacc5..bd9148e6d25 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm @@ -27,7 +27,7 @@ use ExtUtils::MakeMaker qw( neatvalue ); 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` diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm index 9c7958058c2..523c8fc23f9 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm @@ -2,7 +2,7 @@ package ExtUtils::MM_Win95; use strict; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; require ExtUtils::MM_Win32; our @ISA = qw(ExtUtils::MM_Win32); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm index 37f0e9e29d1..cf942403032 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm @@ -3,7 +3,7 @@ package ExtUtils::MY; use strict; require ExtUtils::MM; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; our @ISA = qw(ExtUtils::MM); { diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm index d2fabf6b282..796617ff1ae 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm @@ -18,7 +18,7 @@ our @Overridable; 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$ diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm index 5c703f08080..a6b7a651ce2 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm @@ -2,7 +2,7 @@ package ExtUtils::MakeMaker::Config; use strict; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; use Config (); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/FAQ.pod b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/FAQ.pod index e5acb6a0706..426a0aaddf3 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/FAQ.pod +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/FAQ.pod @@ -1,6 +1,6 @@ package ExtUtils::MakeMaker::FAQ; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; 1; __END__ diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Tutorial.pod b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Tutorial.pod index 5d43d40c39f..1c7ba66e212 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Tutorial.pod +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Tutorial.pod @@ -1,6 +1,6 @@ package ExtUtils::MakeMaker::Tutorial; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm index bb85e85cec2..758e71cf746 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm @@ -3,7 +3,7 @@ package ExtUtils::Mkbootstrap; # 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'); diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm index 176faf17529..daf4987455d 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm @@ -10,7 +10,7 @@ use Config; our @ISA = qw(Exporter); our @EXPORT = qw(&Mksymlists); -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; sub Mksymlists { my(%spec) = @_; diff --git a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm index d8cd4bcb42a..2d3ab933cdd 100644 --- a/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm +++ b/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm @@ -3,7 +3,7 @@ package ExtUtils::testlib; use strict; use warnings; -our $VERSION = '6.98'; +our $VERSION = '6.98_01'; use Cwd; use File::Spec; diff --git a/gnu/usr.bin/perl/cpan/File-Fetch/lib/File/Fetch.pm b/gnu/usr.bin/perl/cpan/File-Fetch/lib/File/Fetch.pm index 7d6a263e2bf..de2ab123363 100644 --- a/gnu/usr.bin/perl/cpan/File-Fetch/lib/File/Fetch.pm +++ b/gnu/usr.bin/perl/cpan/File-Fetch/lib/File/Fetch.pm @@ -22,7 +22,7 @@ use vars qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT $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'; @@ -567,6 +567,8 @@ sub _lwp_fetch { }; + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; unless( can_load( modules => $use_list ) ) { $METHOD_FAIL->{'lwp'} = 1; return; @@ -619,6 +621,8 @@ sub _httptiny_fetch { }; + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; unless( can_load(modules => $use_list) ) { $METHOD_FAIL->{'httptiny'} = 1; return; @@ -658,6 +662,8 @@ sub _httplite_fetch { }; + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; unless( can_load(modules => $use_list) ) { $METHOD_FAIL->{'httplite'} = 1; return; @@ -733,6 +739,8 @@ sub _iosock_fetch { 'IO::Select' => '0.0', }; + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; unless( can_load(modules => $use_list) ) { $METHOD_FAIL->{'iosock'} = 1; return; @@ -814,6 +822,8 @@ sub _netftp_fetch { 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 ) ) { diff --git a/gnu/usr.bin/perl/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/gnu/usr.bin/perl/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm index e348753b933..9a2e0bd570a 100644 --- a/gnu/usr.bin/perl/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm +++ b/gnu/usr.bin/perl/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm @@ -3,7 +3,7 @@ package HTTP::Tiny; 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 (); @@ -1368,6 +1368,8 @@ sub _find_CA_file { 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 }; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/bin/zipdetails b/gnu/usr.bin/perl/cpan/IO-Compress/bin/zipdetails index 02498504575..319e40bc420 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/bin/zipdetails +++ b/gnu/usr.bin/perl/cpan/IO-Compress/bin/zipdetails @@ -5,6 +5,7 @@ # Display info on the contents of a Zip file # +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use warnings ; @@ -177,7 +178,7 @@ my %Extras = ( ); -my $VERSION = "1.06" ; +my $VERSION = "1.06_01" ; my $FH; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/Compress/Zlib.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/Compress/Zlib.pm index 57e74a8c07b..66caf5d6c6a 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/Compress/Zlib.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/Compress/Zlib.pm @@ -17,7 +17,7 @@ use warnings ; 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; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/File/GlobMapper.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/File/GlobMapper.pm index 76d4bed1178..ae8b94b414f 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/File/GlobMapper.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/File/GlobMapper.pm @@ -26,7 +26,7 @@ BEGIN our ($Error); our ($VERSION, @EXPORT_OK); -$VERSION = '1.000'; +$VERSION = '1.000_01'; @EXPORT_OK = qw( globmap ); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm index c77e06b29b7..7f2f32b5299 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm @@ -9,7 +9,7 @@ use IO::Compress::Base::Common 2.064 qw(:Status); use Compress::Raw::Bzip2 2.064 ; our ($VERSION); -$VERSION = '2.064'; +$VERSION = '2.064_01'; sub mkCompObject { diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm index c8fdf2a2c7d..32e25a0a11a 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm @@ -10,7 +10,7 @@ use Compress::Raw::Zlib 2.064 qw( !crc32 !adler32 ) ; 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; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm index b612de0a22b..9f233e87810 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm @@ -7,7 +7,7 @@ use bytes; use IO::Compress::Base::Common 2.064 qw(:Status); our ($VERSION); -$VERSION = '2.064'; +$VERSION = '2.064_01'; sub mkCompObject { diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base.pm index 6dc791776ab..2653431536d 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base.pm @@ -20,7 +20,7 @@ use Symbol(); 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. diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm index aa61c792c86..7559ab4eb14 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm @@ -11,7 +11,7 @@ use File::GlobMapper; 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 @@ -464,7 +464,7 @@ sub createSelfTiedObject # #require Exporter; #our ($VERSION, @ISA, @EXPORT); -#$VERSION = '2.000_08'; +#$VERSION = '2.000_09'; #@ISA = qw(Exporter); $EXPORT_TAGS{Parse} = [qw( ParseParameters diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm index fc62b4f4f95..b3a7f0117f4 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm @@ -14,7 +14,7 @@ use IO::Compress::Adapter::Bzip2 2.064 ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $Bzip2Error = ''; @ISA = qw(Exporter IO::Compress::Base); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Deflate.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Deflate.pm index d8848d7f696..0e411dc3950 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Deflate.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Deflate.pm @@ -17,7 +17,7 @@ use IO::Compress::Base::Common 2.064 qw(); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $DeflateError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip.pm index febeea6ca91..c43b950e0da 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip.pm @@ -25,7 +25,7 @@ BEGIN our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $GzipError = '' ; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm index f6c15c72c9a..64d108d4113 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm @@ -9,7 +9,7 @@ require Exporter; 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); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm index 38f7f7dab0e..67a6efa1d4c 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm @@ -14,7 +14,7 @@ require 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); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip.pm index a8645b346af..f6e50cb270e 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip.pm @@ -36,7 +36,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $ZipError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm index 02609b940a4..c17ff674e8c 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm @@ -7,7 +7,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS); -$VERSION = '2.064'; +$VERSION = '2.064_01'; @ISA = qw(Exporter); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm index 7dd1622dfb2..c508b920413 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm @@ -9,7 +9,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT); -$VERSION = '2.064'; +$VERSION = '2.064_01'; @ISA = qw(Exporter); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm index ca92b5f9bd9..d9d35061344 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm @@ -8,7 +8,7 @@ use bytes; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.064'; +$VERSION = '2.064_01'; use IO::Compress::Gzip::Constants 2.064 ; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm index 53b8ef1d583..808c1834fe1 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm @@ -9,7 +9,7 @@ use IO::Compress::Base::Common 2.064 qw(:Status); use Compress::Raw::Bzip2 2.064 ; our ($VERSION, @ISA); -$VERSION = '2.064'; +$VERSION = '2.064_01'; sub mkUncompObject { diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm index 812f3f87d1b..cd8416c3e14 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm @@ -9,7 +9,7 @@ use IO::Compress::Zip::Constants ; our ($VERSION); -$VERSION = '2.064'; +$VERSION = '2.064_01'; use Compress::Raw::Zlib 2.064 (); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm index 68beea145c9..6912ec983ec 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm @@ -8,7 +8,7 @@ use IO::Compress::Base::Common 2.064 qw(:Status); 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'; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm index cdf229a252a..33fd0b26f5d 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm @@ -21,7 +21,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $AnyInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm index e2b104dff43..45439f4341f 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm @@ -13,7 +13,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $AnyUncompressError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -27,6 +27,8 @@ Exporter::export_ok_tags('all'); 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 ;'; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Base.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Base.pm index 4d1b7802850..a474d21bca4 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Base.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Base.pm @@ -9,7 +9,7 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter IO::File); -$VERSION = '2.064'; +$VERSION = '2.064_01'; use constant G_EOF => 0 ; use constant G_ERR => -1 ; diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm index aad835f32f3..379d20a0556 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm @@ -12,7 +12,7 @@ use IO::Uncompress::Adapter::Bunzip2 2.064 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $Bunzip2Error = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm index b8012d0ee0d..65d2f9630a3 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm @@ -28,7 +28,7 @@ Exporter::export_ok_tags('all'); $GunzipError = ''; -$VERSION = '2.064'; +$VERSION = '2.064_01'; sub new { diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm index a5df2eacb95..d0aeb457fef 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm @@ -13,7 +13,7 @@ use IO::Uncompress::RawInflate 2.064 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $InflateError = ''; @ISA = qw( Exporter IO::Uncompress::RawInflate ); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm index b0259f30430..d46c4b80e61 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm @@ -14,7 +14,7 @@ use IO::Uncompress::Adapter::Inflate 2.064 ; 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 ); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm index 3b36f839a05..84d7ea4cfb3 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm @@ -31,7 +31,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup); -$VERSION = '2.064'; +$VERSION = '2.064_01'; $UnzipError = ''; @ISA = qw(Exporter IO::Uncompress::RawInflate); diff --git a/gnu/usr.bin/perl/cpan/IO-Compress/private/MakeUtil.pm b/gnu/usr.bin/perl/cpan/IO-Compress/private/MakeUtil.pm index 9d7e5ed262d..9fd9d6ada5b 100644 --- a/gnu/usr.bin/perl/cpan/IO-Compress/private/MakeUtil.pm +++ b/gnu/usr.bin/perl/cpan/IO-Compress/private/MakeUtil.pm @@ -6,7 +6,7 @@ use strict ; use Config qw(%Config); use File::Copy; -my $VERSION = '1.0'; +my $VERSION = '1.0_01'; BEGIN diff --git a/gnu/usr.bin/perl/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/gnu/usr.bin/perl/cpan/IPC-Cmd/lib/IPC/Cmd.pm index 6a82bdff9bd..4705f044338 100644 --- a/gnu/usr.bin/perl/cpan/IPC-Cmd/lib/IPC/Cmd.pm +++ b/gnu/usr.bin/perl/cpan/IPC-Cmd/lib/IPC/Cmd.pm @@ -18,7 +18,7 @@ BEGIN { $HAVE_MONOTONIC ]; - $VERSION = '0.92'; + $VERSION = '0.92_01'; $VERBOSE = 0; $DEBUG = 0; $WARN = 1; @@ -142,6 +142,8 @@ sub can_use_ipc_run { 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), @@ -169,6 +171,8 @@ sub can_use_ipc_open3 { ### 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), diff --git a/gnu/usr.bin/perl/cpan/JSON-PP/bin/json_pp b/gnu/usr.bin/perl/cpan/JSON-PP/bin/json_pp index df9d243eba6..2ec9059d64a 100644 --- a/gnu/usr.bin/perl/cpan/JSON-PP/bin/json_pp +++ b/gnu/usr.bin/perl/cpan/JSON-PP/bin/json_pp @@ -1,11 +1,12 @@ #!/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 diff --git a/gnu/usr.bin/perl/cpan/JSON-PP/lib/JSON/PP.pm b/gnu/usr.bin/perl/cpan/JSON-PP/lib/JSON/PP.pm index c1b4f1b0f5b..882b04abd5c 100644 --- a/gnu/usr.bin/perl/cpan/JSON-PP/lib/JSON/PP.pm +++ b/gnu/usr.bin/perl/cpan/JSON-PP/lib/JSON/PP.pm @@ -11,7 +11,7 @@ use Carp (); 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); @@ -1425,7 +1425,7 @@ use constant INCR_M_JSON => 3; # outside anything, count nesting 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*'; diff --git a/gnu/usr.bin/perl/cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm b/gnu/usr.bin/perl/cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm index 30760f3c26d..9e61670802e 100644 --- a/gnu/usr.bin/perl/cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm +++ b/gnu/usr.bin/perl/cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm @@ -1,5 +1,5 @@ package Locale::Maketext::Simple; -$Locale::Maketext::Simple::VERSION = '0.21'; +$Locale::Maketext::Simple::VERSION = '0.21_01'; use strict; use 5.005; @@ -134,7 +134,12 @@ sub load_loc { 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; diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize.pm index 9a58c4ac743..f4e6522d483 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize.pm @@ -9,7 +9,7 @@ # 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 } @@ -184,7 +184,11 @@ sub _my_tie { } 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"; } diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize/AnyDBM_File.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize/AnyDBM_File.pm index cf5f7f5bc21..a44542080fd 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize/AnyDBM_File.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize/AnyDBM_File.pm @@ -11,7 +11,7 @@ See L<Memoize>. =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; diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize/Expire.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize/Expire.pm index 9b3b94444c1..9b0ed450330 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize/Expire.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize/Expire.pm @@ -3,7 +3,7 @@ package Memoize::Expire; # 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: diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireFile.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireFile.pm index 06b72f8ef2a..ec119cad708 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireFile.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireFile.pm @@ -10,7 +10,7 @@ See L<Memoize::Expire>. =cut -$VERSION = '1.03'; +$VERSION = '1.03_01'; use Carp; my $Zero = pack("N", 0); diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireTest.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireTest.pm index 7f7dd28af6f..3734d6aff0b 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireTest.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize/ExpireTest.pm @@ -18,7 +18,7 @@ to mjd-perl-memoize+@plover.com. =cut -$VERSION = '1.03'; +$VERSION = '1.03_01'; my %cache; sub TIEHASH { diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize/NDBM_File.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize/NDBM_File.pm index ff934c656bc..d8a41efe6e1 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize/NDBM_File.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize/NDBM_File.pm @@ -12,7 +12,7 @@ See L<Memoize>. use NDBM_File; @ISA = qw(NDBM_File); -$VERSION = '1.03'; +$VERSION = '1.03_01'; $Verbose = 0; diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize/SDBM_File.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize/SDBM_File.pm index 7cfaa4afb98..4c2fcf83e2b 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize/SDBM_File.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize/SDBM_File.pm @@ -12,7 +12,7 @@ See L<Memoize>. use SDBM_File; @ISA = qw(SDBM_File); -$VERSION = '1.03'; +$VERSION = '1.03_01'; $Verbose = 0; diff --git a/gnu/usr.bin/perl/cpan/Memoize/Memoize/Storable.pm b/gnu/usr.bin/perl/cpan/Memoize/Memoize/Storable.pm index 13147972972..18e64181bf7 100644 --- a/gnu/usr.bin/perl/cpan/Memoize/Memoize/Storable.pm +++ b/gnu/usr.bin/perl/cpan/Memoize/Memoize/Storable.pm @@ -11,7 +11,7 @@ See L<Memoize>. =cut use Storable (); -$VERSION = '1.03'; +$VERSION = '1.03_01'; $Verbose = 0; sub TIEHASH { diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm index 6ddd21d95d4..98974e2518f 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm @@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir); use vars qw($VERSION @Pagers $Bindir $Pod2man $Temp_Files_Created $Temp_File_Lifetime ); -$VERSION = '3.23'; +$VERSION = '3.23_01'; #.......................................................................... @@ -563,6 +563,9 @@ sub find_good_formatter_class { 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"; @@ -994,6 +997,8 @@ sub new_translator { # $tr = $self->new_translator($lang); 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') ) { diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm index b216d426114..b95dc20e241 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm @@ -3,7 +3,7 @@ use strict; use warnings; use vars qw($VERSION); -$VERSION = '3.23'; +$VERSION = '3.23_01'; use Carp qw(croak carp); use Config qw(%Config); diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm index 3f4e218a946..8de2e9baf1d 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm @@ -2,7 +2,7 @@ package Pod::Perldoc::GetOptsOO; use strict; use vars qw($VERSION); -$VERSION = '3.23'; +$VERSION = '3.23_01'; BEGIN { # Make a DEBUG constant ASAP *DEBUG = defined( &Pod::Perldoc::DEBUG ) diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm index f0ecbced987..3dfe4888e85 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm @@ -4,7 +4,7 @@ use warnings; 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 } diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm index 8bff3381201..aa451a75781 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm @@ -4,7 +4,7 @@ use warnings; use vars qw(@ISA); use vars qw($VERSION); -$VERSION = '3.23'; +$VERSION = '3.23_01'; # Pick our superclass... # diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm index 1080dbd93e0..bf550cf5975 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm @@ -5,7 +5,7 @@ use warnings; 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; diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm index 9777581db23..f7cc1b9eb0a 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm @@ -4,7 +4,7 @@ use warnings; 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! diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm index 97185bbb42d..6db43bf80c4 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm @@ -4,7 +4,7 @@ use warnings; 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 } diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm index 588405715bb..3dff305b564 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm @@ -4,7 +4,7 @@ use warnings; 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 } diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm index 693b52a9059..9057bb23987 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm @@ -3,7 +3,7 @@ use strict; use warnings; use vars qw($VERSION); -$VERSION = '3.23'; +$VERSION = '3.23_01'; use parent qw(Pod::Perldoc::BaseTo); diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm index 07f44cd5630..ad4950e0776 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm @@ -3,7 +3,7 @@ use strict; use warnings; use vars qw($VERSION); -$VERSION = '3.23'; +$VERSION = '3.23_01'; use parent qw(Pod::Perldoc::BaseTo); diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm index 627289e88a1..f43772b4aa7 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm @@ -3,7 +3,7 @@ use strict; use warnings; use vars qw($VERSION); -$VERSION = '3.23'; +$VERSION = '3.23_01'; use parent qw(Pod::Perldoc::BaseTo); diff --git a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm index 5c86b3ebda1..e4abcbe79c3 100644 --- a/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm +++ b/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm @@ -6,7 +6,7 @@ use vars qw($VERSION); 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 } diff --git a/gnu/usr.bin/perl/cpan/Sys-Syslog/Syslog.pm b/gnu/usr.bin/perl/cpan/Sys-Syslog/Syslog.pm index 25164af320c..28f36c7ea01 100644 --- a/gnu/usr.bin/perl/cpan/Sys-Syslog/Syslog.pm +++ b/gnu/usr.bin/perl/cpan/Sys-Syslog/Syslog.pm @@ -11,7 +11,7 @@ require 5.005; { no strict 'vars'; - $VERSION = '0.33'; + $VERSION = '0.33_01'; %EXPORT_TAGS = ( standard => [qw(openlog syslog closelog setlogmask)], @@ -888,6 +888,8 @@ sub silent_eval (&) { 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 diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/bin/prove b/gnu/usr.bin/perl/cpan/Test-Harness/bin/prove index 968fa7311d4..4ce8c9119bf 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/bin/prove +++ b/gnu/usr.bin/perl/cpan/Test-Harness/bin/prove @@ -1,5 +1,6 @@ #!/usr/bin/perl -w +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use warnings; use App::Prove; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm index 44aaf6dda30..b3212eeb751 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm @@ -22,7 +22,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm index 519ba01d6c7..a6c01aa5c9a 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm @@ -29,7 +29,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm index 8e44ea3a4b1..1ecbd44ac9e 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm @@ -18,7 +18,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm index 21f20a12e61..de0af64f136 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm @@ -13,7 +13,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm index 02f8b5e48ce..c55b0dc6f1a 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm @@ -16,7 +16,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; use constant GOT_TIME_HIRES => do { eval 'use Time::HiRes qw(time);'; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm index 1bb357d9bd0..27db47d3697 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm @@ -62,7 +62,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm index d22752e12ee..c100e5c8f73 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm @@ -75,7 +75,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm index 5ac9fa1a16e..cea483224e0 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm index f9cd7af5964..36d893cf96d 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm @@ -45,7 +45,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm index 16ce97153d9..ff91b9a0852 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm @@ -30,7 +30,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm index 2e72d914ba8..36bb6882bee 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm @@ -17,7 +17,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm index 4719f22b1b6..85c23c4e6aa 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm @@ -14,7 +14,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm index 120b4953c36..56db47f2a2e 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm @@ -27,7 +27,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 METHODS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm index 53d8d18bea6..cb2e1264575 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm @@ -20,7 +20,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; $ENV{HARNESS_ACTIVE} = 1; $ENV{HARNESS_VERSION} = $VERSION; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm index 1a9d7196c40..ae027dc8e1c 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm @@ -7,7 +7,7 @@ use constant IS_VMS => ( $^O eq 'VMS' ); 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. diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm index 21c53dc06a8..4423a187d1e 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm @@ -13,7 +13,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm index 1ebb0db969c..0204eaba345 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm @@ -31,7 +31,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; my $DEFAULT_TAP_VERSION = 12; my $MAX_TAP_VERSION = 13; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm index ee4befd3fa3..0e04ce8131d 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm @@ -16,7 +16,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm index fe1b9adba2e..be67570a856 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm @@ -18,7 +18,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm index 886f5f4656b..6890477332e 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm index 929b1004585..8a8c5929538 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm index aaf6b6cf61a..a21ae597dca 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm @@ -20,7 +20,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm index 9181fc7ae79..7564c94d33a 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm index 8b75724fd8e..04e71606198 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm @@ -20,7 +20,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm index 65cd46de13e..922da668a38 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm @@ -21,7 +21,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm index eaad1d2f41b..8b6c1ed8966 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm @@ -28,7 +28,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm index 2ae35d6e603..add30304033 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm index d69ec5189c2..cdfade51df2 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm index d85243c9766..19ba57d5810 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm index 1479e8836cd..9b6eb6fc306 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm index 749f26cbe2b..cfe4db5f0f9 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm index 3e1a6112271..f65e6457fe0 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm index 8b08e33d063..c9ecb6f0317 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm index a6f86e3c46d..93681186759 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm @@ -15,7 +15,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm index 65d31d25367..d43f52b1f43 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm @@ -33,7 +33,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head2 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm index 7c5cedf7edc..229c8fbc93b 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm @@ -17,7 +17,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm index 6375a7b8786..70b94f8eb7a 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm @@ -14,7 +14,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm index f590ea58f04..2e7ab886309 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm @@ -14,7 +14,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm index 0e2da09f644..77ff38a5fee 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm @@ -18,7 +18,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm index dc257e0ed9f..6721dcfbebb 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm @@ -16,7 +16,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm index 5522625d317..bf377c8805f 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm @@ -20,7 +20,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm index b48660fc782..d6bc696ac72 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm @@ -20,7 +20,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm index 944fb2a9b37..1259bd04efd 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm @@ -20,7 +20,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm index 1a1867b922d..acb93ed6f9f 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm @@ -25,7 +25,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm index 627a1e1311a..b5e76c4fd71 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm @@ -20,7 +20,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm index 8a61a4bfd92..7052f5e4dfb 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm @@ -5,7 +5,7 @@ use warnings; use base 'TAP::Object'; -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; # TODO: # Handle blessed object syntax diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm index 811c190d124..4727be5325b 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm @@ -5,7 +5,7 @@ use warnings; 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; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm index aa54574b44c..096f16cdb0b 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm @@ -35,7 +35,7 @@ Version 3.30 =cut -our $VERSION = '3.30'; +our $VERSION = '3.30_01'; # Backwards compatibility for exportable variable names. *verbose = *Verbose; diff --git a/gnu/usr.bin/perl/cpan/Test/lib/Test.pm b/gnu/usr.bin/perl/cpan/Test/lib/Test.pm index 108bc10a167..973f8dd8258 100644 --- a/gnu/usr.bin/perl/cpan/Test/lib/Test.pm +++ b/gnu/usr.bin/perl/cpan/Test/lib/Test.pm @@ -20,7 +20,7 @@ sub _reset_globals { $planned = 0; } -$VERSION = '1.26'; +$VERSION = '1.26_01'; require Exporter; @ISA=('Exporter'); @@ -480,7 +480,12 @@ sub _diff_complain { 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 diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/Cmd.pm b/gnu/usr.bin/perl/cpan/libnet/Net/Cmd.pm index d1a1fed8af2..09245534459 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/Cmd.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/Cmd.pm @@ -37,7 +37,7 @@ BEGIN { } } -$VERSION = "2.30"; +$VERSION = "2.30_01"; @ISA = qw(Exporter); @EXPORT = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING); diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/Config.pm b/gnu/usr.bin/perl/cpan/libnet/Net/Config.pm index ba163321805..af9982b93f7 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/Config.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/Config.pm @@ -13,9 +13,14 @@ use strict; @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 => [], diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/Domain.pm b/gnu/usr.bin/perl/cpan/libnet/Net/Domain.pm index 5b964c3d5fa..6ac46d7b26f 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/Domain.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/Domain.pm @@ -16,7 +16,7 @@ use Net::Config; @ISA = qw(Exporter); @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname); -$VERSION = "2.23"; +$VERSION = "2.23_01"; my ($host, $domain, $fqdn) = (undef, undef, undef); diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/FTP.pm b/gnu/usr.bin/perl/cpan/libnet/Net/FTP.pm index 8107ef77e65..3863b6f11c2 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/FTP.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/FTP.pm @@ -21,7 +21,7 @@ use Net::Cmd; 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 diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/A.pm b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/A.pm index c117d6937d4..76a28a3d70c 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/A.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/A.pm @@ -10,7 +10,7 @@ use Carp; require Net::FTP::dataconn; @ISA = qw(Net::FTP::dataconn); -$VERSION = "1.19"; +$VERSION = "1.19_01"; sub read { diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/E.pm b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/E.pm index d480cd72955..751220ccd09 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/E.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/E.pm @@ -3,6 +3,6 @@ package Net::FTP::E; require Net::FTP::I; @ISA = qw(Net::FTP::I); -$VERSION = "0.01"; +$VERSION = "0.01_01"; 1; diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/I.pm b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/I.pm index 449bb99eab6..affe45843ec 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/I.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/I.pm @@ -10,7 +10,7 @@ use Carp; require Net::FTP::dataconn; @ISA = qw(Net::FTP::dataconn); -$VERSION = "1.12"; +$VERSION = "1.12_01"; sub read { diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/L.pm b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/L.pm index f7423cb9f95..e62e88acad3 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/L.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/L.pm @@ -3,6 +3,6 @@ package Net::FTP::L; require Net::FTP::I; @ISA = qw(Net::FTP::I); -$VERSION = "0.01"; +$VERSION = "0.01_01"; 1; diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/dataconn.pm b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/dataconn.pm index 3f9366894d1..550ee5a55b6 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/FTP/dataconn.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/FTP/dataconn.pm @@ -9,7 +9,7 @@ use vars qw(@ISA $timeout $VERSION); use Net::Cmd; use Errno; -$VERSION = '0.12'; +$VERSION = '0.12_01'; @ISA = qw(IO::Socket::INET); diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/NNTP.pm b/gnu/usr.bin/perl/cpan/libnet/Net/NNTP.pm index 07c373776e9..8cfaaee6af0 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/NNTP.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/NNTP.pm @@ -14,7 +14,7 @@ use Carp; use Time::Local; use Net::Config; -$VERSION = "2.26"; +$VERSION = "2.26_01"; @ISA = qw(Net::Cmd IO::Socket::INET); diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/Netrc.pm b/gnu/usr.bin/perl/cpan/libnet/Net/Netrc.pm index fbe8d6d5be4..81639757109 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/Netrc.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/Netrc.pm @@ -11,7 +11,7 @@ use strict; use FileHandle; use vars qw($VERSION $TESTING); -$VERSION = "2.14"; +$VERSION = "2.14_01"; my %netrc = (); diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/POP3.pm b/gnu/usr.bin/perl/cpan/libnet/Net/POP3.pm index 4b94a11a87e..e3f3e5f9494 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/POP3.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/POP3.pm @@ -13,7 +13,7 @@ use Net::Cmd; use Carp; use Net::Config; -$VERSION = "2.31"; +$VERSION = "2.31_01"; @ISA = qw(Net::Cmd IO::Socket::INET); diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/SMTP.pm b/gnu/usr.bin/perl/cpan/libnet/Net/SMTP.pm index 705b5c5ab51..80b68ae97d1 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/SMTP.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/SMTP.pm @@ -16,7 +16,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -$VERSION = "2.33"; +$VERSION = "2.33_01"; @ISA = qw(Net::Cmd IO::Socket::INET); diff --git a/gnu/usr.bin/perl/cpan/libnet/Net/Time.pm b/gnu/usr.bin/perl/cpan/libnet/Net/Time.pm index 6f1dd04586e..a163a8120f7 100644 --- a/gnu/usr.bin/perl/cpan/libnet/Net/Time.pm +++ b/gnu/usr.bin/perl/cpan/libnet/Net/Time.pm @@ -17,7 +17,7 @@ use IO::Select; @ISA = qw(Exporter); @EXPORT_OK = qw(inet_time inet_daytime); -$VERSION = "2.10"; +$VERSION = "2.10_01"; $TIMEOUT = 120; diff --git a/gnu/usr.bin/perl/dist/ExtUtils-Command/lib/ExtUtils/Command.pm b/gnu/usr.bin/perl/dist/ExtUtils-Command/lib/ExtUtils/Command.pm index 035d5ca9df7..7f1c903244c 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-Command/lib/ExtUtils/Command.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-Command/lib/ExtUtils/Command.pm @@ -12,7 +12,7 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); @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; @@ -24,7 +24,10 @@ if( $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"); diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 25d3175ec33..576391ba5fd 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -11,7 +11,7 @@ use Symbol; our $VERSION; BEGIN { - $VERSION = '3.24'; + $VERSION = '3.24_01'; } use ExtUtils::ParseXS::Constants $VERSION; use ExtUtils::ParseXS::CountLines $VERSION; diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm index 34fbc21e167..a7ea14c0a53 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm @@ -3,7 +3,7 @@ use strict; use warnings; use Symbol; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm index 473f531f750..e78f2935386 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm @@ -1,7 +1,7 @@ package ExtUtils::ParseXS::CountLines; use strict; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; our $SECTION_END_MARKER; diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm index 4b8cbd6337e..fb2125fe6ab 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm @@ -2,7 +2,7 @@ package ExtUtils::ParseXS::Eval; use strict; use warnings; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm index 8fb3492090b..8839102db79 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm @@ -5,7 +5,7 @@ use Exporter; use File::Spec; use ExtUtils::ParseXS::Constants (); -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; our (@ISA, @EXPORT_OK); @ISA = qw(Exporter); diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm index 8bc04af04c3..268d8e04637 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm @@ -2,7 +2,7 @@ package ExtUtils::Typemaps; use 5.006001; use strict; use warnings; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; #use Carp qw(croak); require ExtUtils::ParseXS; diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Cmd.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Cmd.pm index a0be008148d..67480d6c302 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Cmd.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Cmd.pm @@ -2,7 +2,7 @@ package ExtUtils::Typemaps::Cmd; use 5.006001; use strict; use warnings; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; use ExtUtils::Typemaps; diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/InputMap.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/InputMap.pm index 3a600354832..81dd9cc9eb6 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/InputMap.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/InputMap.pm @@ -2,7 +2,7 @@ package ExtUtils::Typemaps::InputMap; use 5.006001; use strict; use warnings; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/OutputMap.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/OutputMap.pm index 8a019696c84..a45b655ec00 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/OutputMap.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/OutputMap.pm @@ -2,7 +2,7 @@ package ExtUtils::Typemaps::OutputMap; use 5.006001; use strict; use warnings; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Type.pm b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Type.pm index fa0ca695949..5f29fa5a088 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Type.pm +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps/Type.pm @@ -4,7 +4,7 @@ use strict; use warnings; require ExtUtils::Typemaps; -our $VERSION = '3.24'; +our $VERSION = '3.24_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/xsubpp b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/xsubpp index e2ac71a3234..d596cdff42a 100644 --- a/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/xsubpp +++ b/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/xsubpp @@ -1,5 +1,6 @@ #!perl use 5.006; +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; eval { require ExtUtils::ParseXS; diff --git a/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags.pm b/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags.pm index 9bac7077e70..282a6107957 100644 --- a/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags.pm +++ b/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags.pm @@ -19,7 +19,7 @@ require Exporter; ); %EXPORT_TAGS = ('ALL' => \@EXPORT_OK); -$VERSION = "0.40"; +$VERSION = "0.40_01"; sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function diff --git a/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm b/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm index f13d5460b32..a877fbfc7f7 100644 --- a/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm +++ b/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm @@ -11,7 +11,7 @@ use vars qw( @ISA $VERSION $MATCH_SUPERS $USING_LANGUAGE_TAGS 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); @@ -145,6 +145,8 @@ sub _try_use { # Basically a wrapper around "require Modulename" 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($@) { diff --git a/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/List.pm b/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/List.pm index 786d7b89bb8..a5e29799a33 100644 --- a/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/List.pm +++ b/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/LangTags/List.pm @@ -4,7 +4,7 @@ package I18N::LangTags::List; # 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. #---------------------------------------------------------------------- diff --git a/gnu/usr.bin/perl/dist/IO/IO.pm b/gnu/usr.bin/perl/dist/IO/IO.pm index ba89f0c8e6c..c23246156be 100644 --- a/gnu/usr.bin/perl/dist/IO/IO.pm +++ b/gnu/usr.bin/perl/dist/IO/IO.pm @@ -7,7 +7,7 @@ use Carp; use strict; use warnings; -our $VERSION = "1.31"; +our $VERSION = "1.31_01"; XSLoader::load 'IO', $VERSION; sub import { @@ -18,6 +18,8 @@ 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 $@; } diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Dir.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Dir.pm index 7326d7823d4..9f1e4d8c313 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Dir.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Dir.pm @@ -19,7 +19,7 @@ use File::stat; use File::Spec; @ISA = qw(Tie::Hash Exporter); -$VERSION = "1.10"; +$VERSION = "1.10_01"; $VERSION = eval $VERSION; @EXPORT_OK = qw(DIR_UNLINK); diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/File.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/File.pm index 8b29bac2210..31ca7ef5af0 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/File.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/File.pm @@ -136,7 +136,7 @@ require Exporter; @ISA = qw(IO::Handle IO::Seekable Exporter); -$VERSION = "1.16"; +$VERSION = "1.16_01"; @EXPORT = @IO::Seekable::EXPORT; diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Handle.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Handle.pm index aebf74e4c02..07feb1f4540 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Handle.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Handle.pm @@ -271,7 +271,7 @@ use IO (); # Load the XS module require Exporter; @ISA = qw(Exporter); -$VERSION = "1.35"; +$VERSION = "1.35_01"; $VERSION = eval $VERSION; @EXPORT_OK = qw( diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Pipe.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Pipe.pm index 684069f4b7e..ab0e798b112 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Pipe.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Pipe.pm @@ -14,7 +14,7 @@ our($VERSION); use Carp; use Symbol; -$VERSION = "1.15"; +$VERSION = "1.15_01"; sub new { my $type = shift; diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Poll.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Poll.pm index 47f1a135595..b4a0ea15332 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Poll.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Poll.pm @@ -13,7 +13,7 @@ use Exporter (); our(@ISA, @EXPORT_OK, @EXPORT, $VERSION); @ISA = qw(Exporter); -$VERSION = "0.09"; +$VERSION = "0.09_01"; @EXPORT = qw( POLLIN POLLOUT diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Seekable.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Seekable.pm index db1effda287..5505f3f5582 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Seekable.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Seekable.pm @@ -107,7 +107,7 @@ require Exporter; @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); @ISA = qw(Exporter); -$VERSION = "1.10"; +$VERSION = "1.10_01"; $VERSION = eval $VERSION; sub seek { diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Select.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Select.pm index 994f8966ab6..23963591c1d 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Select.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Select.pm @@ -11,7 +11,7 @@ use warnings::register; 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 diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Socket.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Socket.pm index c78aeecc1a0..5c11a2d876a 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Socket.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Socket.pm @@ -24,7 +24,7 @@ require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian'); @ISA = qw(IO::Handle); -$VERSION = "1.38"; +$VERSION = "1.38_01"; @EXPORT_OK = qw(sockatmark); diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/INET.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/INET.pm index 7a1694733b5..91bed1662fe 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/INET.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/INET.pm @@ -15,7 +15,7 @@ use Exporter; use Errno; @ISA = qw(IO::Socket); -$VERSION = "1.35"; +$VERSION = "1.35_01"; my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1; diff --git a/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/UNIX.pm b/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/UNIX.pm index 30b8f74eb05..0fbbd617edf 100644 --- a/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/UNIX.pm +++ b/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/UNIX.pm @@ -12,7 +12,7 @@ use IO::Socket; use Carp; @ISA = qw(IO::Socket); -$VERSION = "1.26"; +$VERSION = "1.26_01"; $VERSION = eval $VERSION; IO::Socket::UNIX->register_domain( AF_UNIX ); diff --git a/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext.pm b/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext.pm index c2bd723e91b..59defcfd2ce 100644 --- a/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext.pm +++ b/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext.pm @@ -27,7 +27,7 @@ BEGIN { } -$VERSION = '1.25'; +$VERSION = '1.25_01'; @ISA = (); $MATCH_SUPERS = 1; @@ -449,6 +449,8 @@ sub _try_use { # Basically a wrapper around "require Modulename" 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($@) { diff --git a/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/Guts.pm b/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/Guts.pm index 9e78c7e0b54..9f7d9fbdbce 100644 --- a/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/Guts.pm +++ b/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/Guts.pm @@ -2,7 +2,7 @@ package Locale::Maketext::Guts; use Locale::Maketext; -our $VERSION = '1.20'; +our $VERSION = '1.20_01'; =head1 NAME diff --git a/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/GutsLoader.pm b/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/GutsLoader.pm index 35a71ab5094..d131f20a9e6 100644 --- a/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/GutsLoader.pm +++ b/gnu/usr.bin/perl/dist/Locale-Maketext/lib/Locale/Maketext/GutsLoader.pm @@ -2,7 +2,7 @@ package Locale::Maketext::GutsLoader; use Locale::Maketext; -our $VERSION = '1.20'; +our $VERSION = '1.20_01'; sub zorp { return scalar @_ } diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/corelist b/gnu/usr.bin/perl/dist/Module-CoreList/corelist index aa4a94571a3..bbe61ccee41 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/corelist +++ b/gnu/usr.bin/perl/dist/Module-CoreList/corelist @@ -130,6 +130,7 @@ requested perl versions. =cut +BEGIN { pop @INC if $INC[-1] eq '.' } use Module::CoreList; use Getopt::Long qw(:config no_ignore_case); use Pod::Usage; diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm index d50e7c5ab4b..8e3f4d5a445 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm @@ -4,7 +4,7 @@ use vars qw/$VERSION %released %version %families %upstream %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 "?") diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm index b715bfde367..0e86adb004b 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm +++ b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm @@ -3,7 +3,7 @@ package Module::CoreList::TieHashDelta; use strict; use vars qw($VERSION); -$VERSION = '5.20150822'; +$VERSION = '5.20150822_01'; sub TIEHASH { my ($class, $changed, $removed, $parent) = @_; diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm index 350c917e125..e25943e701a 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm +++ b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm @@ -6,7 +6,7 @@ use vars qw[$VERSION %utilities]; use Module::CoreList; use Module::CoreList::TieHashDelta; -$VERSION = '5.20150822'; +$VERSION = '5.20150822_01'; sub utilities { my $perl = shift; diff --git a/gnu/usr.bin/perl/dist/Net-Ping/lib/Net/Ping.pm b/gnu/usr.bin/perl/dist/Net-Ping/lib/Net/Ping.pm index 2766c9edbb5..86b0dfd3f51 100644 --- a/gnu/usr.bin/perl/dist/Net-Ping/lib/Net/Ping.pm +++ b/gnu/usr.bin/perl/dist/Net-Ping/lib/Net/Ping.pm @@ -17,7 +17,7 @@ use Time::HiRes; @ISA = qw(Exporter); @EXPORT = qw(pingecho); -$VERSION = "2.43"; +$VERSION = "2.43_01"; # Constants @@ -410,7 +410,11 @@ sub ping_external { $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); } diff --git a/gnu/usr.bin/perl/dist/PathTools/Cwd.pm b/gnu/usr.bin/perl/dist/PathTools/Cwd.pm index 53b4eddfc3a..c4e6bc431a8 100644 --- a/gnu/usr.bin/perl/dist/PathTools/Cwd.pm +++ b/gnu/usr.bin/perl/dist/PathTools/Cwd.pm @@ -171,7 +171,7 @@ use strict; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; my $xs_version = $VERSION; $VERSION =~ tr/_//; @@ -208,7 +208,10 @@ if ($^O eq 'os2') { 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; } } diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec.pm index 508382517da..72f979e3ef2 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec.pm @@ -3,7 +3,7 @@ package File::Spec; use strict; use vars qw(@ISA $VERSION); -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; my %module = (MacOS => 'Mac', diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Cygwin.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Cygwin.pm index 81e50aa560b..7b1194982de 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Cygwin.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Cygwin.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; @ISA = qw(File::Spec::Unix); @@ -137,7 +137,11 @@ sub case_tolerant { 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; diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Epoc.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Epoc.pm index e317d67da29..745a0af005d 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Epoc.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Epoc.pm @@ -3,7 +3,7 @@ package File::Spec::Epoc; use strict; use vars qw($VERSION @ISA); -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; require File::Spec::Unix; diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Functions.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Functions.pm index 6c767c893c6..1f3487b6b82 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Functions.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Functions.pm @@ -5,7 +5,7 @@ use strict; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; require Exporter; diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Mac.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Mac.pm index 17940c918f1..e264277fd13 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Mac.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Mac.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; @ISA = qw(File::Spec::Unix); diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/OS2.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/OS2.pm index 613d57ebbd9..2397761dff5 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/OS2.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/OS2.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; @ISA = qw(File::Spec::Unix); diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Unix.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Unix.pm index 0a35756f76e..328dce50365 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Unix.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Unix.pm @@ -3,7 +3,7 @@ package File::Spec::Unix; use strict; use vars qw($VERSION); -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; my $xs_version = $VERSION; $VERSION =~ tr/_//; diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/VMS.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/VMS.pm index 71df2b4db64..3e7f7ed4eee 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/VMS.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/VMS.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; @ISA = qw(File::Spec::Unix); @@ -39,7 +39,10 @@ via the C<DECC$FILENAME_UNIX_REPORT> CRTL feature. 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; } } diff --git a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Win32.pm b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Win32.pm index a2979d31534..dbecf8956fe 100644 --- a/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Win32.pm +++ b/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/Win32.pm @@ -5,7 +5,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.48_02'; +$VERSION = '3.48_03'; $VERSION =~ tr/_//; @ISA = qw(File::Spec::Unix); @@ -90,7 +90,11 @@ Default: 1 =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; diff --git a/gnu/usr.bin/perl/dist/Storable/Storable.pm b/gnu/usr.bin/perl/dist/Storable/Storable.pm index 7d8a01198d5..83470643d65 100644 --- a/gnu/usr.bin/perl/dist/Storable/Storable.pm +++ b/gnu/usr.bin/perl/dist/Storable/Storable.pm @@ -22,10 +22,16 @@ package Storable; @ISA = qw(Exporter); 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; } # diff --git a/gnu/usr.bin/perl/dist/base/lib/base.pm b/gnu/usr.bin/perl/dist/base/lib/base.pm index 5d1378786de..ff1a16c1f7d 100644 --- a/gnu/usr.bin/perl/dist/base/lib/base.pm +++ b/gnu/usr.bin/perl/dist/base/lib/base.pm @@ -2,7 +2,7 @@ package base; use strict 'vars'; use vars qw($VERSION); -$VERSION = '2.22'; +$VERSION = '2.22_01'; $VERSION = eval $VERSION; # constant.pm is slow @@ -96,7 +96,11 @@ sub import { { 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. # diff --git a/gnu/usr.bin/perl/dist/base/lib/fields.pm b/gnu/usr.bin/perl/dist/base/lib/fields.pm index ad1a5cfa412..92d1999bbad 100644 --- a/gnu/usr.bin/perl/dist/base/lib/fields.pm +++ b/gnu/usr.bin/perl/dist/base/lib/fields.pm @@ -11,7 +11,7 @@ unless( eval q{require warnings::register; warnings::register->import; 1} ) { } use vars qw(%attr $VERSION); -$VERSION = '2.17'; +$VERSION = '2.17_01'; # constant.pm is slow sub PUBLIC () { 2**0 } diff --git a/gnu/usr.bin/perl/dist/bignum/lib/Math/BigFloat/Trace.pm b/gnu/usr.bin/perl/dist/bignum/lib/Math/BigFloat/Trace.pm index 203e0510b64..93c6b963ce2 100644 --- a/gnu/usr.bin/perl/dist/bignum/lib/Math/BigFloat/Trace.pm +++ b/gnu/usr.bin/perl/dist/bignum/lib/Math/BigFloat/Trace.pm @@ -12,7 +12,7 @@ use vars qw($VERSION @ISA $PACKAGE @EXPORT_OK @ISA = qw(Exporter Math::BigFloat); -$VERSION = '0.36'; +$VERSION = '0.36_01'; use overload; # inherit overload from BigFloat diff --git a/gnu/usr.bin/perl/dist/bignum/lib/Math/BigInt/Trace.pm b/gnu/usr.bin/perl/dist/bignum/lib/Math/BigInt/Trace.pm index 79fc0970e47..3a23e5142b7 100644 --- a/gnu/usr.bin/perl/dist/bignum/lib/Math/BigInt/Trace.pm +++ b/gnu/usr.bin/perl/dist/bignum/lib/Math/BigInt/Trace.pm @@ -12,7 +12,7 @@ use vars qw($VERSION @ISA $PACKAGE @EXPORT_OK @ISA = qw(Exporter Math::BigInt); -$VERSION = '0.36'; +$VERSION = '0.36_01'; use overload; # inherit overload from BigInt diff --git a/gnu/usr.bin/perl/dist/bignum/lib/bigint.pm b/gnu/usr.bin/perl/dist/bignum/lib/bigint.pm index 993ea9112f0..9bb95ff8d6d 100644 --- a/gnu/usr.bin/perl/dist/bignum/lib/bigint.pm +++ b/gnu/usr.bin/perl/dist/bignum/lib/bigint.pm @@ -1,7 +1,7 @@ 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 ); @@ -248,6 +248,8 @@ sub import # 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 '') { diff --git a/gnu/usr.bin/perl/dist/bignum/lib/bignum.pm b/gnu/usr.bin/perl/dist/bignum/lib/bignum.pm index 40aedceca71..3e1becab1ce 100644 --- a/gnu/usr.bin/perl/dist/bignum/lib/bignum.pm +++ b/gnu/usr.bin/perl/dist/bignum/lib/bignum.pm @@ -1,7 +1,7 @@ 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 ); @@ -155,6 +155,8 @@ sub import # 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 '') { diff --git a/gnu/usr.bin/perl/dist/bignum/lib/bigrat.pm b/gnu/usr.bin/perl/dist/bignum/lib/bigrat.pm index adbeff4dba8..bfbfb79c6ac 100644 --- a/gnu/usr.bin/perl/dist/bignum/lib/bigrat.pm +++ b/gnu/usr.bin/perl/dist/bignum/lib/bigrat.pm @@ -1,7 +1,7 @@ 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 ); @@ -148,6 +148,8 @@ sub import # 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 '') { diff --git a/gnu/usr.bin/perl/ext/Pod-Html/bin/pod2html b/gnu/usr.bin/perl/ext/Pod-Html/bin/pod2html index b0228591907..7d1d23268b9 100644 --- a/gnu/usr.bin/perl/ext/Pod-Html/bin/pod2html +++ b/gnu/usr.bin/perl/ext/Pod-Html/bin/pod2html @@ -216,6 +216,7 @@ This program is distributed under the Artistic License. =cut +BEGIN { pop @INC if $INC[-1] eq '.' } use Pod::Html; pod2html @ARGV; diff --git a/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm b/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm index f9f05b358eb..8510217d807 100644 --- a/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm +++ b/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm @@ -3,7 +3,7 @@ use strict; 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); diff --git a/gnu/usr.bin/perl/lib/perl5db.pl b/gnu/usr.bin/perl/lib/perl5db.pl index 847461108f6..0e71953a900 100644 --- a/gnu/usr.bin/perl/lib/perl5db.pl +++ b/gnu/usr.bin/perl/lib/perl5db.pl @@ -523,7 +523,7 @@ BEGIN { # 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"; @@ -1930,7 +1930,10 @@ sub _DB__handle_y_command { = $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/ @@ -9365,7 +9368,10 @@ if PadWalker could be loaded. =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); diff --git a/gnu/usr.bin/perl/patchlevel.h b/gnu/usr.bin/perl/patchlevel.h index 123483525a5..b7bb5e0ce23 100644 --- a/gnu/usr.bin/perl/patchlevel.h +++ b/gnu/usr.bin/perl/patchlevel.h @@ -137,6 +137,7 @@ static const char * const local_patches[] = { ,"uncommitted-changes" ,"CVE-2016-6185" ,"CVE-2015-8853" + ,"CVE-2016-1238" #endif PERL_GIT_UNPUSHED_COMMITS /* do not remove this line */ ,NULL diff --git a/gnu/usr.bin/perl/t/porting/customized.dat b/gnu/usr.bin/perl/t/porting/customized.dat index 530963becd9..f609ca555f1 100644 --- a/gnu/usr.bin/perl/t/porting/customized.dat +++ b/gnu/usr.bin/perl/t/porting/customized.dat @@ -1,17 +1,17 @@ -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 diff --git a/gnu/usr.bin/perl/utils/c2ph.PL b/gnu/usr.bin/perl/utils/c2ph.PL index 13389ec075e..cef0b5cf384 100644 --- a/gnu/usr.bin/perl/utils/c2ph.PL +++ b/gnu/usr.bin/perl/utils/c2ph.PL @@ -280,6 +280,7 @@ Anyway, here it is. Should run on perl v4 or greater. Maybe less. $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; ###################################################################### diff --git a/gnu/usr.bin/perl/utils/h2ph.PL b/gnu/usr.bin/perl/utils/h2ph.PL index 5da4a59a18c..6d743718c63 100644 --- a/gnu/usr.bin/perl/utils/h2ph.PL +++ b/gnu/usr.bin/perl/utils/h2ph.PL @@ -36,6 +36,8 @@ $Config{startperl} print OUT <<'!NO!SUBS!'; +BEGIN { pop @INC if $INC[-1] eq '.' } + use strict; use Config; diff --git a/gnu/usr.bin/perl/utils/h2xs.PL b/gnu/usr.bin/perl/utils/h2xs.PL index 4cb09437426..8fda87b0a78 100644 --- a/gnu/usr.bin/perl/utils/h2xs.PL +++ b/gnu/usr.bin/perl/utils/h2xs.PL @@ -35,6 +35,8 @@ $Config{startperl} print OUT <<'!NO!SUBS!'; +BEGIN { pop @INC if $INC[-1] eq '.' } + use warnings; =head1 NAME diff --git a/gnu/usr.bin/perl/utils/libnetcfg.PL b/gnu/usr.bin/perl/utils/libnetcfg.PL index 59a2de87c80..26d2f995a90 100644 --- a/gnu/usr.bin/perl/utils/libnetcfg.PL +++ b/gnu/usr.bin/perl/utils/libnetcfg.PL @@ -97,6 +97,7 @@ Jarkko Hietaniemi, conversion into libnetcfg for inclusion into Perl 5.8. # $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; diff --git a/gnu/usr.bin/perl/utils/perlbug.PL b/gnu/usr.bin/perl/utils/perlbug.PL index 093ca96261d..931fcd86851 100644 --- a/gnu/usr.bin/perl/utils/perlbug.PL +++ b/gnu/usr.bin/perl/utils/perlbug.PL @@ -57,6 +57,7 @@ print OUT <<'!NO!SUBS!'; 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; diff --git a/gnu/usr.bin/perl/utils/perldoc.PL b/gnu/usr.bin/perl/utils/perldoc.PL index e201de9d910..cd60bd4354c 100644 --- a/gnu/usr.bin/perl/utils/perldoc.PL +++ b/gnu/usr.bin/perl/utils/perldoc.PL @@ -44,7 +44,10 @@ $Config{startperl} # 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() ); diff --git a/gnu/usr.bin/perl/utils/perlivp.PL b/gnu/usr.bin/perl/utils/perlivp.PL index c2f0a11f155..e5229133f45 100644 --- a/gnu/usr.bin/perl/utils/perlivp.PL +++ b/gnu/usr.bin/perl/utils/perlivp.PL @@ -39,6 +39,8 @@ print OUT "\n# perlivp $^V\n"; print OUT <<'!NO!SUBS!'; +BEGIN { pop @INC if $INC[-1] eq '.' } + sub usage { warn "@_\n" if @_; print << " EOUSAGE"; diff --git a/gnu/usr.bin/perl/utils/splain.PL b/gnu/usr.bin/perl/utils/splain.PL index 9c70b61afd5..cae84a0d382 100644 --- a/gnu/usr.bin/perl/utils/splain.PL +++ b/gnu/usr.bin/perl/utils/splain.PL @@ -38,6 +38,12 @@ $Config{startperl} 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/; } diff --git a/gnu/usr.bin/perl/x2p/find2perl.PL b/gnu/usr.bin/perl/x2p/find2perl.PL index d68c0362e84..ebaac2c1fdc 100644 --- a/gnu/usr.bin/perl/x2p/find2perl.PL +++ b/gnu/usr.bin/perl/x2p/find2perl.PL @@ -1,5 +1,6 @@ #!/usr/local/bin/perl +BEGIN { pop @INC if $INC[-1] eq '.' } use Config; use File::Basename qw(&basename &dirname); use Cwd; diff --git a/gnu/usr.bin/perl/x2p/s2p.PL b/gnu/usr.bin/perl/x2p/s2p.PL index 8a5abaeca82..1f77bced1a0 100644 --- a/gnu/usr.bin/perl/x2p/s2p.PL +++ b/gnu/usr.bin/perl/x2p/s2p.PL @@ -1,5 +1,6 @@ #!/usr/bin/perl +BEGIN { pop @INC if $INC[-1] eq '.' } use Config; use File::Basename qw(&basename &dirname); use Cwd; |