From: afresh1 Date: Mon, 25 Jul 2016 10:53:00 +0000 (+0000) Subject: Patch perl CVE-2016-1238 X-Git-Url: http://artulab.com/gitweb/?a=commitdiff_plain;h=0b7734b3d77bb9b21afec6f4621cae6c805dbd45;p=openbsd Patch perl CVE-2016-1238 The problem relates to Perl 5 ("perl") loading modules from the includes directory array ("@INC") in which the last element is the current directory ("."). That means that, when "perl" wants to load a module (during first compilation or during lazy loading of a module in run-time), perl will look for the module in the current directory at the end, since '.' is the last include directory in its array of include directories to seek. The issue is with requiring libraries that are in "." but are not otherwise installed. The major problem with this behavior is that it unexpectedly puts a user at risk whenever they execute any Perl scripts from a directory that is writable by other accounts on the system. For instance, if a user is logged in as root and changes directory into /tmp or an account's home directory, it is possible to now run any shell commands that are written in C, Python or Ruby without fear. The same isn't true for any shell commands that are written in Perl, since a significant proportion of Perl scripts will execute code in the current working directory whenever they are run. For example, if a user on a shared system creates the file /tmp/Pod/Perldoc/Toterm.pm, and then I log in as root, change directory to /tmp, and run "perldoc perlrun", it will execute the code they have placed in the file. ok deraadt@ --- 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. 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. =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. =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. 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. 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. =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 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 () { 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;