In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ef269bf5f55cf5087c6190ddbf34459c60a69622?hp=1a6796835b1fd6248863ae596147974216e940b8>
- Log ----------------------------------------------------------------- commit ef269bf5f55cf5087c6190ddbf34459c60a69622 Merge: 1a67968 8b56300 Author: Tony Cook <[email protected]> Date: Tue Jul 26 16:15:33 2016 +1000 (perl #127384)(CVE-2016-1238) port forward changes from maint Some of these changes are unnecessary if we remove the default . from @INC for 5.26. commit 8b56300e8abcd9e015f2058dc7a794eb8399a5a6 Author: Tony Cook <[email protected]> Date: Tue Jul 26 15:36:15 2016 +1000 (perl #127834) update CUSTOMIZED entries M Porting/Maintainers.pl M t/porting/customized.dat commit af8e028068d5a02e38f82535d95238fd960bcc32 Author: Tony Cook <[email protected]> Date: Tue Jul 26 15:21:25 2016 +1000 cpan/: bump $VERSION as needed M cpan/CPAN/lib/App/Cpan.pm M cpan/Digest/Digest.pm M cpan/File-Fetch/lib/File/Fetch.pm M cpan/HTTP-Tiny/lib/HTTP/Tiny.pm M cpan/IPC-Cmd/lib/IPC/Cmd.pm M cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm M cpan/Memoize/Memoize.pm M cpan/Pod-Perldoc/lib/Pod/Perldoc.pm M cpan/Sys-Syslog/Syslog.pm M cpan/bignum/lib/Math/BigFloat/Trace.pm M cpan/bignum/lib/Math/BigInt/Trace.pm M cpan/bignum/lib/bigint.pm M cpan/bignum/lib/bignum.pm M cpan/bignum/lib/bigrat.pm M cpan/libnet/lib/Net/Cmd.pm M cpan/libnet/lib/Net/Config.pm M cpan/libnet/lib/Net/Domain.pm M cpan/libnet/lib/Net/FTP.pm M cpan/libnet/lib/Net/FTP/A.pm M cpan/libnet/lib/Net/FTP/E.pm M cpan/libnet/lib/Net/FTP/I.pm M cpan/libnet/lib/Net/FTP/L.pm M cpan/libnet/lib/Net/FTP/dataconn.pm M cpan/libnet/lib/Net/NNTP.pm M cpan/libnet/lib/Net/Netrc.pm M cpan/libnet/lib/Net/POP3.pm M cpan/libnet/lib/Net/SMTP.pm M cpan/libnet/lib/Net/Time.pm commit b8097e9479a0aafd1182244c6f9a955c57fb6b1a Author: Tony Cook <[email protected]> Date: Mon Jun 27 16:21:21 2016 +1000 cpan/: remove . from @INC when loading optional modules M cpan/CPAN/lib/App/Cpan.pm M cpan/CPAN/lib/CPAN.pm M cpan/Digest/Digest.pm M cpan/Encode/Encode.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command.pm M cpan/File-Fetch/lib/File/Fetch.pm M cpan/HTTP-Tiny/lib/HTTP/Tiny.pm M cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm M cpan/IPC-Cmd/lib/IPC/Cmd.pm M cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm M cpan/Memoize/Memoize.pm M cpan/Pod-Perldoc/lib/Pod/Perldoc.pm M cpan/Sys-Syslog/Syslog.pm M cpan/bignum/lib/bigint.pm M cpan/bignum/lib/bignum.pm M cpan/bignum/lib/bigrat.pm M cpan/libnet/lib/Net/Config.pm commit 38b4af19a42e6a4b9d5c8cc97fd06d954fff69a8 Author: Tony Cook <[email protected]> Date: Tue Jul 26 11:49:33 2016 +1000 dist/: bump $VERSION as needed M dist/I18N-LangTags/lib/I18N/LangTags.pm M dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm M dist/IO/IO.pm M dist/Locale-Maketext/lib/Locale/Maketext.pm M dist/Net-Ping/lib/Net/Ping.pm M dist/PathTools/Cwd.pm M dist/PathTools/lib/File/Spec.pm M dist/PathTools/lib/File/Spec/AmigaOS.pm M dist/PathTools/lib/File/Spec/Cygwin.pm M dist/PathTools/lib/File/Spec/Epoc.pm M dist/PathTools/lib/File/Spec/Functions.pm M dist/PathTools/lib/File/Spec/Mac.pm M dist/PathTools/lib/File/Spec/OS2.pm M dist/PathTools/lib/File/Spec/Unix.pm M dist/PathTools/lib/File/Spec/VMS.pm M dist/PathTools/lib/File/Spec/Win32.pm M dist/Storable/Storable.pm M dist/Test/lib/Test.pm M dist/base/lib/base.pm commit 8901ddee94b1bc3764b4278d1cb26bed30bc2605 Author: Tony Cook <[email protected]> Date: Thu Jun 23 14:06:40 2016 +1000 dist/: remove . from @INC when loading optional modules I didn't update base.pm since that seems more likely to be loading modules *expected* to be in the current directory. Opinions welcome. M dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm M dist/IO/IO.pm M dist/Locale-Maketext/lib/Locale/Maketext.pm M dist/Net-Ping/lib/Net/Ping.pm M dist/PathTools/Cwd.pm M dist/PathTools/lib/File/Spec/Cygwin.pm M dist/PathTools/lib/File/Spec/VMS.pm M dist/PathTools/lib/File/Spec/Win32.pm M dist/Storable/Storable.pm M dist/Test/lib/Test.pm M dist/base/lib/base.pm commit dcfbcce2b273096853629671e1e3a9c34c7ac7c8 Author: Tony Cook <[email protected]> Date: Tue Jul 26 11:37:34 2016 +1000 bump perl5db.pl's $VERSION Add a note about version numbering, since if we use X.XX_XX versions in blead it's harder to find an unused version number if the module is modified in maint. M lib/perl5db.pl commit db79bf92c5e2c1063f78663fd03bcb0965c558e3 Author: Tony Cook <[email protected]> Date: Thu Jun 23 10:41:48 2016 +1000 perl5db.pl: ensure PadWalker is loaded from standard paths M lib/perl5db.pl commit d8f1b4d05e6f0f620663f48949104f2f27883dd8 Author: Tony Cook <[email protected]> Date: Tue Jul 26 11:32:28 2016 +1000 (perl #127834) bump versions of modules in dists we updated a utility in I tried to follow the numbering convention of the module, bumping every module if the versions are synchronized, bumping just the primary module if not. M META.json M cpan/Archive-Tar/lib/Archive/Tar.pm M cpan/Archive-Tar/lib/Archive/Tar/Constant.pm M cpan/Archive-Tar/lib/Archive/Tar/File.pm M cpan/CPAN/lib/CPAN.pm M cpan/Digest-SHA/lib/Digest/SHA.pm M cpan/Encode/Encode.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version/regex.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm M cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm M cpan/IO-Compress/lib/Compress/Zlib.pm M cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm M cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm M cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm M cpan/IO-Compress/lib/IO/Compress/Base.pm M cpan/IO-Compress/lib/IO/Compress/Base/Common.pm M cpan/IO-Compress/lib/IO/Compress/Bzip2.pm M cpan/IO-Compress/lib/IO/Compress/Deflate.pm M cpan/IO-Compress/lib/IO/Compress/Gzip.pm M cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm M cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm M cpan/IO-Compress/lib/IO/Compress/Zip.pm M cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm M cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm M cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm M cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm M cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm M cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm M cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm M cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm M cpan/IO-Compress/lib/IO/Uncompress/Base.pm M cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm M cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm M cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm M cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm M cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm M cpan/JSON-PP/lib/JSON/PP.pm M cpan/Test-Harness/lib/App/Prove.pm M cpan/Test-Harness/lib/App/Prove/State.pm M cpan/Test-Harness/lib/App/Prove/State/Result.pm M cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm M cpan/Test-Harness/lib/TAP/Base.pm M cpan/Test-Harness/lib/TAP/Formatter/Base.pm M cpan/Test-Harness/lib/TAP/Formatter/Color.pm M cpan/Test-Harness/lib/TAP/Formatter/Console.pm M cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm M cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm M cpan/Test-Harness/lib/TAP/Formatter/File.pm M cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm M cpan/Test-Harness/lib/TAP/Formatter/Session.pm M cpan/Test-Harness/lib/TAP/Harness.pm M cpan/Test-Harness/lib/TAP/Harness/Env.pm M cpan/Test-Harness/lib/TAP/Object.pm M cpan/Test-Harness/lib/TAP/Parser.pm M cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm M cpan/Test-Harness/lib/TAP/Parser/Grammar.pm M cpan/Test-Harness/lib/TAP/Parser/Iterator.pm M cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm M cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm M cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm M cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm M cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm M cpan/Test-Harness/lib/TAP/Parser/Result.pm M cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm M cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm M cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm M cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm M cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm M cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm M cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm M cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm M cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm M cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm M cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm M cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm M cpan/Test-Harness/lib/TAP/Parser/Source.pm M cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm M cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm M cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm M cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm M cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm M cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm M cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm M cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm M cpan/Test-Harness/lib/Test/Harness.pm M ext/Pod-Html/lib/Pod/Html.pm commit cee96d52c39b1e7b36e1c62d38bcd8d86e9a41ab Author: Tony Cook <[email protected]> Date: Tue Jun 21 10:02:02 2016 +1000 (perl #127834) remove . from the end of @INC if complex modules are loaded While currently Encode and Storable are know to attempt to load modules not included in the core, updates to other modules may lead to those also attempting to load new modules, so be safe and remove . for those as well. M cpan/Archive-Tar/bin/ptar M cpan/Archive-Tar/bin/ptardiff M cpan/Archive-Tar/bin/ptargrep M cpan/CPAN/scripts/cpan M cpan/Digest-SHA/shasum M cpan/Encode/bin/enc2xs M cpan/Encode/bin/encguess M cpan/Encode/bin/piconv M cpan/Encode/bin/ucmlint M cpan/Encode/bin/unidump M cpan/ExtUtils-MakeMaker/bin/instmodsh M cpan/IO-Compress/bin/zipdetails M cpan/JSON-PP/bin/json_pp M cpan/Test-Harness/bin/prove M dist/ExtUtils-ParseXS/lib/ExtUtils/xsubpp M dist/Module-CoreList/corelist M ext/Pod-Html/bin/pod2html M utils/c2ph.PL M utils/h2ph.PL M utils/h2xs.PL M utils/libnetcfg.PL M utils/perlbug.PL M utils/perldoc.PL M utils/perlivp.PL M utils/splain.PL ----------------------------------------------------------------------- Summary of changes: META.json | 2 +- Porting/Maintainers.pl | 179 ++++++++++++++++++++- cpan/Archive-Tar/bin/ptar | 1 + cpan/Archive-Tar/bin/ptardiff | 1 + cpan/Archive-Tar/bin/ptargrep | 1 + cpan/Archive-Tar/lib/Archive/Tar.pm | 2 +- cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 +- cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 +- cpan/CPAN/lib/App/Cpan.pm | 23 ++- cpan/CPAN/lib/CPAN.pm | 6 +- cpan/CPAN/scripts/cpan | 1 + cpan/Digest-SHA/lib/Digest/SHA.pm | 2 +- cpan/Digest-SHA/shasum | 1 + cpan/Digest/Digest.pm | 8 +- cpan/Encode/Encode.pm | 4 +- cpan/Encode/bin/enc2xs | 1 + cpan/Encode/bin/encguess | 1 + cpan/Encode/bin/piconv | 1 + cpan/Encode/bin/ucmlint | 1 + cpan/Encode/bin/unidump | 1 + cpan/ExtUtils-MakeMaker/bin/instmodsh | 1 + cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command.pm | 7 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm | 2 +- .../ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm | 2 +- .../lib/ExtUtils/MakeMaker/Config.pm | 2 +- .../lib/ExtUtils/MakeMaker/version.pm | 2 +- .../lib/ExtUtils/MakeMaker/version/regex.pm | 2 +- .../ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm | 2 +- cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm | 2 +- cpan/File-Fetch/lib/File/Fetch.pm | 12 +- cpan/HTTP-Tiny/lib/HTTP/Tiny.pm | 6 +- cpan/IO-Compress/bin/zipdetails | 1 + cpan/IO-Compress/lib/Compress/Zlib.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm | 2 +- .../IO-Compress/lib/IO/Compress/Adapter/Deflate.pm | 2 +- .../lib/IO/Compress/Adapter/Identity.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Base.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Base/Common.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Bzip2.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Deflate.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Gzip.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Zip.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm | 2 +- .../lib/IO/Uncompress/Adapter/Bunzip2.pm | 2 +- .../lib/IO/Uncompress/Adapter/Identity.pm | 2 +- .../lib/IO/Uncompress/Adapter/Inflate.pm | 2 +- cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm | 2 +- .../IO-Compress/lib/IO/Uncompress/AnyUncompress.pm | 4 +- cpan/IO-Compress/lib/IO/Uncompress/Base.pm | 2 +- cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm | 2 +- cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm | 2 +- cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm | 2 +- cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm | 2 +- cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm | 2 +- cpan/IPC-Cmd/lib/IPC/Cmd.pm | 6 +- cpan/JSON-PP/bin/json_pp | 1 + cpan/JSON-PP/lib/JSON/PP.pm | 2 +- .../lib/Locale/Maketext/Simple.pm | 9 +- cpan/Memoize/Memoize.pm | 8 +- cpan/Pod-Perldoc/lib/Pod/Perldoc.pm | 7 +- cpan/Sys-Syslog/Syslog.pm | 4 +- cpan/Test-Harness/bin/prove | 1 + cpan/Test-Harness/lib/App/Prove.pm | 2 +- cpan/Test-Harness/lib/App/Prove/State.pm | 2 +- cpan/Test-Harness/lib/App/Prove/State/Result.pm | 2 +- .../lib/App/Prove/State/Result/Test.pm | 2 +- cpan/Test-Harness/lib/TAP/Base.pm | 2 +- cpan/Test-Harness/lib/TAP/Formatter/Base.pm | 2 +- cpan/Test-Harness/lib/TAP/Formatter/Color.pm | 2 +- cpan/Test-Harness/lib/TAP/Formatter/Console.pm | 2 +- .../lib/TAP/Formatter/Console/ParallelSession.pm | 2 +- .../lib/TAP/Formatter/Console/Session.pm | 2 +- cpan/Test-Harness/lib/TAP/Formatter/File.pm | 2 +- .../Test-Harness/lib/TAP/Formatter/File/Session.pm | 2 +- cpan/Test-Harness/lib/TAP/Formatter/Session.pm | 2 +- cpan/Test-Harness/lib/TAP/Harness.pm | 2 +- cpan/Test-Harness/lib/TAP/Harness/Env.pm | 2 +- cpan/Test-Harness/lib/TAP/Object.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Grammar.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Iterator.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm | 2 +- .../lib/TAP/Parser/Iterator/Process.pm | 2 +- .../Test-Harness/lib/TAP/Parser/Iterator/Stream.pm | 2 +- .../Test-Harness/lib/TAP/Parser/IteratorFactory.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm | 2 +- .../lib/TAP/Parser/Scheduler/Spinner.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/Source.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm | 2 +- .../lib/TAP/Parser/SourceHandler/Executable.pm | 2 +- .../lib/TAP/Parser/SourceHandler/File.pm | 2 +- .../lib/TAP/Parser/SourceHandler/Handle.pm | 2 +- .../lib/TAP/Parser/SourceHandler/Perl.pm | 2 +- .../lib/TAP/Parser/SourceHandler/RawTAP.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm | 2 +- cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm | 2 +- cpan/Test-Harness/lib/Test/Harness.pm | 2 +- cpan/bignum/lib/Math/BigFloat/Trace.pm | 2 +- cpan/bignum/lib/Math/BigInt/Trace.pm | 2 +- cpan/bignum/lib/bigint.pm | 4 +- cpan/bignum/lib/bignum.pm | 4 +- cpan/bignum/lib/bigrat.pm | 4 +- cpan/libnet/lib/Net/Cmd.pm | 2 +- cpan/libnet/lib/Net/Config.pm | 9 +- cpan/libnet/lib/Net/Domain.pm | 2 +- cpan/libnet/lib/Net/FTP.pm | 2 +- cpan/libnet/lib/Net/FTP/A.pm | 2 +- cpan/libnet/lib/Net/FTP/E.pm | 2 +- cpan/libnet/lib/Net/FTP/I.pm | 2 +- cpan/libnet/lib/Net/FTP/L.pm | 2 +- cpan/libnet/lib/Net/FTP/dataconn.pm | 2 +- cpan/libnet/lib/Net/NNTP.pm | 2 +- cpan/libnet/lib/Net/Netrc.pm | 2 +- cpan/libnet/lib/Net/POP3.pm | 2 +- cpan/libnet/lib/Net/SMTP.pm | 2 +- cpan/libnet/lib/Net/Time.pm | 2 +- dist/ExtUtils-ParseXS/lib/ExtUtils/xsubpp | 1 + dist/I18N-LangTags/lib/I18N/LangTags.pm | 2 +- dist/I18N-LangTags/lib/I18N/LangTags/Detect.pm | 4 +- dist/IO/IO.pm | 4 +- dist/Locale-Maketext/lib/Locale/Maketext.pm | 4 +- dist/Module-CoreList/corelist | 1 + dist/Net-Ping/lib/Net/Ping.pm | 8 +- dist/PathTools/Cwd.pm | 7 +- dist/PathTools/lib/File/Spec.pm | 2 +- dist/PathTools/lib/File/Spec/AmigaOS.pm | 2 +- dist/PathTools/lib/File/Spec/Cygwin.pm | 8 +- dist/PathTools/lib/File/Spec/Epoc.pm | 2 +- dist/PathTools/lib/File/Spec/Functions.pm | 2 +- dist/PathTools/lib/File/Spec/Mac.pm | 2 +- dist/PathTools/lib/File/Spec/OS2.pm | 2 +- dist/PathTools/lib/File/Spec/Unix.pm | 2 +- dist/PathTools/lib/File/Spec/VMS.pm | 7 +- dist/PathTools/lib/File/Spec/Win32.pm | 8 +- dist/Storable/Storable.pm | 10 +- dist/Test/lib/Test.pm | 9 +- dist/base/lib/base.pm | 8 +- ext/Pod-Html/bin/pod2html | 1 + ext/Pod-Html/lib/Pod/Html.pm | 2 +- lib/perl5db.pl | 13 +- t/porting/customized.dat | 161 ++++++++++++++++-- utils/c2ph.PL | 1 + utils/h2ph.PL | 2 + utils/h2xs.PL | 2 + utils/libnetcfg.PL | 1 + utils/perlbug.PL | 1 + utils/perldoc.PL | 5 +- utils/perlivp.PL | 2 + utils/splain.PL | 6 + 187 files changed, 663 insertions(+), 191 deletions(-) diff --git a/META.json b/META.json index b5e818a..5458851 100644 --- a/META.json +++ b/META.json @@ -125,5 +125,5 @@ } }, "version" : "5.025004", - "x_serialization_backend" : "JSON::PP version 2.27400" + "x_serialization_backend" : "JSON::PP version 2.27400_01" } diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index fba6310..7c809ee 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -126,6 +126,14 @@ use File::Glob qw(:case); 'EXCLUDED' => [ qw(t/07_ptardiff.t), ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( + bin/ptar bin/ptardiff bin/ptargrep + lib/Archive/Tar.pm lib/Archive/Tar/Constant.pm + lib/Archive/Tar/File.pm + ) + ], }, 'Attribute::Handlers' => { @@ -195,6 +203,13 @@ use File::Glob qw(:case); t/03podcov.t ), ], + 'CUSTOMIZED' => [ + qw( + lib/Math/BigFloat/Trace.pm + lib/Math/BigInt/Trace.pm lib/bigint.pm + lib/bignum.pm lib/bigrat.pm + ) + ], }, 'Carp' => { @@ -283,6 +298,12 @@ use File::Glob qw(:case); t/yaml_code.yml ), ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( + lib/App/Cpan.pm lib/CPAN.pm scripts/cpan + ) + ], }, # Note: When updating CPAN-Meta the META.* files will need to be regenerated @@ -359,6 +380,10 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'GAAS/Digest-1.17.tar.gz', 'FILES' => q[cpan/Digest], 'EXCLUDED' => ['digest-bench'], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( Digest.pm ) + ], }, 'Digest::MD5' => { @@ -376,6 +401,10 @@ use File::Glob qw(:case); examples/dups ), ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( lib/Digest/SHA.pm shasum ) + ], }, 'Dumpvalue' => { @@ -398,6 +427,13 @@ use File::Glob qw(:case); t/jperl.t ), ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( + Encode.pm bin/enc2xs bin/encguess bin/piconv + bin/ucmlint bin/unidump + ) + ], }, 'encoding::warnings' => { @@ -481,7 +517,30 @@ use File::Glob qw(:case); 'README.packaging', 'lib/ExtUtils/MakeMaker/version/vpp.pm', ], - 'CUSTOMIZED' => [ qw( t/basic.t t/lib/MakeMaker/Test/Setup/XS.pm ) ], + 'CUSTOMIZED' => [ qw( t/basic.t t/lib/MakeMaker/Test/Setup/XS.pm ), + # CVE-2016-1238 + qw( + bin/instmodsh lib/ExtUtils/Command.pm + lib/ExtUtils/Command/MM.pm + lib/ExtUtils/Liblist.pm + lib/ExtUtils/Liblist/Kid.pm lib/ExtUtils/MM.pm + lib/ExtUtils/MM_AIX.pm lib/ExtUtils/MM_Any.pm + lib/ExtUtils/MM_BeOS.pm lib/ExtUtils/MM_Cygwin.pm + lib/ExtUtils/MM_DOS.pm lib/ExtUtils/MM_Darwin.pm + lib/ExtUtils/MM_MacOS.pm lib/ExtUtils/MM_NW5.pm + lib/ExtUtils/MM_OS2.pm lib/ExtUtils/MM_QNX.pm + lib/ExtUtils/MM_UWIN.pm lib/ExtUtils/MM_Unix.pm + lib/ExtUtils/MM_VMS.pm lib/ExtUtils/MM_VOS.pm + lib/ExtUtils/MM_Win32.pm lib/ExtUtils/MM_Win95.pm + lib/ExtUtils/MY.pm lib/ExtUtils/MakeMaker.pm + lib/ExtUtils/MakeMaker/Config.pm + lib/ExtUtils/MakeMaker/version.pm + lib/ExtUtils/MakeMaker/version/regex.pm + lib/ExtUtils/Mkbootstrap.pm + lib/ExtUtils/Mksymlists.pm + lib/ExtUtils/testlib.pm + ), + ], }, 'ExtUtils::Manifest' => { @@ -501,6 +560,10 @@ use File::Glob qw(:case); 'File::Fetch' => { 'DISTRIBUTION' => 'BINGOS/File-Fetch-0.48.tar.gz', 'FILES' => q[cpan/File-Fetch], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( lib/File/Fetch.pm ) + ], }, 'File::Path' => { @@ -594,6 +657,10 @@ use File::Glob qw(:case); qr/^eg/, qr/^xt/ ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( lib/HTTP/Tiny.pm ) + ], }, 'I18N::Collate' => { @@ -627,6 +694,37 @@ use File::Glob qw(:case); 't/010examples-zlib.t', 't/cz-05examples.t', ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( + bin/zipdetails lib/Compress/Zlib.pm + lib/IO/Compress/Adapter/Bzip2.pm + lib/IO/Compress/Adapter/Deflate.pm + lib/IO/Compress/Adapter/Identity.pm + lib/IO/Compress/Base.pm + lib/IO/Compress/Base/Common.pm + lib/IO/Compress/Bzip2.pm + lib/IO/Compress/Deflate.pm + lib/IO/Compress/Gzip.pm + lib/IO/Compress/Gzip/Constants.pm + lib/IO/Compress/RawDeflate.pm + lib/IO/Compress/Zip.pm + lib/IO/Compress/Zip/Constants.pm + lib/IO/Compress/Zlib/Constants.pm + lib/IO/Compress/Zlib/Extra.pm + lib/IO/Uncompress/Adapter/Bunzip2.pm + lib/IO/Uncompress/Adapter/Identity.pm + lib/IO/Uncompress/Adapter/Inflate.pm + lib/IO/Uncompress/AnyInflate.pm + lib/IO/Uncompress/AnyUncompress.pm + lib/IO/Uncompress/Base.pm + lib/IO/Uncompress/Bunzip2.pm + lib/IO/Uncompress/Gunzip.pm + lib/IO/Uncompress/Inflate.pm + lib/IO/Uncompress/RawInflate.pm + lib/IO/Uncompress/Unzip.pm + ) + ], }, 'IO::Socket::IP' => { @@ -645,6 +743,10 @@ use File::Glob qw(:case); 'IPC::Cmd' => { 'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.94.tar.gz', 'FILES' => q[cpan/IPC-Cmd], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( lib/IPC/Cmd.pm ) + ], }, 'IPC::SysV' => { @@ -660,6 +762,10 @@ use File::Glob qw(:case); 'JSON::PP' => { 'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-2.27400.tar.gz', 'FILES' => q[cpan/JSON-PP], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( bin/json_pp lib/JSON/PP.pm ), + ], }, 'lib' => { @@ -685,6 +791,17 @@ use File::Glob qw(:case); qr(^demos/), qr(^t/external/), ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( + lib/Net/Cmd.pm lib/Net/Config.pm + lib/Net/Domain.pm lib/Net/FTP.pm lib/Net/FTP/A.pm + lib/Net/FTP/E.pm lib/Net/FTP/I.pm + lib/Net/FTP/L.pm lib/Net/FTP/dataconn.pm + lib/Net/NNTP.pm lib/Net/Netrc.pm lib/Net/POP3.pm + lib/Net/SMTP.pm lib/Net/Time.pm + ) + ], }, 'Locale-Codes' => { @@ -717,6 +834,10 @@ use File::Glob qw(:case); 'Locale::Maketext::Simple' => { 'DISTRIBUTION' => 'JESSE/Locale-Maketext-Simple-0.21.tar.gz', 'FILES' => q[cpan/Locale-Maketext-Simple], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( lib/Locale/Maketext/Simple.pm ) + ], }, 'Math::BigInt' => { @@ -785,6 +906,10 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'MJD/Memoize-1.03.tgz', 'FILES' => q[cpan/Memoize], 'EXCLUDED' => ['article.html'], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( Memoize.pm ) + ], }, 'MIME::Base64' => { @@ -1010,6 +1135,10 @@ use File::Glob qw(:case); win32/PerlLog.RES ), ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( Syslog.pm ) + ], }, 'Term::ANSIColor' => { @@ -1060,6 +1189,54 @@ use File::Glob qw(:case); t/lib/if.pm ), ], + 'CUSTOMIZED' => [ + # CVE-2016-1238 + qw( + bin/prove lib/App/Prove.pm lib/App/Prove/State.pm + lib/App/Prove/State/Result.pm + lib/App/Prove/State/Result/Test.pm + lib/TAP/Base.pm lib/TAP/Formatter/Base.pm + lib/TAP/Formatter/Color.pm + lib/TAP/Formatter/Console.pm + lib/TAP/Formatter/Console/ParallelSession.pm + lib/TAP/Formatter/Console/Session.pm + lib/TAP/Formatter/File.pm + lib/TAP/Formatter/File/Session.pm + lib/TAP/Formatter/Session.pm lib/TAP/Harness.pm + lib/TAP/Harness/Env.pm lib/TAP/Object.pm + lib/TAP/Parser.pm lib/TAP/Parser/Aggregator.pm + lib/TAP/Parser/Grammar.pm + lib/TAP/Parser/Iterator.pm + lib/TAP/Parser/Iterator/Array.pm + lib/TAP/Parser/Iterator/Process.pm + lib/TAP/Parser/Iterator/Stream.pm + lib/TAP/Parser/IteratorFactory.pm + lib/TAP/Parser/Multiplexer.pm + lib/TAP/Parser/Result.pm + lib/TAP/Parser/Result/Bailout.pm + lib/TAP/Parser/Result/Comment.pm + lib/TAP/Parser/Result/Plan.pm + lib/TAP/Parser/Result/Pragma.pm + lib/TAP/Parser/Result/Test.pm + lib/TAP/Parser/Result/Unknown.pm + lib/TAP/Parser/Result/Version.pm + lib/TAP/Parser/Result/YAML.pm + lib/TAP/Parser/ResultFactory.pm + lib/TAP/Parser/Scheduler.pm + lib/TAP/Parser/Scheduler/Job.pm + lib/TAP/Parser/Scheduler/Spinner.pm + lib/TAP/Parser/Source.pm + lib/TAP/Parser/SourceHandler.pm + lib/TAP/Parser/SourceHandler/Executable.pm + lib/TAP/Parser/SourceHandler/File.pm + lib/TAP/Parser/SourceHandler/Handle.pm + lib/TAP/Parser/SourceHandler/Perl.pm + lib/TAP/Parser/SourceHandler/RawTAP.pm + lib/TAP/Parser/YAMLish/Reader.pm + lib/TAP/Parser/YAMLish/Writer.pm + lib/Test/Harness.pm + ) + ], }, 'Test::Simple' => { diff --git a/cpan/Archive-Tar/bin/ptar b/cpan/Archive-Tar/bin/ptar index 0eaffa7..9dc6402 100644 --- a/cpan/Archive-Tar/bin/ptar +++ b/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/cpan/Archive-Tar/bin/ptardiff b/cpan/Archive-Tar/bin/ptardiff index 66bd859..4668fa6 100644 --- a/cpan/Archive-Tar/bin/ptardiff +++ b/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/cpan/Archive-Tar/bin/ptargrep b/cpan/Archive-Tar/bin/ptargrep index 1a320f1..8dc6b4f 100644 --- a/cpan/Archive-Tar/bin/ptargrep +++ b/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/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index adbb548..8a32d86 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar.pm +++ b/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 = "2.08"; +$VERSION = "2.08_01"; $CHOWN = 1; $CHMOD = 1; $SAME_PERMISSIONS = $> == 0 ? 1 : 0; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm index ac91400..d265a00 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm @@ -3,7 +3,7 @@ package Archive::Tar::Constant; BEGIN { require Exporter; - $VERSION = '2.08'; + $VERSION = '2.08_01'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm b/cpan/Archive-Tar/lib/Archive/Tar/File.pm index 5821304..62b6622 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm +++ b/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 = '2.08'; +$VERSION = '2.08_01'; ### set value to 1 to oct() it during the unpack ### diff --git a/cpan/CPAN/lib/App/Cpan.pm b/cpan/CPAN/lib/App/Cpan.pm index 59642ed..4856018 100644 --- a/cpan/CPAN/lib/App/Cpan.pm +++ b/cpan/CPAN/lib/App/Cpan.pm @@ -6,7 +6,7 @@ use vars qw($VERSION); use if $] < 5.008 => 'IO::Scalar'; -$VERSION = '1.64'; +$VERSION = '1.64_01'; =head1 NAME @@ -549,9 +549,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 ) { @@ -1020,7 +1031,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" ); } @@ -1160,7 +1171,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; @@ -1182,7 +1193,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; @@ -1245,7 +1256,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/cpan/CPAN/lib/CPAN.pm b/cpan/CPAN/lib/CPAN.pm index ab2d00f..49e3352 100644 --- a/cpan/CPAN/lib/CPAN.pm +++ b/cpan/CPAN/lib/CPAN.pm @@ -2,7 +2,7 @@ # vim: ts=4 sts=4 sw=4: use strict; package CPAN; -$CPAN::VERSION = '2.14'; +$CPAN::VERSION = '2.14_01'; $CPAN::VERSION =~ s/_//; # we need to run chdir all over and we would get at wrong libraries @@ -1118,6 +1118,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() }; @@ -1160,6 +1162,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/cpan/CPAN/scripts/cpan b/cpan/CPAN/scripts/cpan index 5555090..cceab30 100644 --- a/cpan/CPAN/scripts/cpan +++ b/cpan/CPAN/scripts/cpan @@ -1,5 +1,6 @@ #!/usr/local/bin/perl +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use vars qw($VERSION); diff --git a/cpan/Digest-SHA/lib/Digest/SHA.pm b/cpan/Digest-SHA/lib/Digest/SHA.pm index 3abca3d..e696dec 100644 --- a/cpan/Digest-SHA/lib/Digest/SHA.pm +++ b/cpan/Digest-SHA/lib/Digest/SHA.pm @@ -8,7 +8,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use Fcntl; use integer; -$VERSION = '5.95'; +$VERSION = '5.95_01'; require Exporter; require DynaLoader; diff --git a/cpan/Digest-SHA/shasum b/cpan/Digest-SHA/shasum index 14ddd60..62a2b0e 100644 --- a/cpan/Digest-SHA/shasum +++ b/cpan/Digest-SHA/shasum @@ -13,6 +13,7 @@ ## "-0" option for reading bit strings, and ## "-p" option for portable digests (to be deprecated). +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use warnings; use Fcntl; diff --git a/cpan/Digest/Digest.pm b/cpan/Digest/Digest.pm index c3355a8..16dae9d 100644 --- a/cpan/Digest/Digest.pm +++ b/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/cpan/Encode/Encode.pm b/cpan/Encode/Encode.pm index ff868a5..041e60c 100644 --- a/cpan/Encode/Encode.pm +++ b/cpan/Encode/Encode.pm @@ -4,7 +4,7 @@ package Encode; use strict; use warnings; -our $VERSION = sprintf "%d.%02d", q$Revision: 2.84 $ =~ /(\d+)/g; +our $VERSION = sprintf "%d.%02d_01", q$Revision: 2.84 $ =~ /(\d+)/g; use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG}; use XSLoader (); XSLoader::load( __PACKAGE__, $VERSION ); @@ -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/cpan/Encode/bin/enc2xs b/cpan/Encode/bin/enc2xs index ec4732c..f8d9f52 100644 --- a/cpan/Encode/bin/enc2xs +++ b/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/cpan/Encode/bin/encguess b/cpan/Encode/bin/encguess index 5d7ac80..0be5c7c 100644 --- a/cpan/Encode/bin/encguess +++ b/cpan/Encode/bin/encguess @@ -1,5 +1,6 @@ #!./perl use 5.008001; +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use warnings; use Encode; diff --git a/cpan/Encode/bin/piconv b/cpan/Encode/bin/piconv index c1dad9e..60b2a59 100644 --- a/cpan/Encode/bin/piconv +++ b/cpan/Encode/bin/piconv @@ -1,6 +1,7 @@ #!./perl # $Id: piconv,v 2.7 2014/05/31 09:48:48 dankogai Exp $ # +BEGIN { pop @INC if $INC[-1] eq '.' } use 5.8.0; use strict; use Encode ; diff --git a/cpan/Encode/bin/ucmlint b/cpan/Encode/bin/ucmlint index 622376d..25e0d67 100644 --- a/cpan/Encode/bin/ucmlint +++ b/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/cpan/Encode/bin/unidump b/cpan/Encode/bin/unidump index ae0da30..f190827 100644 --- a/cpan/Encode/bin/unidump +++ b/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/cpan/ExtUtils-MakeMaker/bin/instmodsh b/cpan/ExtUtils-MakeMaker/bin/instmodsh index 8b9aa95..ab0f9d1 100644 --- a/cpan/ExtUtils-MakeMaker/bin/instmodsh +++ b/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/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command.pm index 98395d2..c214970 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command.pm @@ -7,7 +7,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 = '7.18'; +$VERSION = '7.18_01'; $VERSION = eval $VERSION; my $Is_VMS = $^O eq 'VMS'; @@ -20,7 +20,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/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm index d9fbb5d..4cb9855 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm +++ b/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 = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; my $Is_VMS = $^O eq 'VMS'; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm index 56fc355..687f2d8 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm @@ -2,7 +2,7 @@ package ExtUtils::Liblist; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; use File::Spec; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm index 23708e2..acdffcf 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm @@ -11,7 +11,7 @@ use 5.006; use strict; use warnings; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; use ExtUtils::MakeMaker::Config; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm index 0b2835c..ab2e4e0 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm @@ -3,7 +3,7 @@ package ExtUtils::MM; use strict; use ExtUtils::MakeMaker::Config; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::Liblist; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm index 0db269b..770937d 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_AIX; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Unix; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm index 7320aee..c0fca75 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_Any; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; use Carp; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm index 1a910d9..6edcc74 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm +++ b/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 = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm index e8e9d3d..b4dfcff 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm +++ b/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 = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm index 6bbd02e..338fbe3 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm @@ -2,7 +2,7 @@ package ExtUtils::MM_DOS; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Any; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm index a6490db..ad8bb4f 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm @@ -7,7 +7,7 @@ BEGIN { our @ISA = qw( ExtUtils::MM_Unix ); } -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm index 5cee011..48b0938 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm @@ -2,7 +2,7 @@ package ExtUtils::MM_MacOS; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; sub new { diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm index 48b0b46..24fdaa3 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm @@ -22,7 +22,7 @@ use strict; use ExtUtils::MakeMaker::Config; use File::Basename; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Win32; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm index 4dc8bcc..4325f96 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm @@ -5,7 +5,7 @@ use strict; use ExtUtils::MakeMaker qw(neatvalue); use File::Spec; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Any; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm index 9a604a1..a0a02fd 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_QNX; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Unix; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm index 38c1042..d4d4c12 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_UWIN; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Unix; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm index fe0ff54..6763e57 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm @@ -14,7 +14,7 @@ use ExtUtils::MakeMaker qw($Verbose neatvalue _sprintf562); # If we make $VERSION an our variable parse_version() breaks use vars qw($VERSION); -$VERSION = '7.18'; +$VERSION = '7.18_01'; $VERSION = eval $VERSION; ## no critic [BuiltinFunctions::ProhibitStringyEval] require ExtUtils::MM_Any; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm index 8565dc2..4f19689 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm @@ -15,7 +15,7 @@ BEGIN { use File::Basename; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Any; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm index dde1902..e342fd3 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm @@ -1,7 +1,7 @@ package ExtUtils::MM_VOS; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Unix; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm index d8efc66..ee2a7e3 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm @@ -27,7 +27,7 @@ use ExtUtils::MakeMaker qw(neatvalue _sprintf562); require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; $ENV{EMXSHELL} = 'sh'; # to run `commands` diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm index f9a4f9d..8b345c2 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm @@ -2,7 +2,7 @@ package ExtUtils::MM_Win95; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require ExtUtils::MM_Win32; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm index be4c708..95532d7 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm @@ -3,7 +3,7 @@ package ExtUtils::MY; use strict; require ExtUtils::MM; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; our @ISA = qw(ExtUtils::MM); diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm index e840410..6e8e4ad 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm @@ -24,7 +24,7 @@ my %Recognized_Att_Keys; our %macro_fsentity; # whether a macro is a filesystem name our %macro_dep; # whether a macro is a dependency -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; ## no critic [BuiltinFunctions::ProhibitStringyEval] # Emulate something resembling CVS $Revision$ diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm index 7259f34..1b92bef 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm @@ -2,7 +2,7 @@ package ExtUtils::MakeMaker::Config; use strict; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; use Config (); diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version.pm index a6584c7..6073163 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version.pm @@ -15,7 +15,7 @@ use strict; use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv); -$VERSION = '7.18'; +$VERSION = '7.18_01'; $VERSION = eval $VERSION; $CLASS = 'version'; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version/regex.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version/regex.pm index 896998e..8188fac 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version/regex.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version/regex.pm @@ -10,7 +10,7 @@ use strict; use vars qw($VERSION $CLASS $STRICT $LAX); -$VERSION = '7.18'; +$VERSION = '7.18_01'; $VERSION = eval $VERSION; #--------------------------------------------------------------------------# diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm index 2a0d463..3c329b3 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm +++ b/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 = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; require Exporter; diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm index 582b290..1553fa7 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm @@ -10,7 +10,7 @@ use Config; our @ISA = qw(Exporter); our @EXPORT = qw(&Mksymlists); -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; sub Mksymlists { diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm index 3f2795b..669944b 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm @@ -3,7 +3,7 @@ package ExtUtils::testlib; use strict; use warnings; -our $VERSION = '7.18'; +our $VERSION = '7.18_01'; $VERSION = eval $VERSION; use Cwd; diff --git a/cpan/File-Fetch/lib/File/Fetch.pm b/cpan/File-Fetch/lib/File/Fetch.pm index 7d6a263..de2ab12 100644 --- a/cpan/File-Fetch/lib/File/Fetch.pm +++ b/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 = '[email protected]'; @@ -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/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm index 42653e0..03395e8 100644 --- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm +++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm @@ -4,7 +4,7 @@ use strict; use warnings; # ABSTRACT: A small, simple, correct HTTP/1.1 client -our $VERSION = '0.058'; +our $VERSION = '0.058_001'; use Carp (); @@ -504,6 +504,8 @@ sub can_ssl { my($ok, $reason) = (1, ''); # Need IO::Socket::SSL 1.42 for SSL_create_ctx_callback + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; unless (eval {require IO::Socket::SSL; IO::Socket::SSL->VERSION(1.42)}) { $ok = 0; $reason .= qq/IO::Socket::SSL 1.42 must be installed for https support\n/; @@ -1568,6 +1570,8 @@ sub _find_CA_file { return $ca_file; } + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; return Mozilla::CA::SSL_ca_file() if eval { require Mozilla::CA; 1 }; diff --git a/cpan/IO-Compress/bin/zipdetails b/cpan/IO-Compress/bin/zipdetails index 0249850..1b9c70a 100644 --- a/cpan/IO-Compress/bin/zipdetails +++ b/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 ; diff --git a/cpan/IO-Compress/lib/Compress/Zlib.pm b/cpan/IO-Compress/lib/Compress/Zlib.pm index 36070c7..092740c 100644 --- a/cpan/IO-Compress/lib/Compress/Zlib.pm +++ b/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.069'; +$VERSION = '2.069_01'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm b/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm index 74757a9..84e5615 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm @@ -9,7 +9,7 @@ use IO::Compress::Base::Common 2.069 qw(:Status); use Compress::Raw::Bzip2 2.069 ; our ($VERSION); -$VERSION = '2.069'; +$VERSION = '2.069_01'; sub mkCompObject { diff --git a/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm b/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm index 7c616bf..e71ef38 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm @@ -10,7 +10,7 @@ use Compress::Raw::Zlib 2.069 qw( !crc32 !adler32 ) ; require Exporter; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS); -$VERSION = '2.069'; +$VERSION = '2.069_01'; @ISA = qw(Exporter); @EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS; %EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS; diff --git a/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm b/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm index b09897a..9d41493 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm @@ -7,7 +7,7 @@ use bytes; use IO::Compress::Base::Common 2.069 qw(:Status); our ($VERSION); -$VERSION = '2.069'; +$VERSION = '2.069_01'; sub mkCompObject { diff --git a/cpan/IO-Compress/lib/IO/Compress/Base.pm b/cpan/IO-Compress/lib/IO/Compress/Base.pm index 2a0dd79..20760bb 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Base.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Base.pm @@ -20,7 +20,7 @@ use Symbol(); our (@ISA, $VERSION); @ISA = qw(Exporter IO::File); -$VERSION = '2.069'; +$VERSION = '2.069_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/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm b/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm index fc983db..0e92f75 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm +++ b/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.069'; +$VERSION = '2.069_01'; @EXPORT = qw( isaFilehandle isaFilename isaScalar whatIsInput whatIsOutput diff --git a/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm b/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm index fbb9aed..d61d723 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm @@ -14,7 +14,7 @@ use IO::Compress::Adapter::Bzip2 2.069 ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error); -$VERSION = '2.069'; +$VERSION = '2.069_01'; $Bzip2Error = ''; @ISA = qw(Exporter IO::Compress::Base); diff --git a/cpan/IO-Compress/lib/IO/Compress/Deflate.pm b/cpan/IO-Compress/lib/IO/Compress/Deflate.pm index c79b336..8e1d263 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Deflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Deflate.pm @@ -17,7 +17,7 @@ use IO::Compress::Base::Common 2.069 qw(); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError); -$VERSION = '2.069'; +$VERSION = '2.069_01'; $DeflateError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/cpan/IO-Compress/lib/IO/Compress/Gzip.pm b/cpan/IO-Compress/lib/IO/Compress/Gzip.pm index 1aa5447..9b1d814 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Gzip.pm +++ b/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.069'; +$VERSION = '2.069_01'; $GzipError = '' ; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm b/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm index 293905c..7964379 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm +++ b/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.069'; +$VERSION = '2.069_01'; @ISA = qw(Exporter); diff --git a/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm b/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm index 7eabff9..9d55c88 100644 --- a/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm +++ b/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.069'; +$VERSION = '2.069_01'; $RawDeflateError = ''; @ISA = qw(Exporter IO::Compress::Base); diff --git a/cpan/IO-Compress/lib/IO/Compress/Zip.pm b/cpan/IO-Compress/lib/IO/Compress/Zip.pm index 9e0d1c9..4ebcc17 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zip.pm +++ b/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.069'; +$VERSION = '2.069_01'; $ZipError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm b/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm index 40ad060..976663f 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm +++ b/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.069'; +$VERSION = '2.069_01'; @ISA = qw(Exporter); diff --git a/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm b/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm index 13fd7d2..4d2441e 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm @@ -9,7 +9,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT); -$VERSION = '2.069'; +$VERSION = '2.069_01'; @ISA = qw(Exporter); diff --git a/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm b/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm index ecec7a9..9541c5e 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm @@ -8,7 +8,7 @@ use bytes; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.069'; +$VERSION = '2.069_01'; use IO::Compress::Gzip::Constants 2.069 ; diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm index 6086cd8..5d02208 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm @@ -9,7 +9,7 @@ use IO::Compress::Base::Common 2.069 qw(:Status); use Compress::Raw::Bzip2 2.069 ; our ($VERSION, @ISA); -$VERSION = '2.069'; +$VERSION = '2.069_01'; sub mkUncompObject { diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm index 5ce6714..e89f4bb 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm @@ -9,7 +9,7 @@ use IO::Compress::Zip::Constants ; our ($VERSION); -$VERSION = '2.069'; +$VERSION = '2.069_01'; use Compress::Raw::Zlib 2.069 (); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm index fafa385..68713b3 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm @@ -8,7 +8,7 @@ use IO::Compress::Base::Common 2.069 qw(:Status); use Compress::Raw::Zlib 2.069 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); our ($VERSION); -$VERSION = '2.069'; +$VERSION = '2.069_01'; diff --git a/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm index 50e586e..30394cb 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm @@ -21,7 +21,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError); -$VERSION = '2.069'; +$VERSION = '2.069_01'; $AnyInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm b/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm index d44b225..0760fc5 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm @@ -13,7 +13,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError); -$VERSION = '2.069'; +$VERSION = '2.069_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.069 ;'; eval ' use IO::Uncompress::Adapter::Bunzip2 2.069 ;'; eval ' use IO::Uncompress::Adapter::LZO 2.069 ;'; diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Base.pm b/cpan/IO-Compress/lib/IO/Uncompress/Base.pm index 93c05de..86a8040 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Base.pm +++ b/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.069'; +$VERSION = '2.069_01'; use constant G_EOF => 0 ; use constant G_ERR => -1 ; diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm b/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm index 46b5ea1..655a381 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm @@ -12,7 +12,7 @@ use IO::Uncompress::Adapter::Bunzip2 2.069 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error); -$VERSION = '2.069'; +$VERSION = '2.069_01'; $Bunzip2Error = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm b/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm index bd698f4..b8be7f0 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm @@ -28,7 +28,7 @@ Exporter::export_ok_tags('all'); $GunzipError = ''; -$VERSION = '2.069'; +$VERSION = '2.069_01'; sub new { diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm index f62cfac..5683b37 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm @@ -13,7 +13,7 @@ use IO::Uncompress::RawInflate 2.069 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError); -$VERSION = '2.069'; +$VERSION = '2.069_01'; $InflateError = ''; @ISA = qw( Exporter IO::Uncompress::RawInflate ); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm index c052971..5f7ad9f 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm @@ -14,7 +14,7 @@ use IO::Uncompress::Adapter::Inflate 2.069 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError); -$VERSION = '2.069'; +$VERSION = '2.069_01'; $RawInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm b/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm index 0ee6df4..ef7abbc 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm +++ b/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.069'; +$VERSION = '2.069_01'; $UnzipError = ''; @ISA = qw(Exporter IO::Uncompress::RawInflate); diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm index 13f3c6b..89943a8 100644 --- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm +++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm @@ -18,7 +18,7 @@ BEGIN { $HAVE_MONOTONIC ]; - $VERSION = '0.94'; + $VERSION = '0.94_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/cpan/JSON-PP/bin/json_pp b/cpan/JSON-PP/bin/json_pp index 3362dec..39bed4d 100644 --- a/cpan/JSON-PP/bin/json_pp +++ b/cpan/JSON-PP/bin/json_pp @@ -1,5 +1,6 @@ #!/usr/bin/perl +BEGIN { pop @INC if $INC[-1] eq '.' } use strict; use Getopt::Long; diff --git a/cpan/JSON-PP/lib/JSON/PP.pm b/cpan/JSON-PP/lib/JSON/PP.pm index 28ea2d7..bbfb244 100644 --- a/cpan/JSON-PP/lib/JSON/PP.pm +++ b/cpan/JSON-PP/lib/JSON/PP.pm @@ -11,7 +11,7 @@ use Carp (); use B (); #use Devel::Peek; -$JSON::PP::VERSION = '2.27400'; +$JSON::PP::VERSION = '2.27400_01'; @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json); diff --git a/cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm b/cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm index 30760f3..9e61670 100644 --- a/cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm +++ b/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/cpan/Memoize/Memoize.pm b/cpan/Memoize/Memoize.pm index 9a58c4a..f4e6522 100644 --- a/cpan/Memoize/Memoize.pm +++ b/cpan/Memoize/Memoize.pm @@ -9,7 +9,7 @@ # write to [email protected] 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/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm index 84f6624..787353b 100644 --- a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm +++ b/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.25_02'; # patched in perl5.git +$VERSION = '3.25_03'; # patched in perl5.git $VERSION =~ s/_//; #.......................................................................... @@ -575,6 +575,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"; @@ -1006,6 +1009,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/cpan/Sys-Syslog/Syslog.pm b/cpan/Sys-Syslog/Syslog.pm index 0cfc749..549a56a 100644 --- a/cpan/Sys-Syslog/Syslog.pm +++ b/cpan/Sys-Syslog/Syslog.pm @@ -15,7 +15,7 @@ require 5.005; { no strict 'vars'; - $VERSION = '0.34'; + $VERSION = '0.34_01'; %EXPORT_TAGS = ( standard => [qw(openlog syslog closelog setlogmask)], @@ -918,6 +918,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/cpan/Test-Harness/bin/prove b/cpan/Test-Harness/bin/prove index 6637cc4..d71b238 100644 --- a/cpan/Test-Harness/bin/prove +++ b/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/cpan/Test-Harness/lib/App/Prove.pm b/cpan/Test-Harness/lib/App/Prove.pm index c321659..32eb59c 100644 --- a/cpan/Test-Harness/lib/App/Prove.pm +++ b/cpan/Test-Harness/lib/App/Prove.pm @@ -22,7 +22,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/App/Prove/State.pm b/cpan/Test-Harness/lib/App/Prove/State.pm index fbd4786..e352fb3 100644 --- a/cpan/Test-Harness/lib/App/Prove/State.pm +++ b/cpan/Test-Harness/lib/App/Prove/State.pm @@ -29,7 +29,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/App/Prove/State/Result.pm b/cpan/Test-Harness/lib/App/Prove/State/Result.pm index 4d4b991..931e52b 100644 --- a/cpan/Test-Harness/lib/App/Prove/State/Result.pm +++ b/cpan/Test-Harness/lib/App/Prove/State/Result.pm @@ -18,7 +18,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm b/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm index 3b2fc72..4819ed8 100644 --- a/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm +++ b/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm @@ -13,7 +13,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Base.pm b/cpan/Test-Harness/lib/TAP/Base.pm index a02f60a..e6ea22d 100644 --- a/cpan/Test-Harness/lib/TAP/Base.pm +++ b/cpan/Test-Harness/lib/TAP/Base.pm @@ -16,7 +16,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; use constant GOT_TIME_HIRES => do { eval 'use Time::HiRes qw(time);'; diff --git a/cpan/Test-Harness/lib/TAP/Formatter/Base.pm b/cpan/Test-Harness/lib/TAP/Formatter/Base.pm index 9594a29..a2fa3ea 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/Base.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/Base.pm @@ -62,7 +62,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Formatter/Color.pm b/cpan/Test-Harness/lib/TAP/Formatter/Color.pm index 43084d1..728247c 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/Color.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/Color.pm @@ -75,7 +75,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Formatter/Console.pm b/cpan/Test-Harness/lib/TAP/Formatter/Console.pm index 90d092b..8cc3060 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/Console.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/Console.pm @@ -15,7 +15,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm b/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm index 80736fc..c8cdf7c 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm @@ -45,7 +45,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm b/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm index c6a4fe3..8a15812 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm @@ -30,7 +30,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Formatter/File.pm b/cpan/Test-Harness/lib/TAP/Formatter/File.pm index 455e712..45d93a1 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/File.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/File.pm @@ -17,7 +17,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm b/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm index 7671fa9..371d7d5 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm @@ -14,7 +14,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION diff --git a/cpan/Test-Harness/lib/TAP/Formatter/Session.pm b/cpan/Test-Harness/lib/TAP/Formatter/Session.pm index b5dc504..2924276 100644 --- a/cpan/Test-Harness/lib/TAP/Formatter/Session.pm +++ b/cpan/Test-Harness/lib/TAP/Formatter/Session.pm @@ -27,7 +27,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 METHODS diff --git a/cpan/Test-Harness/lib/TAP/Harness.pm b/cpan/Test-Harness/lib/TAP/Harness.pm index e66ffc7..c916a32 100644 --- a/cpan/Test-Harness/lib/TAP/Harness.pm +++ b/cpan/Test-Harness/lib/TAP/Harness.pm @@ -20,7 +20,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; $ENV{HARNESS_ACTIVE} = 1; $ENV{HARNESS_VERSION} = $VERSION; diff --git a/cpan/Test-Harness/lib/TAP/Harness/Env.pm b/cpan/Test-Harness/lib/TAP/Harness/Env.pm index 4307179..0a328da 100644 --- a/cpan/Test-Harness/lib/TAP/Harness/Env.pm +++ b/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.36'; +our $VERSION = '3.36_01'; # Get the parts of @INC which are changed from the stock list AND # preserve reordering of stock directories. diff --git a/cpan/Test-Harness/lib/TAP/Object.pm b/cpan/Test-Harness/lib/TAP/Object.pm index fd7044f..5195bd7 100644 --- a/cpan/Test-Harness/lib/TAP/Object.pm +++ b/cpan/Test-Harness/lib/TAP/Object.pm @@ -13,7 +13,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser.pm b/cpan/Test-Harness/lib/TAP/Parser.pm index 53d5afe..f688c72 100644 --- a/cpan/Test-Harness/lib/TAP/Parser.pm +++ b/cpan/Test-Harness/lib/TAP/Parser.pm @@ -31,7 +31,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; my $DEFAULT_TAP_VERSION = 12; my $MAX_TAP_VERSION = 13; diff --git a/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm b/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm index 099bcbb..94289a4 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm @@ -16,7 +16,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm b/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm index a640646..e4ab7b4 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm @@ -18,7 +18,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm b/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm index bfdb3e1..93b8a7f 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm @@ -15,7 +15,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm b/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm index a8467e6..ce7000b 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm @@ -15,7 +15,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm b/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm index a851737..cf84299 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm @@ -20,7 +20,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm b/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm index bd319d2..f985279 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm @@ -15,7 +15,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm b/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm index 3ee87a5..7a80031 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm @@ -20,7 +20,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm b/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm index a53f830..55701f8 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm @@ -21,7 +21,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Result.pm b/cpan/Test-Harness/lib/TAP/Parser/Result.pm index 7a6e24e..270a24a 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Result.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Result.pm @@ -28,7 +28,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 SYNOPSIS diff --git a/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm b/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm index 6a6eecf..d5c7e8c 100644 --- a/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm +++ b/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm @@ -15,7 +15,7 @@ Version 3.36 =cut -our $VERSION = '3.36'; +our $VERSION = '3.36_01'; =head1 DESCRIPTION **** PATCH TRUNCATED AT 2000 LINES -- 1310 NOT SHOWN **** -- Perl5 Master Repository
