CPANPLUS-0.9162/000755 001751 001751 00000000000 13036656051 013653 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/MANIFEST000644 001751 001751 00000011475 12746203247 015016 0ustar00bingosbingos000000 000000 bin/cpan2dist bin/cpanp bin/cpanp-boxed bin/cpanp-run-perl ChangeLog inc/bundle/Archive/Extract.pm inc/bundle/Archive/Tar.pm inc/bundle/Archive/Tar/Constant.pm inc/bundle/Archive/Tar/File.pm inc/bundle/CPAN/Meta/YAML.pm inc/bundle/Devel/InnerPackage.pm inc/bundle/File/Fetch.pm inc/bundle/File/Fetch/Item.pm inc/bundle/File/Spec.pm inc/bundle/File/Spec/AmigaOS.pm inc/bundle/File/Spec/Cygwin.pm inc/bundle/File/Spec/Epoc.pm inc/bundle/File/Spec/Functions.pm inc/bundle/File/Spec/Mac.pm inc/bundle/File/Spec/OS2.pm inc/bundle/File/Spec/Unix.pm inc/bundle/File/Spec/VMS.pm inc/bundle/File/Spec/Win32.pm inc/bundle/HTTP/Tiny.pm inc/bundle/IO/String.pm inc/bundle/IO/Zlib.pm inc/bundle/IPC/Cmd.pm inc/bundle/JSON/PP.pm inc/bundle/JSON/PP/Boolean.pm inc/bundle/JSON/PP/Compat5006.pm inc/bundle/Locale/Maketext/Simple.pm inc/bundle/Log/Message.pm inc/bundle/Log/Message/Config.pm inc/bundle/Log/Message/Handlers.pm inc/bundle/Log/Message/Item.pm inc/bundle/Log/Message/Simple.pm inc/bundle/Module/CoreList.pm inc/bundle/Module/CoreList/TieHashDelta.pm inc/bundle/Module/CoreList/Utils.pm inc/bundle/Module/Load.pm inc/bundle/Module/Load/Conditional.pm inc/bundle/Module/Loaded.pm inc/bundle/Module/Metadata.pm inc/bundle/Module/Pluggable.pm inc/bundle/Module/Pluggable/Object.pm inc/bundle/Object/Accessor.pm inc/bundle/Package/Constants.pm inc/bundle/Params/Check.pm inc/bundle/Parse/CPAN/Meta.pm inc/bundle/Term/UI.pm inc/bundle/Term/UI/History.pm inc/bundle/version.pm inc/bundle/version.pod inc/bundle/version/regex.pm inc/bundle/version/typemap inc/bundle/version/vpp.pm inc/Module/Install.pm inc/Module/Install/Base.pm inc/Module/Install/Can.pm inc/Module/Install/Fetch.pm inc/Module/Install/Makefile.pm inc/Module/Install/Metadata.pm inc/Module/Install/Scripts.pm inc/Module/Install/Win32.pm inc/Module/Install/WriteAll.pm lib/CPANPLUS.pm lib/CPANPLUS/Backend.pm lib/CPANPLUS/Backend/RV.pm lib/CPANPLUS/Config.pm lib/CPANPLUS/Config/HomeEnv.pm lib/CPANPLUS/Configure.pm lib/CPANPLUS/Configure/Setup.pm lib/CPANPLUS/Dist.pm lib/CPANPLUS/Dist/Autobundle.pm lib/CPANPLUS/Dist/Base.pm lib/CPANPLUS/Dist/MM.pm lib/CPANPLUS/Dist/Sample.pm lib/CPANPLUS/Error.pm lib/CPANPLUS/FAQ.pod lib/CPANPLUS/Hacking.pod lib/CPANPLUS/Internals.pm lib/CPANPLUS/Internals/Constants.pm lib/CPANPLUS/Internals/Constants/Report.pm lib/CPANPLUS/Internals/Extract.pm lib/CPANPLUS/Internals/Fetch.pm lib/CPANPLUS/Internals/Report.pm lib/CPANPLUS/Internals/Search.pm lib/CPANPLUS/Internals/Source.pm lib/CPANPLUS/Internals/Source/Memory.pm lib/CPANPLUS/Internals/Source/SQLite.pm lib/CPANPLUS/Internals/Source/SQLite/Tie.pm lib/CPANPLUS/Internals/Utils.pm lib/CPANPLUS/Internals/Utils/Autoflush.pm lib/CPANPLUS/Module.pm lib/CPANPLUS/Module/Author.pm lib/CPANPLUS/Module/Author/Fake.pm lib/CPANPLUS/Module/Checksums.pm lib/CPANPLUS/Module/Fake.pm lib/CPANPLUS/Module/Signature.pm lib/CPANPLUS/Selfupdate.pm lib/CPANPLUS/Shell.pm lib/CPANPLUS/Shell/Classic.pm lib/CPANPLUS/Shell/Default.pm lib/CPANPLUS/Shell/Default/Plugins/CustomSource.pm lib/CPANPLUS/Shell/Default/Plugins/HOWTO.pod lib/CPANPLUS/Shell/Default/Plugins/Remote.pm lib/CPANPLUS/Shell/Default/Plugins/Source.pm Makefile.PL MANIFEST This list of files MANIFEST.SKIP META.yml META.json README t/00_CPANPLUS-Internals-Utils.t t/01_CPANPLUS-Configure.t t/02_CPANPLUS-Internals.t t/031_CPANPLUS-Internals-Source-SQLite.t t/032_CPANPLUS-Internals-Source-via-sqlite.t t/03_CPANPLUS-Internals-Source.t t/04_CPANPLUS-Module.t t/05_CPANPLUS-Internals-Fetch.t t/06_CPANPLUS-Internals-Constants.t t/07_CPANPLUS-Internals-Extract.t t/08_CPANPLUS-Backend.t t/09_CPANPLUS-Internals-Search.t t/10_CPANPLUS-Error.t t/15_CPANPLUS-Shell.t t/19_CPANPLUS-Dist.t t/20_CPANPLUS-Dist-MM.t t/21_CPANPLUS-Dist-No-Build.t t/25_CPANPLUS.t t/30_CPANPLUS-Internals-Selfupdate.t t/40_CPANPLUS-Internals-Report.t t/dummy-CPAN/authors/01mailrc.txt.gz t/dummy-CPAN/authors/id/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz t/dummy-CPAN/authors/id/EUNOXS/CHECKSUMS t/dummy-CPAN/authors/id/EUNOXS/CPANPLUS-0.01.tar.gz t/dummy-CPAN/authors/id/EUNOXS/Foo-Bar-0.01.meta t/dummy-CPAN/authors/id/EUNOXS/Foo-Bar-0.01.readme t/dummy-CPAN/authors/id/EUNOXS/Foo-Bar-0.01.tar.gz t/dummy-CPAN/authors/id/EUNOXS/perl5.005_03.tar.gz t/dummy-CPAN/authors/id/EUXS/CHECKSUMS t/dummy-CPAN/authors/id/EUXS/Foo-Bar-0.01.readme t/dummy-CPAN/authors/id/EUXS/Foo-Bar-0.01.tar.gz t/dummy-CPAN/authors/id/MBNOXS/CHECKSUMS t/dummy-CPAN/authors/id/MBNOXS/Foo-Bar-0.01.readme t/dummy-CPAN/authors/id/MBNOXS/Foo-Bar-0.01.tar.gz t/dummy-CPAN/authors/id/MBXS/CHECKSUMS t/dummy-CPAN/authors/id/MBXS/Foo-Bar-0.01.readme t/dummy-CPAN/authors/id/MBXS/Foo-Bar-0.01.tar.gz t/dummy-CPAN/autobundle/Snapshot.pm t/dummy-CPAN/modules/02packages.details.txt.gz t/dummy-CPAN/modules/03modlist.data.gz t/dummy-cpanplus/.hidden t/dummy-localmirror/.hidden t/dummy-perl/bin/.hidden t/dummy-perl/lib/.hidden t/dummy-perl/man/man1/.hidden t/dummy-perl/man/man3/.hidden t/inc/conf.pl CPANPLUS-0.9162/inc/000755 001751 001751 00000000000 13036656051 014424 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/bin/000755 001751 001751 00000000000 13036656051 014423 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/t/000755 001751 001751 00000000000 13036656051 014116 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/000755 001751 001751 00000000000 13036656051 014421 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/Makefile.PL000644 001751 001751 00000016466 12177240327 015642 0ustar00bingosbingos000000 000000 #!/usr/bin/perl ### we /need/ perl5.6.1 or higher -- we use coderefs in @INC, ### and 5.6.0 is just too buggy use 5.006001; use strict; use warnings; BEGIN { ### chdir to the makefile.pl dir use FindBin; chdir $FindBin::Bin; use File::Spec; use lib qw[lib]; # cpanplus modules ### add the directory to our bundled modules use vars qw[@ORIG_INC]; @ORIG_INC = @INC; # store for later use lib->import( File::Spec->catdir(qw[inc bundle]) ); } ### there's issues with redhat 9.0's stock perl -- they applied some ### custom patches on their 5.8.0 and it breaks use constant a => sub {}; if( $^O eq 'linux' and -e '/etc/redhat-release' and $] == '5.008' and (grep /Red Hat, Inc/, values %Config::Config) ) { print qq( ### IMPORTANT! ###################################################### You are using perl $] supplied by RedHat, who have applied custom patches that break various perl modules, including this one. You will have to migrate to a perl without these flaws. You could do this for example by building a perl installation by hand. You can obtain the sources from www.cpan.org. We're sorry for the inconvenience. ##################################################################### ) . $/; require 5.008001; } ### it spews warnings though, so grep those out ### also grep out the warnings we get from using Module::Loaded BEGIN { $SIG{__WARN__} = sub { print STDERR "@_" if "@_" !~ /^CPANPLUS::inc/ and "@_" !~ /Constant subroutine/; }; } use inc::Module::Install; use Getopt::Long; use CPANPLUS::Backend; use CPANPLUS::Configure; use CPANPLUS::Configure::Setup; use CPANPLUS::Internals::Constants; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; use constant BASIC_TESTS => qq[t/00_CPANPLUS-Internals-Utils.t]; my $Tests; my $RunSetup; GetOptions( 'setup' => \$RunSetup ); my $Backend = CPANPLUS::Backend->new; my $Config = CPANPLUS::Configure->new; ### no setup? this is easy.. print the message and move a long unless( $RunSetup ) { print qq[ ### IMPORTANT! ###################################################### As of CPANPLUS 0.070, configuration during 'perl Makefile.PL' is no longer required. A default config is now shipped that should work out of the box on most machines, for priviliged and unprivileged users. If you wish to configure CPANPLUS to your environment, you can either do that from the interactive shell after installation: \$ cpanp CPAN Terminal> s reconfigure Or you can invoke this program as follows, to do it now: \$ $^X Makefile.PL --setup This also means that any config created by any CPANPLUS older than 0.070 will no longer work, and you are required to reconfigure. See the ChangeLog file for details. We appologize for the inconvenience. ] . $/; ### ok, we're asked to run the setup stuff, let's do it } else { my $setup = CPANPLUS::Configure::Setup->new( backend => $Backend, configure_object => $Config, ); $setup->init; } { print loc(" ### PLEASE NOTE ################################################### CPANPLUS also ships a 'boxed' cpanp client, so you can run it out of it's extraction dir, by typing: \$ perl bin/cpanp-boxed This may help you with bootstrap issues, or other situations where you need to use CPANPLUS but can not use a system installation. You can install all of CPANPLUS' dependencies like this, before installing CPANPLUS itself by running: \$ perl bin/cpanp-boxed -s selfupdate dependencies All the modules bundled are found in the 'inc/bundle' directory. If you, for whatever reason, wish to not install these from cpan, you could include them into your environment as such (using tcsh): \$ setenv PERL5LIB $FindBin::Bin/inc/bundle ################################################################### " ); print "\n"; } _check_site_bin(); ### toss out the old source files, they might be compiled ### in an incompatilbe format (rt #18121) ### use 'can', because it might be different backend now { my $pat = File::Spec->catfile( $Config->get_conf('base'), $Config->_get_source('stored') .'*'. STORABLE_EXT, ); for my $file( glob($pat) ) { 1 while $file && unlink $file; } } ### write the makefile.pl { my $su = $Backend->selfupdate_object; my %prereq = ( %{ $su->list_core_dependencies( 'AS_HASH' ) }, map { ### might not need anything -- make sure we ### place an empty hash ref there %{ $su->modules_for_feature( $_, 'AS_HASH' ) || {} } } $su->list_enabled_features ); my @scripts = _scripts(); my $extraclean .= join ' ', grep { /\d$/ } @scripts; ### restore the original @INC, so proper probing of missing ### prereqs can be done @INC = @ORIG_INC; name ('CPANPLUS'); author ('Jos Boumans '); abstract ('Ameliorated interface to the CPAN'); version_from ('lib/CPANPLUS/Internals.pm'); license ('perl'); no_index ( directory => 'lib/CPANPLUS/inc' ); installdirs ( $] >= 5.009005 && $] < 5.012 ? 'perl' : 'site' ), install_script ($_) for @scripts; #install_script ($_) for grep { $_ !~ /cpanp-boxed/ } glob('bin/*'); requires (%prereq); makemaker_args ( test => { TESTS => $Tests } ) if $Tests; makemaker_args ( clean => { FILES => '.cpanplus t/.*.output t/*.rpt ' . 't/dummy-cpanplus/* t/dummy-cpanplus/.cpanplus '. 't/dummy-localmirror/* ' . 't/dummy-perl/arch ' . 't/dummy-perl/bin/* ' . 't/dummy-perl/lib/* ' . 't/dummy-perl/man/man1/* ' . 't/dummy-perl/man/man3/*'. ( $extraclean ? " $extraclean" : '' ) } ); repository ('https://github.com/jib/cpanplus-devel'); ### write the makefile ### this makes all prereqs rediscovered { use Module::Loaded; for ( keys %prereq ) { mark_as_unloaded( $_ ) if is_loaded( $_ ); } ### silence warnings about redefines... ### this will still warn about redefine of CONSTANTS subs... no warnings; local $^W; &WriteAll( check_nmake => 1 ); } } sub _scripts { my @scripts = grep { $_ !~ /cpanp-boxed/ } glob('bin/*'); if ( $] >= 5.009005 ) { require Config; my $version = sprintf("%vd",$^V); if ( $Config::Config{versiononly} and $Config::Config{startperl} =~ /\Q$version\E$/ ) { require File::Copy; File::Copy::copy( $_, "$_$version" ) for @scripts; @scripts = glob("bin/*$version"); } } return @scripts; } sub _check_site_bin { require Config; return if $] < 5.012; return if $Config::Config{installscript} eq $Config::Config{installsitescript}; print qq( ### IMPORTANT! ###################################################### Your site and core script locations are different. We will be put the scripts provided by this distribution in the site location. Please ensure that the site location is in your PATH. ##################################################################### ) . $/; } CPANPLUS-0.9162/README000644 001751 001751 00000010066 12143731615 014534 0ustar00bingosbingos000000 000000 This is the README file for CPANPLUS, Ameliorated interface to the Comprehensive Perl Archive Network, by Jos Boumans. Please type "perldoc CPANPLUS" after installation to see the module usage information. For shell usage, please consult "perldoc cpanp"; the FAQ is available as "perldoc CPANPLUS::FAQ". You may also want to read the 'ChangeLog' file, which describes new features, bugfixes and additional notes for this release. ################################################################### ### ### Installation ### ################################################################### CPANPLUS uses the standard perl module install process: $ perl Makefile.PL $ make # or 'nmake' on Windows $ make test $ make install After installation you can start CPANPLUS' interactive client by running one of the following commands: $ cpanp $ perl -MCPANPLUS -eshell CPANPLUS also ships a 'boxed' cpanp client, so you can run it out of it's extraction dir, by typing: $ perl bin/cpanp-boxed This may help you with bootstrap issues, or other situations where you need to use CPANPLUS but can not use a system installation. You can install all of CPANPLUS' dependencies like this, before installing CPANPLUS itself by running: $ perl bin/cpanp-boxed -s selfupdate dependencies All the modules bundled are found in the 'inc/bundle' directory. If you, for whatever reason, wish to not install these from cpan, you could include them into your environment as such (using tcsh): $ setenv PERL5LIB `pwd`/inc/bundle ################################################################### ### ### Notes for windows users ### ################################################################### If you are using Microsoft Windows, you will probably need the 'nmake' utility before installation. It's available at: http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/nmake15.exe If you are connected to the internet, "perl Makefile.PL" is capable of automatically fetch it, and install into your Perl/bin directory. You will see a message like this: The required 'nmake' executable not found, fetching it... However, if you are not yet online, or wish to install 'nmake' into another directory, then please download the file manually, save it to a directory in %PATH (e.g. C:\WINDOWS\COMMAND), then launch the MS-DOS command line shell, "cd" to that directory, and run "nmake15.exe" from there; that will create the 'nmake.exe' file. You may then resume the installation process above, but replace 'make' with 'nmake' in the last three lines. ################################################################### ### ### Notes on CPAN testing ### ################################################################### CPANPLUS offers several features to query and report module testing results. For example, typing "cpanp -c DBI" in the command line (or "c DBI" in the CPANPLUS default shell) will display the test results of latest DBI package. If you wish to report module test results as part of installation process, please answer "Y" to the 'Report tests results? [y/N]:' question during the interactive configuration. You can also type "s edit" in the CPANPLUS Default Shell to edit the config file manually, or just enter "s conf cpantest 1" and "s save" to save the settings. Please consult the CPAN Tester's Website (http://testers.cpan.org/) for detailed information. ################################################################### ### ### Contact ### ################################################################### CPANPLUS has several mailing lists you can write to: - Questions/suggestions: - Bug reporting: ################################################################### ### ### License ### ################################################################### Copyright 2001-2006 by Jos Boumans . All rights reserved. You can redistribute and/or modify this bundle under the same terms as Perl itself. See . CPANPLUS-0.9162/ChangeLog000644 001751 001751 00000177373 13036655002 015442 0ustar00bingosbingos000000 000000 0.9160 Wed May 18 21:27:41 BST 2016 * Add new bundled module to the MANIFEST *doh* 0.9158 Wed May 18 21:08:19 BST 2016 * Added Test2 to the reported toolchain in test reporting 0.9156 Thu Oct 15 13:29:38 BST 2015 * Handle dists that have numerics in last part of distname * Compartmentalise build dirs like CPANpm does 0.9154 Sat Jul 4 10:39:23 BST 2015 * Fixed an issue with @INC mangling in CPANPLUS process * POD fixes courtesy of Alexey Molchanov 0.9152 Tue Jun 10 16:25:29 BST 2014 * Shield tests from PERL_INSTALL_QUIET env var 0.9150 Mon Jun 9 14:48:10 BST 2014 * Update bundled modules 0.9148 Sun Feb 2 18:13:51 GMT 2014 * Update MANIFEST for missing file 0.9146 Sat Feb 1 14:29:28 GMT 2014 * revise fatpacker code * enable testsuite to run in parallel 0.9144 Mon Dec 9 20:04:25 GMT 2013 * Recognise bitrig as a UNIX * No longer download modslip file 0.9142 Mon Aug 12 23:39:58 2013 * Fix race condition in tests for MSWin32 * Fix hanging test on Cygwin * Update bundled modules 0.9140 Sat Aug 3 22:28:25 2013 * Make extraction less verbose * Install into site if >= v5.12.0 0.9138 Mon May 20 22:36:38 2013 * Pod fixes by Kevin Ryde and Gregor Herrmann 0.9136 Sat Apr 27 15:06:02 2013 * Don't bother with 03modlist.data anymore 0.9134 Mon Jan 21 20:00:03 2013 * $VERSION all library files 0.9133 Sat Sep 29 11:49:02 2012 * Fix MANIFEST for last release 0.9132 Sat Sep 29 11:40:53 2012 * Resolve RT #79925, Module::Metadata was missing from inc/bundle. Reported by Steve Sanbeg 0.9131 Tue Sep 18 14:10:16 2012 * Add Pod::* modules to reported toolchain modules * Resolve issue with $cb->search() and SQLite source engine 0.9130 Thu May 24 22:04:10 2012 * Always re-fetch CHECKSUMS if fetchdir is set (Torsten Schoenfeld) 0.9129 Wed May 9 21:22:41 2012 * Handle multiple makemakerargs and makeflags arguments better. * Use File::HomeDir for home directory location if it is available, thanks to kmx * Added PERL5_CPANPLUS_HOME for altering where the .cpanplus directory is located 0.9128 Sat Apr 28 21:27:06 2012 * Fix the previous fix 0.9127 Sat Apr 28 20:34:44 2012 * Silenced annoying warnings related to older perls and the progress indicators 0.9126 Sat Apr 28 00:49:43 2012 * More speed enhancements to module indexing, thanks to Vincent Pit 0.9125 Wed Apr 25 14:28:34 2012 * Speed enhancements to module indexing, thanks to Vincent Pit 0.9124 Fri Apr 6 19:24:55 2012 * Save the history between invocations of the shell. 0.9123 Fri Mar 30 16:46:52 2012 * Added support for adding blib/script to PATH 0.9122 Wed Mar 28 21:52:38 2012 * Don't spawn a process to check whether perl version prereqs are satisfied 0.9121 Sat Mar 17 23:23:42 2012 * Resolved a regression with dev '_' version numbers since 0.9109 0.9120 Sun Mar 4 12:12:52 2012 * Resolved a regression with NA test reports 0.9119 Thu Feb 23 20:54:53 2012 * Added progress indicators for indexing when 'verbose' is set, [rt #75233], contributed by reisub 0.9118 Mon Feb 13 22:29:33 2012 * Test reporting enhancements 0.9116 Thu Jan 5 22:45:06 2012 * add NAME headings in modules with POD, Debian Lintian fixes, http://bugs.debian.org/65045 * Implement reload command in the shell 0.9115 Tue Dec 20 21:10:24 2011 * Added new config option 'allow_unknown_prereqs' to resolve issues with 0.9114 release 0.9114 Mon Dec 19 21:15:38 2011 * Fail earlier on unresolvable prereqs as per [rt.cpan.org #73310] 0.9113 Fri Dec 9 16:05:07 2011 * Add more detail and reason for NA to NA reports 0.9112 Fri Nov 11 11:10:59 2011 * The 'perlwrapper' is no longer required. 0.9111 Fri Sep 16 10:15:06 2011 * Enhance CPANPLUS::Dist::MM Makefile/Makefile.PL age checking code to resolve some issues. 0.9110 Thu Sep 1 13:43:06 2011 * CPANPLUS::Dist::MM now ensures that Makefile.PL is older than any generated Makefile * When resolving dependencies ignore any @INC-hook when finding installed modules * Updated the META.yml in the dist to specify 'dynamic_config' as true. 0.9109 Tue Jul 19 22:44:53 2011 * Fix support for v-strings and x.y.z versions with v5.8.4 0.9108 Fri Jul 15 15:15:06 2011 * Always use INSTALLER_MM for Module-Build 0.9107 Tue Jul 12 15:22:14 2011 * Add support for v-strings and x.y.z versions, using the version module. * Resolve [rt.cpan.org #69420] "type checking for CPANPLUS::Backend::RV::new is incorrect" * Resolve [rt.cpan.org #69203] "custom sources ignores timeout config option" 0.9106 Wed Jul 6 09:53:44 2011 * synchronisation with blead to remove profanity from the source. No other changes. 0.9105 Thu May 5 21:47:45 2011 * remove any pointers to the sourceforge mailing list * point to the github repo instead * Only enable custom sources in the tests where it is actually required for testing * Added support to parse_module() for 'Module/Type.pm' parsing 0.9104 Tue Apr 19 15:13:57 2011 * Force Parse::CPAN::Meta to use a sane default for JSON backend * Make sure that test failures aren't reported twice to the terminal 0.9103 Sun Mar 20 00:38:05 2011 * Fixed the logic not sending NA reports when 'perl' is expressed as a prereq 0.9102 Mon Feb 28 11:35:43 2011 * Only send NAs for a 'perl' prereq when it actually is Not Applicable 0.9101 Tue Feb 15 20:58:30 2011 * Only a version change for downstream maintainers 0.91 Fri Feb 11 22:43:31 2011 * Making a stable release 0.90_13 Mon Feb 7 10:26:35 2011 * Fix Parse::CPAN::Meta prereq version 0.90_12 Sun Feb 6 19:48:49 2011 * Remove more trailing whitespace spotted by Nicholas Clark with patch to fix, RT #64976 * Added META.json and MYMETA.json support. Requires a more recent Parse::CPAN::Meta * Switch to Digest::SHA and SHA256 checksums instead of Digest::MD5 and MD5, which has dropped v5.6.x support. 0.9011 Fri Jan 7 22:01:56 2011 * Remove reporting $! after make test fails. It is misleading in test reports * Don't unset PERL_MM_USE_DEFAULT if it is already set in cpan2dist * Apply blead patches from Peter Acklam 0.9010 Thu Oct 28 23:20:19 2010 * Added PERL_MM_OPT to the CPANPLUS-Dist-MM test to hopefully resolve RT#57241 which relates to local::lib and cpanm 0.9009 Mon Oct 25 21:03:39 2010 * Resolve issues with the SQLite source engine 0.9008 Mon Oct 25 17:01:34 2010 * Normalise prereqs version strings before resolving prereqs 0.9007 Tue Jul 13 10:44:30 2010 * Fix the shell test to skip if test is not being run under a terminal, reported by Justin Case RT #59254 0.9006 Fri Jul 9 13:44:22 2010 * Finally resolved the issue where a prereq on Config would not be recognised as a core module 0.9005 Tue Jun 29 22:42:25 2010 * Corrected spelling mistakes in POD, pointed out by H.Merijn Brand * Amend SQLite source engine to set SYNCHRONOUS pragma to OFF * Make sure that Selfupdate checks if CPANPLUS::Dist::Build is installed or not and update it if it is. Spotted by Ilmari * Apply a patch from Peter Ludikovsky RT #55782 that adds indexes to Source::SQLite 0.9004 Sat May 8 22:21:04 2010 * Applied a patch from Schwern RT #53133 "test failure occurs if the build directory is symlinked" * Explicitly set the location of cpanp-run-perl when under PERL_CORE in t/inc/conf.pl * Make sure that we find cpanp-run-perl in ../../utils when PERL_CORE * Apply a patch from Barbie [RT #56768], that fixes regex in RELEVANT_TEST_RESULT * Fixed a typo in the POD for cpan2dist, pointed out by Babar (Olivier Raginel) on irc. * Add a BEGIN {} block to cpanp-run-perl this resolves RT #55964 and RT #57106 0.9003 Mon Mar 15 13:51:12 2010 * Resolve warnings when using blead perl, reported by Apocalypse RT #55501 * Applied patch from Apocalypse RT #55541 that changes the behviour when a prereq on a core-only module is detected. We raise a warning now, but will proceed with the installation. This is how CPAN.pm handles it. * Removed one duff mirror and an out-of-date mirror from our default mirror list. Replaced with fast-sync mirrors. 0.9002 Fri Mar 12 13:11:00 2010 * Added support for CPAN Testers 2.0 (David Golden) 0.9001 Thu Dec 24 10:21:11 2009 * RT #52988 Regression in Internals::Utils, reported by CRAKRJACK * Fix a regression with dist_type not being propagated 0.90 Thu Dec 17 21:40:13 2009 * Version bump 0.89_12 Mon Dec 7 13:33:16 2009 * Resolve RT #52348 Duplicate test output, reported by Apocalypse * Fixed typo in Shell::Default, RT #52376, reported by Apocalypse 0.89_11 Tue Dec 1 13:14:24 2009 * Fixed RT #52287 reported by Apocalypse regarding Test::Reporter barfing on send() * Change SQLite to AutoCommit, resolves RT #52308, reported by Apocalypse 0.89_10 Sat Nov 28 23:20:09 2009 * Resolve RT #51516 setting conf options which include spaces. * Explicitly use Cwd's chdir in _chdir() 0.89_09 Thu Nov 12 21:54:01 2009 * Only look for missing prereqs in the output of the last set of tests that were run. This resolves RT #51408, reported by Andreas Koenig 0.89_08 Tue Nov 10 23:29:06 2009 * Make the default config prefer Build.PL if perl version is greater than or equal to 5.10.1 * Fix a problem with parse_module() where it would not resolve some edge-case distributions, addresses http://perlmonks.org/?node_id=805957 0.89_07 Thu Nov 5 14:05:11 2009 * MYMETA.yml support added from Jos' branch 0.89_06 Thu Oct 29 14:55:25 2009 * Fool the installer into replacing our scripts that were installed by core with versiononly set. * Handle PREREQS being mentioned twice in Makefile. Use _vcmp() to compare the versions, take the highest. 0.89_05 Tue Oct 27 09:24:55 2009 * Change the way editing config files is called. This fixes RT #50832, reported by Dave Golden * Issue a warning in the shell if we are on MSWin32, don't have IPC::Run installed and are writing a log file. * Apply several patches from Alexandr Ciornii (CHORNY) RT #48636 that add toolchain versions listing to tester reports. 0.89_04 Fri Oct 23 11:12:57 2009 * Added deprecated dual-life module support which requires newer versions of Module::CoreList and Module::Load::Conditional 0.89_03 Mon Oct 19 20:06:03 2009 * Work out if a prereq is a core module and only warn if we can't satisfy the required version. 0.89_02 Sat Oct 17 13:04:59 2009 * Core module prereqs should be dealt with correctly now. 0.89_01 Fri Oct 16 10:22:43 2009 * Corrected spelling mistake in CPANPLUS::Configure documentation * Fixed a problem with the core module detection when sending NA reports * Internals::Report will use Parse::CPAN::Meta instead of YAML::Tiny for parsing CPAN Test report data * Address #50428 Fixed edge-case in the arbitary paths support in parse_module(), reported by Robert Krimen * Address #49104 Fixed the SYNOPSIS in CPANPLUS::Module::Author::Fake reported by Tyler MacDonald * Address #47820 Don't try to update custom sources if they are disabled in configuration, reported by Curtis Jewell 0.88 Tue Jul 7 12:47:08 2009 * Adress #47640: [PATCH] [Documentation] Add links to the CPANPLUS Subversion repository * Address #47543: Snapshot installation instructions are incorrect * Add support for $mod->install( target => init ), which only creates a dist object and stops after the $dist->init stage. * CPANPLUS::Dist::MM was using an incorrect capture argument for passing tests. Spotted by Mst. 0.87_03 Sat Jun 27 16:27:34 2009 * Apply VMS patches from Craig Berry * Address #47250: cpanp always returns true when run in batch mode $shell->dispatch_on_input now returns a failure indicator if run in noninteractive mode (which is what cpanp does) * With the new cpantesters, the yaml files got redone which broke the ->fetch_report code 0.87_02 Sat Jun 13 13:13:58 2009 * Fix typo in the help message for the default shell 0.87_01 Fri Jun 12 18:54:27 2009 * CPANPLUS now supports installing a directory as well. From the shell, try: 'i /path/to/module' or 'i .' for the current directory. Thanks to Chris Williams for the feature. * Skip EU::I tests due to #46890: ExtUtils::Installed + EU::MM PREFIX= don't always work well together * Address #46249: Upgrade requires 'x' because of change in .stored format CPANPLUS now stores it's own version + that of storable in the .stored files to ensure the .stored file is compatible with your CPANPLUS. Additionally, all .stored files are whiped when you update your CPANPLUS * Address #46055: CPANPLUS::Dist::MM::prepare fails when directory has spaces. Thanks to James Mastros for the additional patch * Address #45644: detect broken index. CPANPLUS now checks the header for 02packages.details to see if the file contains at least the amount of entries specified in the header. * Find_configure_requires should return an empty hashref on parse errors, DateTime::Format::Pg triggers this for example 0.8601 Mon Apr 27 18:07:34 2009 * Older versions of CPANPLUS::Dist::Build use the (private) module CPANPLUS::inc, which got removed in the 0.86 release. C::D::Build versions of 0.24 and higher are not affected by this, and CPANPLUS now specifies 0.24 as a minimum requirement. Users of C::D::Build of version 0.24 or higher need not upgrade. 0.86 Sun Apr 26 17:27:54 2009 * Promote 0.85_09 to stable * Update bundled modules 0.85_09 Thu Apr 23 15:32:49 2009 * ExtUtils::Installed functions wouldn't work properly if the install prefix was set to something containing ~, like for example '~/perl'. If we encounter this, substitute the ~ for the real home dir so EU::Installed's path lookups work properly. * Work around a bug in version.pm which causes 64bit 5.8.x installs to fail big version comparisons. See here for details: https://rt.cpan.org/Ticket/Display.html?id=45241 0.85_08 Mon Apr 20 18:54:49 2009 * Fix issues with $mod->package_is_perl_core; The conditionals were the wrong way around, thanks to BingOS for spotting 0.85_07 Tue Feb 24 18:27:37 2009 * Address: #44562: $mod->package_is_perl_code: problem comparing version strings. The method would warn when a version contained a non-numeric character. This is now fixed. * Address #43355: (possibly harmless) Warning in CPANPLUS-Dist-MM Make sure to quell the warning when 'makemakerflags' is set to undef instead of the empty string. * ExtUtils::Installed methods were not handed all possible include directories to scan, as they were found to vary on non-Unix OS's. All possible paths are now added for scanning. * Make sure we don't overwrite $mod->status->dist/dist_cpan so ->save_state will DTRT upon restore. * Make sure we call $mod->add_to_include_path again, just in case we came from ->save_state, at which point we need to restore @INC/$PERL5LIB * t/20 now uses global verbosity settings * Avoid duplicates in PERL5LIB, just like we do for @INC when calling $mod->add_to_includepath and add tests for it. * Get rid of CPANPLUS::inc; it's not used anywhere anymore * Remove deleted files from manifest * Update bundled modules 0.85_06 Tue Feb 24 18:27:37 2009 * This is a test suite fix. Users of 0.85_05 need not upgrade. * With configure_requires/C::D::Build bootstrapping, the tests in t/21_CPANPLUS-Dist-No-Build.t were no longer correct and caused test failures on machines without C::D::Build installed. 0.85_05 Mon Feb 16 12:13:18 2009 * Address: #39399: configure_requires doesn't quite work yet; CPANPLUS now bootstraps CPANPLUS::Dist::Build and Module::Build if the module-to-be- installed requires it. Used 't CPAN::Test::Dummy::Perl5::Build' to verify against a pristine 5.8.8 as well as adding tests to t/21 to make sure this mechanism works. * Address #43128: Fixes 'no such module perl on CPAN' errors: when 'perl' is listed as a prerequisite, its version should be checked, but should not be checked against the index of modules on CPAN * Address: #40255: Special case for 'perl' requirement: if a requirement for 'perl' is specified in the META.yml/PREREQ_PM/Build.PL, it is now special cased and CPANPLUS will verify the version of perl you are using is uptodate. This is equivalent to the more traditional 'require 5.x.y' at the top of a Makefile.PL * Address #41760: [PATCH] Add 'build_dir_reuse' option. This adds $cb->save_state as an API call, which makes it possible to save state between two sessions. * Inspired by: #39095: Multiple modules with different version numbers in one release go wrong: CPANPLUS now adds the version numbers of the modules in the Contains: line in the default shell * Add all the return values from the CPAN Testers report to $mod->fetch_report, not just selected fields. * Add $module->installed_dir as a feature; this requires a newer Module::Load::Conditional * When a user generated config.pm changes the base dir, CPANPLUS will now rescan for config files in that base dir too * New edge case in package naming discovered; adapt regex and add tests * Address: #41756 (Prerequisite Lists Inconsistent) by using $cb->_version_to_number for Bundle::* modules as well * Address: #41157: Module::module_is_supplied_with_perl_core() broken for perl 5.10 * Address #39948: Test warnings in 0.85_04; quell more warnings * Address #40892: Fix CPANPLUS::Config docs to be more clear on how to set/change configs * Remove independant version statements; all versions are now derived from CPANPLUS::Internals::Version * Mention the sqlite backend in a tip * Test fix to set makeflags as we intended to do. required to deal with IPC::Cmd 0.42, which parses whitespace slightly different on win32 * Updated bundled modules 0.85_04 Mon Sep 8 15:37:01 2008 * Updated CPAN Testers reporting to follow new project guidelines: modules authors are no longer copied on reports (the dontcc config option has been removed); failures during *.PL or make stages are now reported as UNKNOWN instead of FAIL; output buffer now included in NA reports * Set $ENV{MAILDOMAIN} so that T::R does not try to resolve our maildomain, which can lead to large timeouts for *every* invocation in T::R < 1.51_01 see: http://code.google.com/p/test-reporter/issues/detail?id=15 * Address #38324: no caching of CHECKSUMS Checksum files are now cached for 3600 seconds by default to avoid refetching to often. This can be overrided by force or setting a lower ttl. * Address #38290: CPANPLUS::Backend->install() always reindexes Params::Check::NO_DUPLICATES was enabled, and that meant an empty hash lookup. Use the assigned scalar instead * Some speed ups for the sqlite engine. turns out dbix::simple's (??) expansion is very expensive * Address: #38643: CPANPLUS::Backend methods are not $_ safe. Make sure all while( <$fh> ) is written as while( local $_ = <$fh>) * Address #34345: Should be able to send reports via system add 'cpantest_reporter_args' so you can add extra arguments to test::reporter's new method sendmail * Address: #37652: Infinite loop in Setup.pm This was merely a wording issue; made the help text more clear 0.85_03 Wed Jul 23 02:07:11 2008 * Add experimental SQLite backend for sources. This can be used instead of the normal memory/storable implementation. You can enable it by running by starting the default shell and typing: 's conf source_engine CPANPLUS::Internals::Source::SQLite; s save' * Selfupdate now understands the SQLite dependencies * Setup knows how to ask you about SQLite * CPANPLUS::Dist::new() is now implemented as a properly inherited method, with no additional magic. Now, dists are instantiated as: use base 'CPANPLUS::Dist::Base'; CPANPLUS::Dist::YourDist->new; * Add diagnostic to 's mirrors' to show how to edit the list This address #37651: Explain the best way to add mirrors 0.85_02 Sun May 18 17:40:56 2008 * Speed up search slightly be not checking the template * Speed up $author->distributions call a *lot* by not using clone (which in the end scans through the entire module tree for dslip info) * Make the package_* functions take an argument for parsing * Speed up clone() a bit * Meta files were showing up in the $author->distributions call. These are now filtered out. 0.85_01 Sun Apr 6 15:22:43 2008 * Address #34519 Getting Wrong File with SENGER/NET-IPFilterSimple_V1.1.tar.gz The delimiter (_) was being replaced by - after parsing. This is now fixed. * Depend on a newer EU::Installed (1.42), so we can now install into a non-site wide dir and actually do uninstalls properly. Requires a few clever dir manipulations from our side, but it works. * Change tests in 20.t accordingly so test suite no longer needs to install site wide for testing purposes. * When changing the 'lib' param in your config using 's edit' from the default shell, it wouldn't propagate to the current process. The same applied to changing the @INC or $ENV{PERL5LIB}. This is now fixed. * Address: #12355: Add an 'all' option when asking about dependencies. Users can now select 'yes to all' or 'no to all' when asked about installing prerequisites. * Implement the META.yml directive 'configure_requires:', which states a package needs to be installed before running Makefile.PL. This uses the new module Parse::CPAN::Meta, which is now bundled and part of the core prerequisites. * Address: #31279: CPANPLUS should automatically install Module::Build and necessary tools. We now automatically add CPANPLUS::Dist::Build to 'configure_requires' when it's needed to install a module and not present * Address #32248 to make it possible to turn off custom sources by doing: 's conf enables_custom_sources 0' from the default shell or config file. * Address: #32064: NA reports generated for failing tests where core prereqs are specified. Use CPANPLUS::Module::module_is_supplied_with_perl_core to detect if a module is part of perl core or not. * Add proper support for installing autobundles. $mod->is_bundle recognizes autobundle snapshots too now. * Quell 'non numeric' warnings when loading modules that have a non-float as version numbers. * In the default shell, show version numbers in loaded plugin overview. 0.84 Fri Dec 14 13:31:39 2007 * Promote 0.83_10 to stable. 0.83_10 Wed Nov 14 12:57:45 2007 * Various VMS patches from John M. * Skip tests for custom sources on Win32 if the full file path is longer than 260 chars (longest file size supported on Win32). * Depend on File::Fetch 0.13_04 for Win32 & VMS file:// support * Depend on Term::UI 0.18 for default shell option parsing 0.83_09 Fri Nov 9 14:17:14 2007 * Make sure to use $Config{path_sep} to create environment variables portably. This addresses a test failure on VMS. * Update 'use sudo' heuristics; if you have $ENV{PERL_MM_OPT} set with an INSTALL, LIB or PREFIX option, we assume you have write permissions to your install location, and you do not need sudo. This can of course be overriden using your config. 0.83_08 Sat Nov 3 18:35:54 2007 * Apply adapted version of dmq's Win32 fixes for fetching file:// URIs. This depends on File::Fetch 0.13_01 or greater. 0.83_07 Wed Oct 24 17:42:43 2007 * VMS patch from John M: _safe_path must be called before catdir because catdir on VMS currently will not handle the extra dots in the directories. * Make sure we clean up tempdirs when writing custom index files. 0.83_06 Tue Oct 23 11:31:10 2007 More VMS fixes from John M: * C::I::Utils->_safe_path should do nothing if it is given a path in VMS format already. * In 15_CPANPLUS-Shell.t, two regex's needed to be case insensitive. * In C::Dist::MM, do the _safe_path on the $dir path, not the path with a file. The _safe_path must be done before the catfile() builds the path. * In C::Shell::Default::Plugins::CustomSource, try the hash lookup with a lower case key on VMS if the exact case key failed. 0.83_05 Wed Oct 17 15:21:01 2007 * Address #29904: make test should not use sudo. Don't try to install if the configuration thinks sudo is needed -- that's no guarantee it will work * More VMS fixes from John M: * Make sure file look ups are done case insensitively for custom sources * Make ->module_tree work case insensitive on VMS by calling ->search under the hood * Revert back to old behaviour in ->_all_installed now that ->module_tree is fixed for vms * Depend on version 0.73, for ~0 bugfixes * Don't depend on File::Fetch for test reporting -- it's already part of the core cpanplus chain * Update bundled modules 0.83_04 Mon Oct 15 14:18:40 2007 * Set ENV COLUMNS & LINES to make sure Term::ReadKey can figure out dimensions and stop it from dying in the test suite. * More VMS fixes from John Malmberg 0.83_03 Mon Oct 15 11:38:39 2007 * Make $mod->dslip() query other modules in the same package if there's no dslip entry for this particular module. * Add an --install option to cpan2dist * More VMS fixes from John Malmberg 0.83_02 Tue Oct 9 13:46:48 2007 * Add a /cs plugin to CPANPLUS::Shell::Default allowing you to add custom sources from outside the CPAN. These custom sources are attributed to the author 'LOCAL' -- See '/cs --help' from the default shell. * Improved parsing for URI targets to parse_module: try to determine module name and version contained in the tarball if posible * Address #29796 (error with funktion 'o' after installing Alien::wxWidgets) File::Find dies when it encounters a dir or symlink twice, which is what A::wxWidgets does. Use follow_skip => 2 to get around this. * Address bug #29716: 20_CPANPLUS-Dist-MM.t fails (and leaves test files installed) when EUMM options include INSTALL_BASE * Address #29430: Remove LWP as a dependency for CPANPLUS::Internals::Report it now uses File::Fetch, like the rest of CPANPLUS. Thanks to BingOS for reporting * Apply patch #29218: Patch to use YAML::Tiny instead of YAML for test reporting * Apply Change 31800 by rgs@stcosmo to recognize 5.10 as a valid perl version * Require Module::Load::Conditional 0.18 -- this uses version.pm for version comparisons * Depend on T::Reporter 1.34 due to many bug fixes * Enable verbose mode in tests if ENV{PERL5_CPANPLUS_TEST_VERBOSE} is true * Load the module tree before attempting to write a bundle, just in case we chdir and things go haywire * Allow passing of a $Conf to C::S::Default->new * Delay plugin initialization until C::S::Default->new time * Delay loading of CPANPLUS::Configure as long as we can, so we can still pass our own $Conf iif possible * Add test cases for CPANPLUS::Shell::Default->dispatch_on_input * Disable pager during tests * Use absolute path to our dummy-cpan dir, as some of the underlying code may chdir * Add constant for author name to be used in tests * Replace 'print' and 'printf' calls with '$self->__print' and '->__printf', so we can do proper tests on the output * Don't use ~0 as a max version number, but divide by two, so we don't get integer overflows in version.pm * Add C::I::Utils->_uri_decode and C::I::Utils->_uri_encode for URI encoding to be used by the 'custom sources' code. * Make C::I::Utils->_host_to_uri properly unixify a path * Make sure $cb->installed works on vms by dealing with filenames and case sensitivity correctly. This is another patch from John M. * Fix up _safe_path for VMS, this can now be released * Move all distributions under dummy-CPAN down two levels (from authors/id/E/EU/EUNOXS to authors/id/EUNOXS) to get around VMS/VAX 8 directoy level depth * Another vms fix by John M: 'Makefile' is called 'DESCRIP.MMS' on VMS, depending on what 'make' was used to build perl * Weird Unix vs VMS file type issues on VMS, add a work around provided by John M. * Use a search on VMS when figuring out what moduels are installed, as the OS doesn't retain case, so we can't do a direct lookup in the module tree * 1 while unlink fixes from John M. for VMS * Proper %ENV restore fix on VMS from John M. * Apply a VMS patch from John Malmber as offered in his mail to p5p 3rd of Sept. 2007 [patch@31780] fixes for cpanplus on VMS: In lib/CPANPLUS/Internals/Extract.pm, catdir on VMS can not deal with directory components with dots in them. Need to translate them as VMS.C in the default mode expects them. This is a temporary hack that will need to be revised as ODS-5 support is integrated in to Perl. * Reset %ENV explicitly on VMS. John Malmberg reports (on 3/9/07) that changes to %ENV persist on VMS, causing an overflow after a few runs, since we append to it. * Be case tolerant -- especially VMS seems to suffer from this. In the end, almost all FS, except some UNIX ones are case tolerant, so just use a qr//i * Apply Change 31776 by craigb@craigb-brianor on 2007/08/31 22:42:43 catdir was used where catfile was meant in C::I::Extract 0.82 Wed Aug 15 15:36:57 2007 * Address [perl #43629] Perl 5.9.5. cpanp-run-perl not present as reported by Michael Cartmell. When running the tests, don't scan your include dirs/home dir for other CPANPLUS::Config::* entries, as they might contain data not correct for this test run. * Search the path paralel to your $^X explicitly for cpanp-run-perl (suggested by david cantrell) * Various clean ups in the CPANPLUS::Shell::Default::Plugin::Remote plugin. * Small documentation fixes. 0.81_01 Sat Jul 7 10:45:37 2007 * Add a callback to the CPANPLUS core for munging metafiles * Address #27562 (A way to specify external dependencies would be grand) by adding a --edit-metafile option to cpan2dist to allow you to edit generated metafiles, if your ::Dist::* plugin supports it * Make common shell options clearer in both hints and help message * Address #27914: Make the instructions in the Makefile.PL clearer as to how to install prerequisites. Patch submitted by Andy Dougherty * Address #27910: we didnt check for Module::Signature being present, just it's prereqs when heuristically configuring CPANPLUS for signature checking. Now, we also check for Module::Signature * Address #27913 documentation error in Makefile.PL that incorrectly showed how to invoke interactive configuration after installation * Clearer diagnostic when cpanp-run-perl can't be found * Apply steveh's patch to scan for .bat files as well on win32 when looking for installed programs * Whitespace patch from audreyt 0.80 Sun Jun 17 13:50:01 2007 * Promote 0.79_04 to stable * apply patch to fix win32 short path fixing when arguments are given (thanks to steve hay for tracking it down) * Print header diagnostic during tests to show how to run tests in verbose mode for added debug output * Update bundled modules 0.79_04 Tue May 29 08:50:07 2007 * Removed a fatal debug statement from cpan2dist. Users of cpan2dist should upgrade to this release. No other users should be affected. 0.79_03 Fri May 18 19:44:35 2007 * address: #27057: Dry runs and dep tree. Make it possible to view which modules will be updated for what reasons when running 'selfupdate'. 's selfupdate' in the shell now prints this dependency tree out and also offers a --dryrun option * address: #27174: No way to pass case-insensitive patterns to ignorelist; All --ignore/--ban options for cpan2dist are now case insensitive * address: #26583: display of installed/required in report is confusing; Add a header to the columns generated for clarity * tweak test conf to play nicer with perl core * show version number when testing/installing * add callback to allow to continue after a failed 'make test' or 'build test' * reapply core patch #31028 -- it got lost somehow this fixes test setups under perl_core * add --set-config and --set-program to cpan2dist to overwrite random config entries for this invocation only * document all the options in CPANPLUS::Config * make saving cpanp-boxed config Just Work and add a banner to cpanp-boxed to tell you how to * expand the help text for 's' with options where applicable * clarify * and .. hint in default shell * silence warning in config.pm when a path to an .exe is not defined * The test suite now adds the '/nologo' option when the user has 'nmake.exe' configured as their 'make' program, to limit the amount of noise on the terminal. 0.79_02 Tue May 8 13:14:12 2007 * address #26914 : CPANPLUS depending on Crypt::OpenPGP even when gpg is available. Change heuristics so we always use gpg when it's there and don't suggest to install Crypt::OpenPGP, as it's quite broken on a lot of platforms. This may cause a warning or 2, but all will continue to work * Logic bug in 'selfupdate --latest=0' is now fixed, with --latest=0 selfupdate should no longer be picking the newest version from CPAN if the current version is good enough * let perlwrapper be '' as well -- '-P' actually changes the format of some generated Makefiles * perlwrapper is no longer required to have Dist::MM to be available * apply Change 31121 by steveh@mugwump on 2007/05/03 07:51:17 this gets around the 'read only' issue of some files in perl-core when rsynced/extracted from uupacktool under win32 * cleanup t/.cpanplus dir when doing 'make clean' as well. * make sure we pass 'prereq_format' along, so prereqs get packaged properly as well. This addresses a mail from Hans Dieter Pearcey (hdp@icgroup.com) raising the issue. 0.79_01 Sun Apr 22 09:57:45 2007 * Updates to integrate perl-core integration. Regular users do not need to upgrade. * Add clean up calls at the end of the tests as well if we're run from perl core. this is because perl core doesn't invoke our 'make clean', and files will be left that aren't in the manifest. * Make the scan for 'cpanp-run-perl' also consider cpanp-run- perl5.X.Y as it may be installed with the perl version as suffix explicitly * address: 26077: dependency on itself; CPANPLUS had a depenendency on the shell class you set as a default, even if that was a shell provided with CPANPLUS itself. This caused CPAN.pm to throw a fatal error, as it did not know how to resolve this dependency. CPANPLUS users were unaffected. Now, no dependency is added if the selected shell is bundled with CPANPLUS itself. * Add simple loadtest for CPANPLUS::Shell 0.78 Sat Mar 31 18:26:13 CEST 2007 * Promote 0.77_07 to stable * Update license & contact information * Make sure we don't install 'cpanp-boxed' when running 'make install'. * Update bundled version of Module::Install * Set install target to 'perl' for perl5.9.5 and higher 0.77_07 Fri Mar 23 17:19:07 CET 2007 * Smoke test revealed issue that PERL5_CPANPLUS_IS_VERSION may not be formatted identically as $CPANPLUS::VERSION if certain versions of 'version.pm' are loaded. This is now addressed. * Tests for CPANPLUS::Dist::MM would fail on Win32 if the path to the Makefile.PL contains spaces. This is now addressed by calling Win32::GetShortPathName() if run on Win32. 0.77_06 Fri Mar 23 13:29:54 CET 2007 * Various test reporting fixes; * Add the leading '!' to missing prereqs, inspired by CPAN::Reporter * Address bug #25327: do not count as FAIL modules where prereqs are not filled. Now, when tests fail and: * version of prereqs installed is too low, send NA * prereq is not available on CPAN, send NA * Address: #25410: cpan2dist needs posibility for passing arbitary parameters to $obj->install; cpan2dist now accepts --dist-opts foo=bar * Add PERL5_CPANPLUS_IS_VERSION as environment variable. It's set to the version of CPANPLUS running. Requested by Adam Kennedy . * Last statement evaluated in a Makefile.PL may be undef -- so don't die on that case in cpanp-run-perl * Some users add '.pm' to their package tarballs. fix the package string parser to recognize this and deal with it. * Address #25038 (Wrong platforms for MSDOS) and actually test modules in the MSDOS:: namespace on dos|os2|MSWin32|cygwin 0.77_05 Sun Feb 25 17:17:44 CET 2007 * Set $ENV{PERL5_CPANPLUS_IS_EXECUTING} to the full path of the Makefile.PL file when running 'perl Makefile.PL'. Requested by Adam Kennedy . 0.77_04 Mon Feb 19 08:05:52 CET 2007 * CPAN testers reported test counter mismatches when test reporting was enabled vs disabled. This is purely a test counter issue. No functional code has been replaced. If you have installed 0.77_03, there is no need to upgrade to 0.77_04. 0.77_03 Sun Feb 18 17:35:12 CET 2007 * Rework the parse_module code; regex is more complex, but also more correct * Allow for more lenient parsing of module names, when the module name and package name do not match * Extend parse_module documentation to include URI * Patch Module.pm->package_name regex to also parse 'perl5.6.1' style packages * The package_[name, version, extension] subroutines are also reworked and use the same regular expression as parse_module does now * Add 'name' to the list of accessors returned by $mod->accessors (it's an alias to ->module) * 'installsiteman3dir' is a 5.8'ism which causes warnings under 5.6 so only check it if it is defined * Add the version number to the install log file name * Add "rescan" option to $conf->init to re-check your path for valid CPANPLUS::Config::* files * Warn if you're using the old "PERL5_CPANPLUS_CONFIG" env var to point to specific config files ( rt #23721 ) * Make $conf->save return the file name it saved to * Apply the suggested patch from Grant Mclean that calls $cb->flush(lib) just before 'make install' is called, so the blib/ dir is no longer at the front of the path. XML::SAX was writing a file dynamically based on @INC. * address RT #22962 Funky error messages when command-line args are missed: the default shell now has increased parsing logic * The check to see if the 'storable' feature was enabled was faulty. This has now been fixed. * Use the full path to a module's Makefile.PL when installing a module, so we don't pick up another Makefile.PL that happens to be in your @INC path. * No longer use can_run() to find cpanp-run-perl, as it's not an executable. Scan path manually in CPANPLUS::Config. * Document details() items properly * Show installed file in the details section * Fix documentation error for $cb->_home_dir (#rt 23196) * Log which configs are loaded at startup time; The shell default's banner shows you how to view these logs. * Make /showtips a plugin command * Extend CPANPLUS::Shell::Default synopsis with --xxx style options * Move to dummy modules for our tests, rather than bundled real modules. * All .t files now use t/inc/conf.pl exclusively for changes in the PATH/ENV/etc settings. This fix allows CPANPLUS to test cleanly with bleadperl (5.9.5) * Clean up the .cpanplus dir in the dummy-cpanplus directory at the start of every test to make sure we're running with a clean cache * Test fixes for Win32 * Disable IPC::Run on Win32 during 'make test'. IPC::Run gets unhappy about having 'odd' FDs allocated to it under Win32. * Update bundled modules * update bundled modules, includes version.pm for the first time * Add realclean targets for our dummy perl directory 0.077_02 Fri Oct 20 15:28:22 CEST 2006 * Implemented selfupdate functionality. You can use 's selfupdate' from the default shell. This will also work for bootstrapping purposes * Hints to use 'Bundle::CPANPLUS::Dependencies' have been removed in favour of 's selfupdate' * The default shell now shows tips at start up * Dont throw an error if a core module has the same version as it's duallifed counterpart on CPAN -- we can still install from CPAN * Update bundled modules * Remove cpanplus inc dir from @INC once we dispatch to cpanp from cpanp-boxed * Depend on newer versions of Object::Accessor and IPC::Cmd 0.076 Fri Oct 13 14:37:27 CEST 2006 * run external perl commands using cpanp-run-perl to enable autoflushing cross-platform, cross-ipc-module. * separate formats for printing 'conf' and 'program' sections * Add Module::ThirdParty support [rt #12131], see 'CPANPLUS::Module' documentation for usage * add cpantest_mx config option [rt #21346], see 'CPANPLUS::Internals::Report' documentation for usage. * update bundled modules, most notably IPC::Cmd, which should improve executing sub-commands significantly. 0.075_01 Thu Oct 5 17:08:27 CEST 2006 * Various small fixes to make CPANPLUS work better on Win32 Most of these fixes are done in the bundled modules or dependencies of CPANPLUS * update bundled modules from CPAN * no longer bundle IPC::Run, it's too unreliable * delete failed requires from %INC in cpanp-boxed * make sure we use 4-arg substr to avoid warning in default shell * skip undefined messages to error()/msg() 0.074 Fri Sep 8 13:12:37 CEST 2006 * remove the requires: section in META.yml; CPAN.pm thinks it's authoritive for requirement declarations and therefor gets our prereqs wrong. * replace CPANPLUS::Dist::Sample with the actual functional CPANPLUS::Dist::Base * increase the number of digits after the comma displayed in version numbers from 4 to 6, so that stringified x.y.z versions display properly in the Default shell. * add the writing of intsall-logs automatically from the default shell * update bundled modules 0.073_01 Wed Aug 2 15:40:38 CEST 2006 * 'install Bundle::CPANPLUS::Dependencies' should now work properly from cpanp-boxed, even without a --force option * Up requirements to more recent versions of among others Archive::Extract, CPANPLUS::Dist::Build, File::Fetch & Module::Load::Conditional. * Update bundled modules for cpanp-boxed * Don't change versions of bundled modules, this breaks 'use Foo 1.0' statements in our dependencies Uptodate check is now done with a new feature in Module::Load::Conditional that can check %INC. * Rework cpanp-boxed to deal better with bundled modules and their uptodateness * Move module::pluggable code to runtime rather than compiletime this makes 'require CPANPLUS' not run around the FS looking for config files until they are needed * Address #20737 (Failed to Setup CLI Programs with Arguments) where the interactive configuration wouldn't let you specify options to CLI programs * Address #20640: Always Sent 'pass' Report With 'force' => 1. Test reports are now marked as 'fail' when they fail, even when 'force' is true. * sent mail to module-build@perl.org with the patch for C::D::Build to have the same behaviour 0.072 Fri Jun 23 18:17:00 CEST 2006 * This is a major release of CPANPLUS. It includes all the changes from release 0.070_01, including the following changes made after the beta was released: * The POD text of CPANPLUS.pm has been revamped to be more of a guide than a technical reference. * $module->status is now lazily initialized, lowering overall RAM usage and startup time at the cost of a runtime penalty. Overall, this improves performance significantly. * Address #20005: CPANPLUS does not check size of downloaded module this adds code that checks if the downloaded size is equal to the size specified by the checksums file * Fix file fetching testing issue on Win32 (#18702) 0.070_01 Mon Jun 19 17:23:38 CEST 2006 * This is a major beta release of CPANPLUS, revamping the configuration mechanism. From now on, CPANPLUS no longer requires a setup to be run at installation time and should work 'out of the box' on most systems using a pre-built configuration file. * CPANPLUS now supports stacked configuration files: * CPANPLUS::Config is the heuristic config file which will always be installed sytemwide. * CPANPLUS::Config::System is the systemwide config file which can be installed by an admin in your perl installation path. This file will be available for everyone and override settings from CPANPLUS::Config * CPANPLUS::Config::User is the per-user config which can be installed by any user in their $HOME/.cpanplus directory. This file will be available for the user only and override settings from CPANPLUS::Config and CPANPLUS::Config::System * $HOME/.cpanplus/lib gets added automatically to your config search path. * All configuration types can be created and saved via the interactive Setup. You can invoke it from the default shell as follows: CPAN Terminal> s conf user # per user config CPAN Terminal> s conf system # system wide config or during installation time like this: $ perl Makefile.PL --setup * Makefile.PL has been stripped from all it's magic * Setup is now menu based for a better user experience. * make loading plugin configs work, with priority for system & user configs before the rest * address #19438: Key 'file' is of invalid type Turns out it's a bug in Module::Build, reported as #19741, which creates a 'Build' file when running 'perl Makefile.PL' on a M::B generated Makefile.PL Add a patch that detects this situation and informs the user * Demand Test::Harness 2.62 to be installed due to bug #19505 in earlier versions * IPC::Run is now required for Win32 & Cygwin * use $Config{path_ext} instead of hardcoded ':' to seperate $PATH in cpanp-boxed * Small test changes in 20.t to make sure no test output counter mismatches occur. * remove all 'clever' code from CPANPLUS::inc, as the new config methodology makes it obsolete. Basic functionality is retained only for backwards compat. * remove CPANPLUS config version checks back and forth -- should work without from now on * make cpanp-boxed work from others dirs than just bin/.. * make use of package::constants * Make sure Bundle-Foo.tgz also gets recognized as bundle * Data::Dumper indenting style set to '1' in default shell * make constants for libdir etc accept a list, not just a single param * address #19738: bogus entry in @INC * address: #18270: cpan2dist --archive breaks with relative path * address #18121: invalid value for 'checksum_value' which showed that old .stored files can mess up CPANPLUS untill they are rebuilt. From now on, Makefile.PL will delete old .stored files when installing a new version * mark all the versions of inc/ modules as -1, so we are always 'not uptodate' when asked to install them * remove old api that lets you set values in configure object via backend->new or configure->new, which was impractical and unused. * updated our bugreporting address to point at the rt.cpan.org queue. * Clean up source tree from obsolete files * Have 'make clean' clean up all the generated files 0.061 Wed Mar 15 16:09:03 CET 2006 * The template for the original configuration got shipped with a few default values that will not work on every system. Anyone who manually configures should not be affected, but the automated configuration may draw the wrong conclusion. For safetey sake, and to minimize possible issues for users, this release ships a template with sensible cross-platform defaults again 0.060 Fri Mar 10 17:19:06 CET 2006 * This is a major release of CPANPLUS, supporting 3rd party package creation and shell plugins * include bin/cpanp-boxed for a bootstrapped version of cpanp; this allows you to use cpanp without configuring/installing anything. * Include clear installation instructions in the README, beyond the simple 'perl Makefile.PL; make; make install' * save sources to disk after creating the trees, not at end of script this should speed up closing the application, at a one time overhead when parsing the sourcefiles * add more diagnostics on updating source files * Make CPANPLUS::inc redundant -- bundled modules required for boot strapping no longer get installed. * Update bundled modules for bootstrapping to most recent versions * Various tweaks to Makefile.PL to make installing friendlier * perl Makefile.PL AUTOINSTALL=1 now no longer requires any user input (just like $ENV{PERL_MM_USE_DEFAULT} already did). * Filter out .meta files from the CHECKSUMS file * apply patch from yperl@club-internet.fr to stop Makefile.PL from dying if user doesn't want to configure now, and doesn't have an existing config.pm * fix typo introduced in 0.052 that broke Classic.pm * fix cpan2dist's ungraceful dying if the dist object was undefined (fixes part of [#17568] bad diagnostics from checksum errors/cpan2dist) * address #17655: [WISHLIST] Report bad signature send out a fail test report when a signature check fails * address #17984: (Two Problems in Makefile.PL) 0.059_01 Sat Oct 15 14:20:16 CEST 2005 * This is a development release supporting 3rd party package creation and shell plugins * Add new callback to filter prereqs * Add plugin support to the default shell * Add a howto on writing plugins: CPANPLUS::Shell::Default::Plugins::HOWTO * Set Data::Dumper::Indent to 1 in the default shell * Document --update_source switch in the default shell * Add 's mirrors' to the default shell documentation * Improve Internals.pm documentation * Add basic documentation to undocumented functions in Utils.pm * Implement proper 'ignore' option for cpan2dist and rename old 'ignore' to 'ban' * Allow the --*list options to cpan2dist to be given more than once. * Fix typo in cpan2dist that wasn't setting the makefile preference correctly * Add an option to redirect output to cpan2dist * Add alarm functionality to cpan2dist * The 'sudo' setting is now being defaulted to its previous setting during setup * Attempt to show what previous config was found during setup if possible. * Disable checksums fetch when downloading readme * Store found prereqs in the dist object when we can * Use constants for strings where possible. * Determine installer type in CPANPLUS::Module::dist() if we haven't already * Support both cp_error/error and cp_msg/msg as diagnostic functions * When extracting files, make sure +x is set on directories * When extracting files, store their names * Renamed vcmp() to _vcmp() to mark it's privateness. * Add a seperate method in Dist.pm to check if a prereq has been satisfied, so modules subclassing Dist.pm may override it (thanks to Ken Williams). * Add an 'add_to_includepath' method to Module.pm, so modules can add their build paths to @INC. * Module::Build's 'perl version too low' diagnostic changed between releases. Make sure our test reporter understands both (fixes [#15197], thanks to Barbie) * t/01_CPANPLUS-Configure.t doesn't load CPANPLUS::Config directly anymore, as there may be an %ENV setting * Fix t/05_CPANPLUS-Internals-Fetch.t to compensate when being on non-unixy platforms [#1455] pointing to the config file instead * Update bundled modules to their latest version 0.0561 Sat Aug 20 19:57:15 CEST 2005 * This release holds no functional changes over 0.056 * The META.yml did not get included in this distribution, meaning the PAUSE indexer indexed our include modules as well. 0.056 Sat Aug 20 13:31:17 CEST 2005 * This release is identical to 0.056_01 but no longer marked as 'development release'. 0.056_01 Thu Aug 18 16:26:52 CEST 2005 * This is a development release testing the splitting off of CPANPLUS::Dist::Buid into it's own package. * CPANPLUS::Dist::Deb got branched into it's own package * Make 'i URI' work from the default shell, enabling commands like 'i http://example.com/module.tgz'. parse_module() understands this as well (for API users) -- #11479 * Add test cases for lack of CPANPLUS::Dist::Deb * Add new test tarballs that provide the simples possible distributions * Add prereq to CPANPLUS::Dist::Deb if the user prefers to use Build.PL over Makefile.PL * Add a depencendency on Win32::Process on Win32 (bundled with AS perl, needed by IPC::Run) * Quell warnings about empty prerequisite lists (#13111) * Quell warnings about beta-versions being non-numeric (#14106) * Platform dependant modules were /always/ getting an NA grade regardless whether they failed or not (#13224) * Config keys are now sorted when printed in the default shell (as requested by Tux) * Extracted files now only get +w for the owner, not '755', as this interferes with some modules test suite ([#13358]) * Some modules uses module_name_version.ext rather than the usual module-name-version.ext. CPANPLUS now parses both correctly (#13367) * 's mirrors' in the default shell now lists your mirrors. To alter them you must still edit the config using 's edit' * Buffers are now autoflushed while invoking 'perl Makefile.PL'; Modules that asked questions during interactive install sometimes had their output held back in the buffer. Since not all modules do $|++ in their Makefile.PL, we do it for them (#12121) * The diagnostic reporting functions 'msg' and 'error' from CPANPLUS::Error got renamed to 'cp_msg' and 'cp_error' respectively, to avoid conflicts with Log::Message::Simple. (This only affects API developers). * All bundled modules are updated to their most recent version. 0.055 Sat Jun 4 15:53:37 CEST 2005 * This release just affects users of the Test::Reporter and 'cpantest' utilities. * The 'munge_test_report' callback was getting the grade passed as of 0.054, but the default callback was now returning the wrong item. [#13086] 0.054 Fri Jun 3 17:44:40 CEST 2005 * This release paves the way for the CPANPLUS::Dist::* plugins, providing a framework from which to automatically create distributions from CPAN packages * Redo the 'cpan2dist' commandline tool, adding many new options * Record all messages from the 'make' command on the stack regardless. * Use the word 'test' when testing modules, not 'create' * Note in test reports that we skipped tests [#11587] * Fix some small documentation error [#11570] * Double check if a module is uptodate before asking the user -- another prereq may have installed it already [#11840] * Do a 'grep unique' on missing prerequisites, so we dont list them more than once, even if the test output does -- fixes bug [#11637] * Make sure we use an empty 'dist_type' in the tests in case the user set on in his config * Add a _copy function to Utils.pm * Make sure the 'force' flag is propagated properly to the 'resolve_prereqs' function * Add build_prereq flag to indicate prereqs should be built even when uptodate when run under a packagemanager * When running CPANPLUS from a path not (absolutely) in your @INC, we add our own path to 'original_inc' which we restore on shell outs * Pass the grade to the 'munge_report' handler * Many test report improvements as provided by Barbie in ticket #12302 * Not all prereqs live on CPAN -- skip noting them as a loaded prereq if we can't find it in the module tree (as reported in #12723) * Bundled a version of T::H that does supports the 'no_plan' feature of Test::More (#13019): We can't automatically do 'the right thing' as 'make test' invokes 'test_harness' which loads T::H before we can even interfere so we add a msg about too low version to the Makefile.PL instead and fall back to basic tests * Tell users why their sudo password might be asked during 'make test' 0.053 Fri Feb 11 10:07:08 CET 2005 * 0.052 did not ship with its META.yml, causing a few of the bundles modules to be indexed. This release is only relevant to the PAUSE indexer, and changes nothing on the client side whatsoever. 0.052 Wed Feb 9 18:44:13 CET 2005 * Make auto-installation work (with some guess work) if $ENV{PERL_MM_USE_DEFAULT} is set. * Setup decent defaults for the callbacks, so scripts don't have to set them unless they want actual callback behaviour (This helps ExtUtils::AutoInstall greatly). * chmod() extracted files to 755 so we do not get permission denied errors when trying to remove them or copy over them if they were not +w for the user. * Don't use sudo, even if it's configured, if the user is root already. * Default to 'prefer binary programs' if Compress::Zlib is not installed. * Make 'parse_module' deal better with paths that have sub directories in them. * Make 'parse_module' deal better with version numbers that have letters in them. * Don't shell out to get the perl version if the perl we looking for is $^X; * Improve finding a proper homedir for cpanplus on VMS * Accept the perl version as an optional argument to 'module_is_supplied_with_perl_core' * Require Test::Reporter 1.27 for test reporting; it fixes many bugs. * Only load Module::Build when we really needed it, not on any installation. * Fix a bug that made 's reconfigure' not use the defaults from your current config. * RedHat 9.0's stock perl has a few serious bugs in it (they applied custom patches) and will break CPANPLUS badly. Add a note to the makefile.pl that redhat users should upgrade their perl. * CPANPLUS::inc was encountering 'use' calls that had windows paths rather than unix paths (???). Patch to compensate for this. * Module::Load::Conditional cache is being flushed in standard flush runs now, allowing use of LWP (and similar) when it becomes available, even if it previously wasn't. * Don't copy 'Config.pm-orig' to 'Config.pm' during Makefile.PL stage -- if the user has a custom config and forgets to set the environment var, CPANPLUS' tests will use the wrong config. * Some tarballs have '.' as directory, rather than project sub directory. Guess first for extraction dir and verify, only then try the actual extract path. * Improve documentation in the Default shell * Improve test reporting texts as supplied by Barbie * Add a callback to munge test reports before they are sent * Add versions of loaded dependencies to the test reports. * Make limited tests on skipped configuration work properly. * Don't use sudo to install into our own sandbox for Module::Build tests * Skip module::build tests if we're under PERL_CORE and M::B is not available (not yet integrated) * Skip install tests if run under PERL_CORE * Adjust include paths and paths to perl when tests are run under PERL_CORE * Update bundled IPC::Run to version 0.80 * Update bundled Module::Build to version 0.26081 * Improve tests 0.051 Fri Jan 14 15:10:02 CET 2005 * First official release in the ground-up rewrite '0.05x' series * When determining installed versions, don't parse commented out versions * Version numbers of 'undef' aren't really versions, they are now treated as '0.0' * Split out 'create' into 'prepare' and 'create' so that package manager plugins can provide an option to alter metadata before actually building the package * Add convenience methods for 'prepare' and 'create' * Update CPANPLUS::Dist::Sample docs to reflect new prepare functionality * Use constants where possible * Add new methods 'contains' to get a list of modules contained in a package * Update to bundle Module::Build 0.2607 * Return to prefering Build.PL over Makefile.PL * Update various other bundled modules * Bundle Module::Pluggable for Dist:: plugin support * Missing test suites of module was not detected properly, resultings in undeserved 'pass' grade * dslip data with ';' in it caused parse errors * Mark a fatal error when loading the shell and not being able to load a valid config file * Various spelling fixes * Improve tests 0.050_04 Sun Dec 26 16:54:46 CET 2004 * Add rsync support to CPANPLUS * List rsync mirrors during setup * Default to the email mentioned in Config.pm during setup * Add timeout support for fetching files from mirrors * Config version has gone up because of new timeout version -- reconfiguration required * Mention Bundle::CPANPLUS::Dependencies in the Makefile.PL * Add license information to dslip output * Send N/A Grade to cpantesters when your perl version is too low according to the Makefile.PL * Drop dependancy on Mail::Send for test reporting, use a fixed version of Test::Reporter instead * Alias $modobj->name to $modobj->module for more DWIMery * cpan2dist now allows creation of distributions from local tarballs as well * cpan2dist now uses the newly defined dist standard to find out where distributions were created * cpan2dist (and CPANPLUS::Dist) plugin detection is now regex based * Specifying CPANPLUS object id's when creating fake module or author objects is now optional * Small backward-compat hack to make sure old versions of ExtUtils::AutoInstall keep working with the new CPANPLUS * Various documentation patches * Update various bundled modules 0.050_03 Fri Dec 17 13:54:48 CET 2004 * Move to Module::Pluggable to find CPANPLUS::Dist::* plugins. * Make CPANPLUS::Dist::* generate a few required accessors itself, rather than making all submodules do it themselves * Rename cpan2dist.pl to cpan2dist to be more 'unixish' * Improve cpan2dist diagnostics * Add pod to cpan2dist * Change config layout for distribution types (incompatible change -- will require reconfiguration) * Add 2-way version checking so cpanplus + its config can both verify if their counterparts are compatible * Move logic for 'best_path_to_module_build' to Module.pm * Make logic to detect installed modules follow symlinks (required for among others, debian) * 'force install' will try even harder to install a module if it can, even if it previously failed. * Make test reports report the version of CPANPLUS, not the version of the constants file the headers are in. * Update various bundled modules to their newest versions * Stringify '$@' to avoid clobbering by sub routine calls * Various documentation improvements * Various spelling fixes * Clean up trailing whitespace from sources * Add more files to MANIFEST.skip * Update MANIFEST 0.050_02 Fri Dec 10 15:03:39 CET 2004 * Move CPANPLUS::Dist::(Deb|Ports) to it's own repository * Fix error when Test::Reporter is unavaliable * Various spelling fixes * Added CPANPLUS::Hacking pod with instructions how to hack on CPANPLUS * Added an environment variable 'PERL5_CPANPLUS_IS_RUNNING' which will be set to the current process id, so subprocesses can recognize that they are running under CPANPLUS * Some wordings have changed for the setup, to make things a bit clearer * Add 'do we have test::reporter support' probing code (used in test suite) * Add Mail::Send as a prerequisite for test::reporter support * Don't attempt to actually send test reports from our test suite -- Test::Reporter doesn't do that itself either, we might have failed tests due to Test::Reporter rather than ourselves * Mention 'bundle::cpanplus::test::reporter' which has all the modules needed to have test::reporter support enabled * Improved accuracy for core module detection logic and errors * More support for connecting to remote machines using CPANPLUS::Daemon (not yet released, but will be soon) * Add extra clean up arguments to our own Makefile to remove temp files * Extensive overhaul of CPANPLUS::Dist::Build to get Module::Build support working properly (lots of workarounds for bugs in the M::B API -- we now bundle a custom patched M::B (0.26061) to cope) * Module::Build now accepts buildflags * Seperate inc path for installers (defacto only Module::Build right now) * Update various bundled modules like Object::Accessor, IPC::Cmd, Archive::Extract. * Smarter loading of bundled modules * Various speed optimizations * 't --force' can send a new test::report now * Don't force current installer format onto prereqs, unless it's explicitly requested * Make the default shell be aware when it's running in noninteractive mode, making sure it makes no suggestions with require interactivity * Add a message about where the module was extracted to in verbose mode 0.050_1 Fri Dec 3 21:07:12 CET 2004 * Initial beta release of CPANPLUS 0.050 * Complete ground up rewrite CPANPLUS-0.9162/META.yml000644 001751 001751 00000001014 13036655522 015122 0ustar00bingosbingos000000 000000 --- abstract: Ameliorated interface to the CPAN author: 'Jos Boumans ' distribution_type: module dynamic_config: 1 generated_by: Module::Install version 0.650 license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.3.html version: 1.3 name: CPANPLUS no_index: directory: - lib/CPANPLUS/inc - inc - t resources: license: http://dev.perl.org/licenses/ homepage: http://github.com/jib/cpanplus-devel repository: http://github.com/jib/cpanplus-devel version: 0.9162 CPANPLUS-0.9162/META.json000644 001751 001751 00000001600 13036655521 015272 0ustar00bingosbingos000000 000000 { "abstract" : "Ameliorated interface to the CPAN", "author" : [ "Jos Boumans " ], "dynamic_config" : "1", "generated_by" : "Module::Install version 0.650, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "CPANPLUS", "no_index" : { "directory" : [ "lib/CPANPLUS/inc", "inc", "t" ] }, "prereqs" : {}, "release_status" : "stable", "resources" : { "homepage" : "http://github.com/jib/cpanplus-devel", "license" : [ "http://dev.perl.org/licenses/" ], "repository" : { "url" : "http://github.com/jib/cpanplus-devel" } }, "version" : "0.9162", "x_serialization_backend" : "JSON::PP version 2.27300" } CPANPLUS-0.9162/MANIFEST.SKIP000644 001751 001751 00000000702 12202262500 015532 0ustar00bingosbingos000000 000000 ^blib/ ^t/dummy-cpanplus/(?!\.hidden) ^t/dummy-localmirror/authors/id ^t/dummy-localmirror/.*gz t/dummy-perl/.*(pm|3|packlist)$ ^t/\..* ^\.#autoinstall ^pmfiles.dat$ ^Makefile$ ^Makefile.old$ ^MANIFEST.bak$ ^pm_to_blib ^blibdirs ^TODO$ ^cover_db/ ^tmp/ ^samples/ ^CPANPLUS.*gz$ \.DS_Store$ \.swp$ \.orig$ \.rpt$ lib/CPANPLUS/inc/installers/patches/ Changes ^patches/ \.org$ \.rej$ dev-bin/ ^CPANPLUS ^.cpanplus/ ^sandbox ~$ ^patches ^.git ^MYMETA\.* CPANPLUS-0.9162/lib/CPANPLUS/000755 001751 001751 00000000000 13036656051 015646 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS.pm000644 001751 001751 00000016063 13036655521 016213 0ustar00bingosbingos000000 000000 package CPANPLUS; use strict; use Carp; use CPANPLUS::Error; use CPANPLUS::Backend; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; BEGIN { use Exporter (); use vars qw( @EXPORT @ISA $VERSION ); @EXPORT = qw( shell fetch get install ); @ISA = qw( Exporter ); $VERSION = "0.9162"; #have to hardcode or cpan.org gets unhappy } ### purely for backward compatibility, so we can call it from the commandline: ### perl -MCPANPLUS -e 'install Net::SMTP' sub install { my $cpan = CPANPLUS::Backend->new; my $mod = shift or ( error(loc("No module specified!")), return ); if ( ref $mod ) { error( loc( "You passed an object. Use %1 for OO style interaction", 'CPANPLUS::Backend' )); return; } else { my $obj = $cpan->module_tree($mod) or ( error(loc("No such module '%1'", $mod)), return ); my $ok = $obj->install; $ok ? msg(loc("Installing of %1 successful", $mod),1) : msg(loc("Installing of %1 failed", $mod),1); return $ok; } } ### simply downloads a module and stores it sub fetch { my $cpan = CPANPLUS::Backend->new; my $mod = shift or ( error(loc("No module specified!")), return ); if ( ref $mod ) { error( loc( "You passed an object. Use %1 for OO style interaction", 'CPANPLUS::Backend' )); return; } else { my $obj = $cpan->module_tree($mod) or ( error(loc("No such module '%1'", $mod)), return ); my $ok = $obj->fetch( fetchdir => '.' ); $ok ? msg(loc("Fetching of %1 successful", $mod),1) : msg(loc("Fetching of %1 failed", $mod),1); return $ok; } } ### alias to fetch() due to compatibility with cpan.pm ### sub get { fetch(@_) } ### purely for backwards compatibility, so we can call it from the commandline: ### perl -MCPANPLUS -e 'shell' sub shell { my $option = shift; ### since the user can specify the type of shell they wish to start ### when they call the shell() function, we have to eval the usage ### of CPANPLUS::Shell so we can set up all the checks properly eval { require CPANPLUS::Shell; CPANPLUS::Shell->import($option) }; die $@ if $@; my $cpan = CPANPLUS::Shell->new(); $cpan->shell(); } 1; __END__ =pod =head1 NAME CPANPLUS - API & CLI access to the CPAN mirrors =head1 SYNOPSIS ### standard invocation from the command line $ cpanp $ cpanp -i Some::Module $ perl -MCPANPLUS -eshell $ perl -MCPANPLUS -e'fetch Some::Module' =head1 DESCRIPTION The C library is an API to the C mirrors and a collection of interactive shells, commandline programs, etc, that use this API. =head1 GUIDE TO DOCUMENTATION =head2 GENERAL USAGE This is the document you are currently reading. It describes basic usage and background information. Its main purpose is to assist the user who wants to learn how to invoke CPANPLUS and install modules from the commandline and to point you to more indepth reading if required. =head2 API REFERENCE The C API is meant to let you programmatically interact with the C mirrors. The documentation in L shows you how to create an object capable of interacting with those mirrors, letting you create & retrieve module objects. L shows you how you can use these module objects to perform actions like installing and testing. The default shell, documented in L is also scriptable. You can use its API to dispatch calls from your script to the CPANPLUS Shell. =cut =head1 COMMANDLINE TOOLS =head2 STARTING AN INTERACTIVE SHELL You can start an interactive shell by running either of the two following commands: $ cpanp $ perl -MCPANPLUS -eshell All commands available are listed in the interactive shells help menu. See C or L for instructions on using the default shell. =head2 CHOOSE A SHELL By running C without arguments, you will start up the shell specified in your config, which defaults to L. There are more shells available. C itself ships with an emulation shell called L that looks and feels just like the old C shell. You can start this shell by typing: $ perl -MCPANPLUS -e'shell Classic' Even more shells may be available from C. Note that if you have changed your default shell in your configuration, that shell will be used instead. If for some reason there was an error with your specified shell, you will be given the default shell. =head2 BUILDING PACKAGES C is a commandline tool to convert any distribution from C into a package in the format of your choice, like for example C<.deb> or C. See C for details. =head1 FUNCTIONS For quick access to common commands, you may use this module, C rather than the full programmatic API situated in C. This module offers the following functions: =head2 $bool = install( Module::Name | /A/AU/AUTHOR/Module-Name-1.tgz ) This function requires the full name of the module, which is case sensitive. The module name can also be provided as a fully qualified file name, beginning with a I, relative to the /authors/id directory on a CPAN mirror. It will download, extract and install the module. =head2 $where = fetch( Module::Name | /A/AU/AUTHOR/Module-Name-1.tgz ) Like install, fetch needs the full name of a module or the fully qualified file name, and is case sensitive. It will download the specified module to the current directory. =head2 $where = get( Module::Name | /A/AU/AUTHOR/Module-Name-1.tgz ) Get is provided as an alias for fetch for compatibility with CPAN.pm. =head2 shell() Shell starts the default CPAN shell. You can also start the shell by using the C command, which will be installed in your perl bin. =head1 FAQ For frequently asked questions and answers, please consult the C manual. =head1 BUG REPORTS Please report bugs or other issues to Ebug-cpanplus@rt.cpan.org. =head1 AUTHOR This module by Jos Boumans Ekane@cpan.orgE. =head1 COPYRIGHT The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans Ekane@cpan.orgE. All rights reserved. This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L, L, L, L, L =head1 CONTACT INFORMATION =over 4 =item * Bug reporting: I =item * Questions & suggestions: I =back =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/Shell/000755 001751 001751 00000000000 13036656051 016715 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS/Module/000755 001751 001751 00000000000 13036656051 017073 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS/Config.pm000644 001751 001751 00000056334 13036655522 017426 0ustar00bingosbingos000000 000000 package CPANPLUS::Config; use strict; use warnings; use base 'Object::Accessor'; use base 'CPANPLUS::Internals::Utils'; use Config; use File::Spec; use Module::Load; use CPANPLUS; use CPANPLUS::Error; use CPANPLUS::Internals::Constants; use File::Basename qw[dirname]; use IPC::Cmd qw[can_run]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; use Module::Load::Conditional qw[check_install]; use version; use vars qw[$VERSION]; $VERSION = "0.9162"; =pod =head1 NAME CPANPLUS::Config - configuration defaults and heuristics for CPANPLUS =head1 SYNOPSIS ### conf object via CPANPLUS::Backend; $cb = CPANPLUS::Backend->new; $conf = $cb->configure_object; ### or as a standalone object $conf = CPANPLUS::Configure->new; ### values in 'conf' section $verbose = $conf->get_conf( 'verbose' ); $conf->set_conf( verbose => 1 ); ### values in 'program' section $editor = $conf->get_program( 'editor' ); $conf->set_program( editor => '/bin/vi' ); =head1 DESCRIPTION This module contains defaults and heuristics for configuration information for CPANPLUS. To change any of these values, please see the documentation in C. Below you'll find a list of configuration types and keys, and their meaning. =head1 CONFIGURATION =cut ### BAH! you can't have POD interleaved with a hash ### declaration.. so declare every entry separately :( my $Conf = { '_fetch' => { 'blacklist' => [ 'ftp' ], }, ### _source, _build and _mirror are supposed to be static ### no changes should be needed unless pause/cpan changes '_source' => { 'hosts' => 'MIRRORED.BY', 'auth' => '01mailrc.txt.gz', 'stored' => 'sourcefiles', 'dslip' => '03modlist.data.gz', 'update' => '86400', 'mod' => '02packages.details.txt.gz', 'custom_index' => 'packages.txt', }, '_build' => { 'plugins' => 'plugins', 'moddir' => 'build', 'startdir' => '', 'distdir' => 'dist', 'autobundle' => 'autobundle', 'autobundle_prefix' => 'Snapshot', 'autdir' => 'authors', 'install_log_dir' => 'install-logs', 'custom_sources' => 'custom-sources', 'sanity_check' => 1, }, '_mirror' => { 'base' => 'authors/id/', 'auth' => 'authors/01mailrc.txt.gz', 'dslip' => 'modules/03modlist.data.gz', 'mod' => 'modules/02packages.details.txt.gz' }, }; =head2 Section 'conf' =over 4 =item hosts An array ref containing hosts entries to be queried for packages. An example entry would like this: { 'scheme' => 'ftp', 'path' => '/pub/CPAN/', 'host' => 'ftp.cpan.org' }, =cut ### default host list $Conf->{'conf'}->{'hosts'} = [ { 'scheme' => 'ftp', 'path' => '/pub/CPAN/', 'host' => 'ftp.cpan.org' }, { 'scheme' => 'http', 'path' => '/', 'host' => 'www.cpan.org' }, { 'scheme' => 'ftp', 'path' => '/', 'host' => 'cpan.hexten.net' }, { 'scheme' => 'ftp', 'path' => '/CPAN/', 'host' => 'cpan.cpantesters.org' }, { 'scheme' => 'ftp', 'path' => '/pub/languages/perl/CPAN/', 'host' => 'ftp.funet.fi' } ]; =item allow_build_interactivity Boolean flag to indicate whether 'perl Makefile.PL' and similar are run interactively or not. Defaults to 'true'. =cut $Conf->{'conf'}->{'allow_build_interactivity'} = 1; =item allow_unknown_prereqs Boolean flag to indicate that unresolvable prereqs are acceptable. If C then only warnings will be issued (the behaviour before 0.9114) when a module is unresolvable from any our sources (CPAN and/or C). If C then an unresolvable prereq will fail during the C stage of distribution installation. Defaults to C. =cut $Conf->{'conf'}->{'allow_unknown_prereqs'} = 1; =item base The directory CPANPLUS keeps all its build and state information in. Defaults to ~/.cpanplus. If L is available, that will be used to work out your C directory. This may be overridden by setting the C environment variable, see L for more details. =cut $Conf->{'conf'}->{'base'} = File::Spec->catdir( __PACKAGE__->_home_dir, DOT_CPANPLUS ); =item buildflags Any flags to be passed to 'perl Build.PL'. See C for details. Defaults to an empty string. =cut $Conf->{'conf'}->{'buildflags'} = ''; =item cpantest Boolean flag to indicate whether or not to mail test results of module installations to C. Defaults to 'false'. =cut $Conf->{'conf'}->{'cpantest'} = 0; =item cpantest_mx String holding an explicit mailserver to use when sending out emails for C. An empty string will use your system settings. Defaults to an empty string. =cut $Conf->{'conf'}->{'cpantest_mx'} = ''; =item debug Boolean flag to enable or disable extensive debugging information. Defaults to 'false'. =cut $Conf->{'conf'}->{'debug'} = 0; =item dist_type Default distribution type to use when building packages. See C or C for details. An empty string will not use any package building software. Defaults to an empty string. =cut $Conf->{'conf'}->{'dist_type'} = ''; =item email Email address to use for anonymous ftp access and as C address when sending emails. Defaults to an C address. =cut $Conf->{'conf'}->{'email'} = DEFAULT_EMAIL; =item enable_custom_sources Boolean flag indicating whether custom sources should be enabled or not. See the C in C for details on how to use them. Defaults to C =cut ### this addresses #32248 which requests a possibility to ### turn off custom sources $Conf->{'conf'}->{'enable_custom_sources'} = 1; =item extractdir String containing the directory where fetched archives should be extracted. An empty string will use a directory under your C directory. Defaults to an empty string. =cut $Conf->{'conf'}->{'extractdir'} = ''; =item fetchdir String containing the directory where fetched archives should be stored. An empty string will use a directory under your C directory. Defaults to an empty string. =cut $Conf->{'conf'}->{'fetchdir'} = ''; =item flush Boolean indicating whether build failures, cache dirs etc should be flushed after every operation or not. Defaults to 'true'. =cut $Conf->{'conf'}->{'flush'} = 1; =item force Boolean indicating whether files should be forcefully overwritten if they exist, modules should be installed when they fail tests, etc. Defaults to 'false'. =cut $Conf->{'conf'}->{'force'} = 0; =item histfile A string containing the history filename of the CPANPLUS readline instance. =cut $Conf->{'conf'}->{'histfile'} = File::Spec->catdir( __PACKAGE__->_home_dir, DOT_CPANPLUS, 'history' ); =item lib An array ref holding directories to be added to C<@INC> when CPANPLUS starts up. Defaults to an empty array reference. =cut $Conf->{'conf'}->{'lib'} = []; =item makeflags A string holding flags that will be passed to the C program when invoked. Defaults to an empty string. =cut $Conf->{'conf'}->{'makeflags'} = ''; =item makemakerflags A string holding flags that will be passed to C when invoked. Defaults to an empty string. =cut $Conf->{'conf'}->{'makemakerflags'} = ''; =item md5 A boolean indicating whether or not sha256 checks should be done when an archive is fetched. Defaults to 'true' if you have C installed, 'false' otherwise. =cut $Conf->{'conf'}->{'md5'} = ( check_install( module => 'Digest::SHA' ) ? 1 : 0 ); =item no_update A boolean indicating whether or not C' source files should be updated or not. Defaults to 'false'. =cut $Conf->{'conf'}->{'no_update'} = 0; =item passive A boolean indicating whether or not to use passive ftp connections. Defaults to 'true'. =cut $Conf->{'conf'}->{'passive'} = 1; =item prefer_bin A boolean indicating whether or not to prefer command line programs over perl modules. Defaults to 'false' unless you do not have C installed (as that would mean we could not extract C<.tar.gz> files) =cut ### if we don't have c::zlib, we'll need to use /bin/tar or we ### can not extract any files. Good time to change the default $Conf->{'conf'}->{'prefer_bin'} = (eval {require Compress::Zlib; 1} ? 0 : 1 ); =item prefer_makefile A boolean indicating whether or not prefer a C over a C file if both are present. Defaults to 'true', unless the perl version is at least 5.10.1 or appropriate versions of L and L are available. =cut $Conf->{'conf'}->{'prefer_makefile'} = ( $] >= 5.010001 or ( check_install( module => 'Module::Build', version => '0.32' ) and check_install( module => INSTALLER_BUILD, version => '0.60' ) ) ? 0 : 1 ); =item prereqs A digit indicating what to do when a package you are installing has a prerequisite. Options are: 0 Do not install 1 Install 2 Ask 3 Ignore (dangerous, install will probably fail!) The default is to ask. =cut $Conf->{'conf'}->{'prereqs'} = PREREQ_ASK; =item shell A string holding the shell class you wish to start up when starting C in interactive mode. Defaults to C, the default CPANPLUS shell. =cut $Conf->{'conf'}->{'shell'} = 'CPANPLUS::Shell::Default'; =item show_startup_tip A boolean indicating whether or not to show start up tips in the interactive shell. Defaults to 'true'. =cut $Conf->{'conf'}->{'show_startup_tip'} = 1; =item signature A boolean indicating whether or not check signatures if packages are signed. Defaults to 'true' if you have C or C installed, 'false' otherwise. =cut $Conf->{'conf'}->{'signature'} = do { check_install( module => 'Module::Signature', version => '0.06' ) and ( can_run('gpg') || check_install(module => 'Crypt::OpenPGP') ); } ? 1 : 0; =item skiptest A boolean indicating whether or not to skip tests when installing modules. Defaults to 'false'. =cut $Conf->{'conf'}->{'skiptest'} = 0; =item storable A boolean indicating whether or not to use C to write compiled source file information to disk. This makes for faster startup and look up times, but takes extra diskspace. Defaults to 'true' if you have C installed and 'false' if you don't. =cut $Conf->{'conf'}->{'storable'} = ( check_install( module => 'Storable' ) ? 1 : 0 ); =item timeout Digit indicating the time before a fetch request times out (in seconds). Defaults to 300. =cut $Conf->{'conf'}->{'timeout'} = 300; =item verbose A boolean indicating whether or not C runs in verbose mode. Defaults to 'true' if you have the environment variable C set to true, 'false' otherwise. It is recommended you run with verbose enabled, but it is disabled for historical reasons. =cut $Conf->{'conf'}->{'verbose'} = $ENV{PERL5_CPANPLUS_VERBOSE} || 0; =item write_install_log A boolean indicating whether or not to write install logs after installing a module using the interactive shell. Defaults to 'true'. =cut $Conf->{'conf'}->{'write_install_logs'} = 1; =item source_engine Class to use as the source engine, which is generally a subclass of C. Default to C. =cut $Conf->{'conf'}->{'source_engine'} = DEFAULT_SOURCE_ENGINE; =item cpantest_reporter_args A hashref of key => value pairs that are passed to the constructor of C. If you'd want to enable TLS for example, you'd set it to: { transport => 'Net::SMTP::TLS', transport_args => [ User => 'Joe', Password => '123' ], } =cut $Conf->{'conf'}->{'cpantest_reporter_args'} = {}; =back =head2 Section 'program' =cut ### Paths get stripped of whitespace on win32 in the constructor ### sudo gets emptied if there's no need for it in the constructor =over 4 =item editor A string holding the path to your editor of choice. Defaults to your $ENV{EDITOR}, $ENV{VISUAL}, 'vi' or 'pico' programs, in that order. =cut $Conf->{'program'}->{'editor'} = do { $ENV{'EDITOR'} || $ENV{'VISUAL'} || can_run('vi') || can_run('pico') }; =item make A string holding the path to your C binary. Looks for the C program used to build perl or failing that, a C in your path. =cut $Conf->{'program'}->{'make'} = can_run($Config{'make'}) || can_run('make'); =item pager A string holding the path to your pager of choice. Defaults to your $ENV{PAGER}, 'less' or 'more' programs, in that order. =cut $Conf->{'program'}->{'pager'} = $ENV{'PAGER'} || can_run('less') || can_run('more'); ### no one uses this feature anyway, and it's only working for EU::MM ### and not for module::build #'perl' => '', =item shell A string holding the path to your login shell of choice. Defaults to your $ENV{SHELL} setting, or $ENV{COMSPEC} on Windows. =cut $Conf->{'program'}->{'shell'} = $^O eq 'MSWin32' ? $ENV{COMSPEC} : $ENV{SHELL}; =item sudo A string holding the path to your C binary if your install path requires super user permissions. Looks for C in your path, or remains empty if you do not require super user permissions to install. =cut $Conf->{'program'}->{'sudo'} = do { ### let's assume you don't need sudo, ### unless one of the below criteria tells us otherwise my $sudo = undef; ### you're a normal user, you might need sudo if( $> ) { ### check for all install dirs! ### you have write permissions to the installdir, ### you don't need sudo if( -w $Config{'installsitelib'} && -w $Config{'installsitebin'} ) { ### installsiteman3dir is a 5.8'ism.. don't check ### it on 5.6.x... if( defined $Config{'installsiteman3dir'} ) { $sudo = -w $Config{'installsiteman3dir'} ? undef : can_run('sudo'); } else { $sudo = undef; } ### you have PERL_MM_OPT set to some alternate ### install place. You probably have write permissions ### to that } elsif ( $ENV{'PERL_MM_OPT'} and $ENV{'PERL_MM_OPT'} =~ /INSTALL|LIB|PREFIX/ ) { $sudo = undef; ### you probably don't have write permissions } else { $sudo = can_run('sudo'); } } ### and return the value $sudo; }; =item perlwrapper B A string holding the path to the C utility bundled with CPANPLUS, which is used to enable autoflushing in spawned processes. =cut ### perlwrapper that allows us to turn on autoflushing $Conf->{'program'}->{'perlwrapper'} = sub { my $name = 'cpanp-run-perl'; my @bins = do{ require Config; my $ver = $Config::Config{version}; ### if we are running with 'versiononly' enabled, ### all binaries will have the perlversion appended ### ie, cpanp will become cpanp5.9.5 ### so prefer the versioned binary in that case $Config::Config{versiononly} ? ($name.$ver, $name) : ($name, $name.$ver); }; ### patch from Steve Hay Fri 29 Jun 2007 14:26:02 GMT+02:00 ### Msg-Id: <4684FA5A.7030506@uk.radan.com> ### look for files with a ".bat" extension as well on Win32 @bins = map { $_, "$_.bat" } @bins if $^O eq 'MSWin32'; my $path; BIN: for my $bin (@bins) { ### parallel to your cpanp/cpanp-boxed my $maybe = File::Spec->rel2abs( File::Spec->catfile( dirname($0), $bin ) ); $path = $maybe and last BIN if -f $maybe; ### parallel to your CPANPLUS.pm: ### $INC{cpanplus}/../bin/cpanp-run-perl $maybe = File::Spec->rel2abs( File::Spec->catfile( dirname($INC{'CPANPLUS.pm'}), '..', # lib dir 'bin', # bin dir $bin, # script ) ); $path = $maybe and last BIN if -f $maybe; ### you installed CPANPLUS in a custom prefix, ### so go parallel to /that/. PREFIX=/tmp/cp ### would put cpanp-run-perl in /tmp/cp/bin and ### CPANPLUS.pm in ### /tmp/cp/lib/perl5/site_perl/5.8.8 $maybe = File::Spec->rel2abs( File::Spec->catfile( dirname( $INC{'CPANPLUS.pm'} ), '..', '..', '..', '..', # 4x updir 'bin', # bin dir $bin, # script ) ); $path = $maybe and last BIN if -f $maybe; ### in your path -- take this one last, the ### previous two assume extracted tarballs ### or user installs ### note that we don't use 'can_run' as it's ### not an executable, just a wrapper... ### prefer anything that's found in the path parallel to your $^X for my $dir (File::Spec->rel2abs( dirname($^X) ), split(/\Q$Config::Config{path_sep}\E/, $ENV{PATH}), File::Spec->curdir, ) { ### On VMS the path could be in UNIX format, and we ### currently need it to be in VMS format $dir = VMS::Filespec::vmspath($dir) if ON_VMS; $maybe = File::Spec->catfile( $dir, $bin ); $path = $maybe and last BIN if -f $maybe; } } ### we should have a $path by now ideally, if so return it return $path if defined $path; ### CPANPLUS::Dist::MM doesn't require this anymore ### but CPANPLUS::Dist::Build might if it is less than 0.60 my $cpdb = check_install( module => INSTALLER_BUILD ); return '' unless $cpdb and eval { version->parse($cpdb->{version}) < version->parse('0.60') }; ### if not, warn about it and give sensible default. ### XXX try to be a no-op instead then.. ### cross your fingers... ### pass '-P' to perl: "run program through C ### preprocessor before compilation" ### XXX using -P actually changes the way some Makefile.PLs ### are executed, so don't do that... --kane error(loc( "Could not find the '%1' binary in your path". "--this may be a problem.\n". "Please locate this program and set ". "your '%2' config entry to its path.\n". "From the default shell, you can do this by typing:\n\n". " %3\n". " %4\n", $name, 'perlwrapper', 's program perlwrapper FULL_PATH_TO_CPANP_RUN_PERL', 's save' )); return ''; }->(); =back =cut sub new { my $class = shift; my $obj = $class->SUPER::new; $obj->mk_accessors( keys %$Conf ); for my $acc ( keys %$Conf ) { my $subobj = Object::Accessor->new; $subobj->mk_accessors( keys %{$Conf->{$acc}} ); ### read in all the settings from the sub accessors; for my $subacc ( $subobj->ls_accessors ) { $subobj->$subacc( $Conf->{$acc}->{$subacc} ); } ### now store it in the parent object $obj->$acc( $subobj ); } $obj->_clean_up_paths; ### shut up IPC::Cmd warning about not finding IPC::Run on win32 $IPC::Cmd::WARN = 0; return $obj; } sub _clean_up_paths { my $self = shift; ### clean up paths if we are on win32 if( $^O eq 'MSWin32' ) { for my $pgm ( $self->program->ls_accessors ) { my $path = $self->program->$pgm; ### paths with whitespace needs to be shortened ### for shell outs. if ($path and $path =~ /\s+/) { my($prog, $args); ### patch from Steve Hay, 13th of June 2007 ### msg-id: <467012A4.6060705@uk.radan.com> ### windows directories are not allowed to end with ### a space, so any occurrence of '\w\s+/\w+' means ### we're dealing with arguments, not directory ### names. if ($path =~ /^(.*?)(\s+\/.*$)/) { ($prog, $args) = ($1, $2); ### otherwise, there are no arguments } else { ($prog, $args) = ($path, ''); } $prog = Win32::GetShortPathName( $prog ); $self->program->$pgm( $prog . $args ); } } } return 1; } 1; =pod =head1 BUG REPORTS Please report bugs or other issues to Ebug-cpanplus@rt.cpan.org. =head1 AUTHOR This module by Jos Boumans Ekane@cpan.orgE. =head1 COPYRIGHT The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans Ekane@cpan.orgE. All rights reserved. This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L, L =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/Internals/000755 001751 001751 00000000000 13036656051 017605 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS/Selfupdate.pm000644 001751 001751 00000040761 13036655522 020312 0ustar00bingosbingos000000 000000 package CPANPLUS::Selfupdate; use strict; use Params::Check qw[check]; use IPC::Cmd qw[can_run]; use CPANPLUS::Error qw[error msg]; use Module::Load::Conditional qw[check_install]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; use CPANPLUS::Internals::Constants; use vars qw[$VERSION]; $VERSION = "0.9162"; $Params::Check::VERBOSE = 1; =head1 NAME CPANPLUS::Selfupdate - self-updating for CPANPLUS =head1 SYNOPSIS $su = $cb->selfupdate_object; @feats = $su->list_features; @feats = $su->list_enabled_features; @mods = map { $su->modules_for_feature( $_ ) } @feats; @mods = $su->list_core_dependencies; @mods = $su->list_core_modules; for ( @mods ) { print $_->name " should be version " . $_->version_required; print "Installed version is not uptodate!" unless $_->is_installed_version_sufficient; } $ok = $su->selfupdate( update => 'all', latest => 0 ); =cut ### a config has describing our deps etc { my $Modules = { dependencies => { 'File::Fetch' => '0.15_02', # lynx & 404 handling 'File::Spec' => '0.82', 'IPC::Cmd' => '0.36', # 5.6.2 compat: 2-arg open 'Locale::Maketext::Simple' => '0.01', 'Log::Message' => '0.01', 'Module::Load' => '0.10', 'Module::Load::Conditional' => '0.50', # returns dir for loaded # modules 'version' => '0.77', # needed for M::L::C # addresses #24630 and # #24675 # Address ~0 overflow issue 'Params::Check' => '0.36', 'Package::Constants' => '0.01', 'Term::UI' => '0.18', # option parsing 'Test::Harness' => '2.62', # due to bug #19505 # only 2.58 and 2.60 are bad 'Test::More' => '0.47', # to run our tests 'Archive::Extract' => '0.16', # ./Dir bug fix 'Archive::Tar' => '1.23', 'IO::Zlib' => '1.04', # needed for Archive::Tar 'Object::Accessor' => '0.44', # mk_aliases support 'Module::CoreList' => '2.22', # deprecated core modules 'Module::Pluggable' => '2.4', 'Module::Loaded' => '0.01', 'Parse::CPAN::Meta' => '1.4200', # config_requires support 'ExtUtils::Install' => '1.42', # uninstall outside @INC ( check_install( module => 'CPANPLUS::Dist::Build' ) && !check_install( module => 'CPANPLUS::Dist::Build', version => '0.60' ) ? ( 'CPANPLUS::Dist::Build' => '0.60' ) : () ), }, features => { # config_key_name => [ # sub { } to list module key/value pairs # sub { } to check if feature is enabled # ] prefer_makefile => [ sub { my $cb = shift; $cb->configure_object->get_conf('prefer_makefile') ? { } : { 'CPANPLUS::Dist::Build' => '0.60' }; }, sub { return 1 }, # always enabled ], cpantest => [ { 'Test::Reporter' => '1.34', 'Parse::CPAN::Meta' => '1.4200' }, sub { my $cb = shift; return $cb->configure_object->get_conf('cpantest'); }, ], dist_type => [ sub { my $cb = shift; my $dist = $cb->configure_object->get_conf('dist_type'); return { $dist => '0.0' } if $dist; return; }, sub { my $cb = shift; return $cb->configure_object->get_conf('dist_type'); }, ], md5 => [ { 'Digest::SHA' => '0.0', }, sub { my $cb = shift; return $cb->configure_object->get_conf('md5'); }, ], shell => [ sub { my $cb = shift; my $dist = $cb->configure_object->get_conf('shell'); ### we bundle these shells, so don't bother having a dep ### on them... If we don't do this, CPAN.pm actually detects ### a recursive dependency and breaks (see #26077). ### This is not an issue for CPANPLUS itself, it handles ### it smartly. return if $dist eq SHELL_DEFAULT or $dist eq SHELL_CLASSIC; return { $dist => '0.0' } if $dist; return; }, sub { return 1 }, ], signature => [ sub { my $cb = shift; return { 'Module::Signature' => '0.06', } if can_run('gpg'); ### leave this out -- Crypt::OpenPGP is fairly ### painful to install, and broken on some platforms ### so we'll just always fall back to gpg. It may ### issue a warning or 2, but that's about it. ### this change due to this ticket: #26914 # and $cb->configure_object->get_conf('prefer_bin'); return { 'Crypt::OpenPGP' => '0.0', 'Module::Signature' => '0.06', }; }, sub { my $cb = shift; return $cb->configure_object->get_conf('signature'); }, ], storable => [ { 'Storable' => '0.0' }, sub { my $cb = shift; return $cb->configure_object->get_conf('storable'); }, ], sqlite_backend => [ { 'DBIx::Simple' => '0.0', 'DBD::SQLite' => '0.0', }, sub { my $cb = shift; my $conf = $cb->configure_object; return $conf->get_conf('source_engine') eq 'CPANPLUS::Internals::Source::SQLite' }, ], }, core => { 'CPANPLUS' => '0.0', }, }; sub _get_config { return $Modules } } =head1 METHODS =head2 $self = CPANPLUS::Selfupdate->new( $backend_object ); Sets up a new selfupdate object. Called automatically when a new backend object is created. =cut sub new { my $class = shift; my $cb = shift or return; return bless sub { $cb }, $class; } { ### cache to find the relevant modules my $cache = { core => sub { my $self = shift; core => [ $self->list_core_modules ] }, dependencies => sub { my $self = shift; dependencies => [ $self->list_core_dependencies ] }, enabled_features => sub { my $self = shift; map { $_ => [ $self->modules_for_feature( $_ ) ] } $self->list_enabled_features }, features => sub { my $self = shift; map { $_ => [ $self->modules_for_feature( $_ ) ] } $self->list_features }, ### make sure to do 'core' first, in case ### we are out of date ourselves all => [ qw|core dependencies enabled_features| ], }; =head2 @cat = $self->list_categories Returns a list of categories that the C method accepts. See C for details. =cut sub list_categories { return sort keys %$cache } =head2 %list = $self->list_modules_to_update( update => "core|dependencies|enabled_features|features|all", [latest => BOOL] ) List which modules C would upgrade. You can update either the core (CPANPLUS itself), the core dependencies, all features you have currently turned on, or all features available, or everything. The C option determines whether it should update to the latest version on CPAN, or if the minimal required version for CPANPLUS is good enough. Returns a hash of feature names and lists of module objects to be upgraded based on the category you provided. For example: %list = $self->list_modules_to_update( update => 'core' ); Would return: ( core => [ $module_object_for_cpanplus ] ); =cut sub list_modules_to_update { my $self = shift; my $cb = $self->(); my $conf = $cb->configure_object; my %hash = @_; my($type, $latest); my $tmpl = { update => { required => 1, store => \$type, allow => [ keys %$cache ], }, latest => { default => 0, store => \$latest, allow => BOOLEANS }, }; { local $Params::Check::ALLOW_UNKNOWN = 1; check( $tmpl, \%hash ) or return; } my $ref = $cache->{$type}; ### a list of ( feature1 => \@mods, feature2 => \@mods, etc ) my %list = UNIVERSAL::isa( $ref, 'ARRAY' ) ? map { $cache->{$_}->( $self ) } @$ref : $ref->( $self ); ### filter based on whether we need the latest ones or not for my $aref ( values %list ) { $aref = [ $latest ? grep { !$_->is_uptodate } @$aref : grep { !$_->is_installed_version_sufficient } @$aref ]; } return %list; } =head2 $bool = $self->selfupdate( update => "core|dependencies|enabled_features|features|all", [latest => BOOL, force => BOOL] ) Selfupdate CPANPLUS. You can update either the core (CPANPLUS itself), the core dependencies, all features you have currently turned on, or all features available, or everything. The C option determines whether it should update to the latest version on CPAN, or if the minimal required version for CPANPLUS is good enough. Returns true on success, false on error. =cut sub selfupdate { my $self = shift; my $cb = $self->(); my $conf = $cb->configure_object; my %hash = @_; my $force; my $tmpl = { force => { default => $conf->get_conf('force'), store => \$force }, }; { local $Params::Check::ALLOW_UNKNOWN = 1; check( $tmpl, \%hash ) or return; } my %list = $self->list_modules_to_update( %hash ) or return; ### just the modules please my @mods = map { @$_ } values %list; my $flag; for my $mod ( @mods ) { unless( $mod->install( force => $force ) ) { $flag++; error(loc("Failed to update module '%1'", $mod->name)); } } return if $flag; return 1; } } =head2 @features = $self->list_features Returns a list of features that are supported by CPANPLUS. =cut sub list_features { my $self = shift; return keys %{ $self->_get_config->{'features'} }; } =head2 @features = $self->list_enabled_features Returns a list of features that are enabled in your current CPANPLUS installation. =cut sub list_enabled_features { my $self = shift; my $cb = $self->(); my @enabled; for my $feat ( $self->list_features ) { my $ref = $self->_get_config->{'features'}->{$feat}->[1]; push @enabled, $feat if $ref->($cb); } return @enabled; } =head2 @mods = $self->modules_for_feature( FEATURE [,AS_HASH] ) Returns a list of C objects which represent the modules required to support this feature. For a list of features, call the C method. If the C argument is provided, no module objects are returned, but a hashref where the keys are names of the modules, and values are their minimum versions. =cut sub modules_for_feature { my $self = shift; my $feature = shift or return; my $as_hash = shift || 0; my $cb = $self->(); unless( exists $self->_get_config->{'features'}->{$feature} ) { error(loc("Unknown feature '%1'", $feature)); return; } my $ref = $self->_get_config->{'features'}->{$feature}->[0]; ### it's either a list of modules/versions or a subroutine that ### returns a list of modules/versions my $href = UNIVERSAL::isa( $ref, 'HASH' ) ? $ref : $ref->( $cb ); return unless $href; # nothing needed for the feature? return $href if $as_hash; return $self->_hashref_to_module( $href ); } =head2 @mods = $self->list_core_dependencies( [AS_HASH] ) Returns a list of C objects which represent the modules that comprise the core dependencies of CPANPLUS. If the C argument is provided, no module objects are returned, but a hashref where the keys are names of the modules, and values are their minimum versions. =cut sub list_core_dependencies { my $self = shift; my $as_hash = shift || 0; my $cb = $self->(); my $href = $self->_get_config->{'dependencies'}; return $href if $as_hash; return $self->_hashref_to_module( $href ); } =head2 @mods = $self->list_core_modules( [AS_HASH] ) Returns a list of C objects which represent the modules that comprise the core of CPANPLUS. If the C argument is provided, no module objects are returned, but a hashref where the keys are names of the modules, and values are their minimum versions. =cut sub list_core_modules { my $self = shift; my $as_hash = shift || 0; my $cb = $self->(); my $href = $self->_get_config->{'core'}; return $href if $as_hash; return $self->_hashref_to_module( $href ); } sub _hashref_to_module { my $self = shift; my $cb = $self->(); my $href = shift or return; return map { CPANPLUS::Selfupdate::Module->new( $cb->module_tree($_) => $href->{$_} ) } keys %$href; } =head1 CPANPLUS::Selfupdate::Module C extends C objects by providing accessors to aid in selfupdating CPANPLUS. These objects are returned by all methods of C that return module objects. =cut { package CPANPLUS::Selfupdate::Module; use base 'CPANPLUS::Module'; ### stores module name -> cpanplus required version ### XXX only can deal with 1 pair! my %Cache = (); my $Acc = 'version_required'; sub new { my $class = shift; my $mod = shift or return; my $ver = shift; return unless defined $ver; my $obj = $mod->clone; # clone the module object bless $obj, $class; # rebless it to our class $obj->$Acc( $ver ); return $obj; } =head2 $version = $mod->version_required Returns the version of this module required for CPANPLUS. =cut sub version_required { my $self = shift; $Cache{ $self->name } = shift() if @_; return $Cache{ $self->name }; } =head2 $bool = $mod->is_installed_version_sufficient Returns true if the installed version of this module is sufficient for CPANPLUS, or false if it is not. =cut sub is_installed_version_sufficient { my $self = shift; return $self->is_uptodate( version => $self->$Acc ); } } 1; =pod =head1 BUG REPORTS Please report bugs or other issues to Ebug-cpanplus@rt.cpan.org. =head1 AUTHOR This module by Jos Boumans Ekane@cpan.orgE. =head1 COPYRIGHT The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans Ekane@cpan.orgE. All rights reserved. This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/Hacking.pod000644 001751 001751 00000007253 12143731636 017726 0ustar00bingosbingos000000 000000 =pod =head1 NAME CPANPLUS::Hacking - developing CPANPLUS =head1 DESCRIPTION This document attempts to describe how to develop with the CPANPLUS environment most easily, how certain things work and why. This is basically a quick-start guide to people who want to add features or patches to CPANPLUS. =head1 OBTAINING CPANPLUS Checkout CPANPLUS from its GIT repository at L . =head1 INSTALLING CPANPLUS CPANPLUS follows the standard perl module installation process: perl Makefile.PL make make test make install =head1 CONFIGURING CPANPLUS When running C you will be prompted to configure. If you have already done so, and merely wish to update the C, simply run: perl Makefile.PL JFDI=1 This will keep your configuration intact. Note however, if there are changes to the default configuration file C, you should either delete your current config file and reconfigure, or patch your config file from the new entries in C. =head1 RUNNING CPANPLUS FROM DEVELOPMENT ENVIRONMENT If you'd rather not install the development version to your C directory, that's no problem. You can set your C environment variable to CPANPLUS' C directory, and you can run it from there. =head1 RUNNING CPANPLUS TESTS Tests are what tells us if CPANPLUS is working. If a test is not working, try to run it explicitly like this: perl -I/path/to/cpanplus/lib t/XX_name_of_test.t 1 The extra '1' makes sure that all the messages and errors (they might be errors we're testing for!) are being printed rather than kept quiet. This is a great way to find out the context of any failures that may occur. If you believe this test failure proves a bug in CPANPLUS, the long output of the test file is something we'd like to see alongside your bug report. =head1 FINDING BUGS Sometimes you might find bugs in CPANPLUS' behaviour. If you encounter these in a development snapshot, we'd appreciate a complete patch (as described below in the L section. If it's way over your head, then of course reporting the bug is always better than not reporting it at all. Before you do so though, make sure you have the B development snapshot, and the bug still persists there. If so, report the bug to this address: bug-cpanplus@rt.cpan.org A good C would have the following characteristics: =over 4 =item Problem description Describe clearly what the bug is you found, and what it should have done instead. =item Program demonstrating the bug Show us how to reproduce the bug, in a simple of a program as possible =item [OPTIONAL] A patch to the test suite to test for the bug Amend our test suite by making sure this bug will be found in this, and future versions of CPANPLUS (see L) =item [OPTIONAL] A patch to the code + tests + documentation Fix the bug, update the docs & tests. That way your bug will be gone forever :) =back =head1 SUPPLYING PATCHES Patches are a good thing, and they are welcome. Especially if they fix bugs you've found along the way, or that others have reported. We prefer patches in the following format: =over 4 =item * In C or C format =item * From the root of the snapshot =item * Including patches for code + tests + docs =item * Sent per mail to bug-cpanplus@rt.cpan.org =item * With subject containing C<[PATCH]> + description of the patch =back You will always be informed if a patch is applied or rejected, and in case of rejection why that is (perhaps you can tweak the patch to have it accepted after all). =cut __END__ * perl5lib * perl t/foo 1 * patches to cpanplus-devel * snap/devel.tgz CPANPLUS-0.9162/lib/CPANPLUS/Internals.pm000644 001751 001751 00000035703 13036655521 020154 0ustar00bingosbingos000000 000000 package CPANPLUS::Internals; ### we /need/ perl5.6.1 or higher -- we use coderefs in @INC, ### and 5.6.0 is just too buggy use 5.006001; use strict; use Config; use CPANPLUS::Error; use CPANPLUS::Selfupdate; use CPANPLUS::Internals::Extract; use CPANPLUS::Internals::Fetch; use CPANPLUS::Internals::Utils; use CPANPLUS::Internals::Constants; use CPANPLUS::Internals::Search; use CPANPLUS::Internals::Report; require base; use Cwd qw[cwd]; use Module::Load qw[load]; use Params::Check qw[check]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; use Module::Load::Conditional qw[can_load]; use Object::Accessor; local $Params::Check::VERBOSE = 1; use vars qw[@ISA $VERSION]; @ISA = qw[ CPANPLUS::Internals::Extract CPANPLUS::Internals::Fetch CPANPLUS::Internals::Utils CPANPLUS::Internals::Search CPANPLUS::Internals::Report ]; $VERSION = "0.9162"; =pod =head1 NAME CPANPLUS::Internals - CPANPLUS internals =head1 SYNOPSIS my $internals = CPANPLUS::Internals->_init( _conf => $conf ); my $backend = CPANPLUS::Internals->_retrieve_id( $ID ); =head1 DESCRIPTION This module is the guts of CPANPLUS -- it inherits from all other modules in the CPANPLUS::Internals::* namespace, thus defying normal rules of OO programming -- but if you're reading this, you already know what's going on ;) Please read the C documentation for the normal API. =head1 ACCESSORS =over 4 =item _conf Get/set the configure object =item _id Get/set the id =cut ### autogenerate accessors ### for my $key ( qw[_conf _id _modules _hosts _methods _status _path _callbacks _selfupdate _mtree _atree] ) { no strict 'refs'; *{__PACKAGE__."::$key"} = sub { $_[0]->{$key} = $_[1] if @_ > 1; return $_[0]->{$key}; } } =pod =back =head1 METHODS =head2 $internals = CPANPLUS::Internals->_init( _conf => CONFIG_OBJ ) C<_init> creates a new CPANPLUS::Internals object. You have to pass it a valid C object. Returns the object on success, or dies on failure. =cut { ### NOTE: ### if extra callbacks are added, don't forget to update the ### 02-internals.t test script with them! my $callback_map = { ### name default value install_prerequisite => 1, # install prereqs when 'ask' is set? edit_test_report => 0, # edit the prepared test report? send_test_report => 1, # send the test report? # munge the test report munge_test_report => sub { return $_[1] }, # filter out unwanted prereqs filter_prereqs => sub { return $_[1] }, # continue if 'make test' fails? proceed_on_test_failure => sub { return 0 }, munge_dist_metafile => sub { return $_[1] }, }; my $status = Object::Accessor->new; $status->mk_accessors(qw[pending_prereqs]); my $callback = Object::Accessor->new; $callback->mk_accessors(keys %$callback_map); my $conf; my $Tmpl = { _conf => { required => 1, store => \$conf, allow => IS_CONFOBJ }, _id => { default => '', no_override => 1 }, _authortree => { default => '', no_override => 1 }, _modtree => { default => '', no_override => 1 }, _hosts => { default => {}, no_override => 1 }, _methods => { default => {}, no_override => 1 }, _status => { default => '', no_override => 1 }, _callbacks => { default => '', no_override => 1 }, _path => { default => $ENV{PATH} || '', no_override => 1 }, }; sub _init { my $class = shift; my %hash = @_; ### temporary warning until we fix the storing of multiple id's ### and their serialization: ### probably not going to happen --kane if( my $id = $class->_last_id ) { # make it a singleton. warn loc(q[%1 currently only supports one %2 object per ] . qq[running program\n], 'CPANPLUS', $class); return $class->_retrieve_id( $id ); } my $args = check($Tmpl, \%hash) or die loc(qq[Could not initialize '%1' object], $class); bless $args, $class; $args->{'_id'} = $args->_inc_id; $args->{'_status'} = $status; $args->{'_callbacks'} = $callback; ### initialize callbacks to default state ### for my $name ( $callback->ls_accessors ) { my $rv = ref $callback_map->{$name} ? 'sub return value' : $callback_map->{$name} ? 'true' : 'false'; $args->_callbacks->$name( sub { msg(loc("DEFAULT '%1' HANDLER RETURNING '%2'", $name, $rv), $args->_conf->get_conf('debug')); return ref $callback_map->{$name} ? $callback_map->{$name}->( @_ ) : $callback_map->{$name}; } ); } ### create a selfupdate object $args->_selfupdate( CPANPLUS::Selfupdate->new( $args ) ); ### initialize it as an empty hashref ### $args->_status->pending_prereqs( {} ); $conf->_set_build( startdir => cwd() ), or error( loc("couldn't locate current dir!") ); $ENV{FTP_PASSIVE} = 1, if $conf->get_conf('passive'); my $id = $args->_store_id( $args ); unless ( $id == $args->_id ) { error( loc("IDs do not match: %1 != %2. Storage failed!", $id, $args->_id) ); } ### different source engines available now, so set them here { my $store = $conf->get_conf( 'source_engine' ) || DEFAULT_SOURCE_ENGINE; unless( can_load( modules => { $store => '0.0' }, verbose => 1 ) ) { error( loc( "Could not load source engine '%1'", $store ) ); if( $store ne DEFAULT_SOURCE_ENGINE ) { msg( loc("Falling back to %1", DEFAULT_SOURCE_ENGINE), 1 ); load DEFAULT_SOURCE_ENGINE; base->import( DEFAULT_SOURCE_ENGINE ); } else { return; } } else { base->import( $store ); } } return $args; } =pod =head2 $bool = $internals->_flush( list => \@caches ) Flushes the designated caches from the C object. Returns true on success, false if one or more caches could not be be flushed. =cut sub _flush { my $self = shift; my $conf = $self->configure_object; my %hash = @_; my $aref; my $tmpl = { list => { required => 1, default => [], strict_type => 1, store => \$aref }, }; my $args = check( $tmpl, \%hash ) or return; my $flag = 0; for my $what (@$aref) { my $cache = '_' . $what; ### set the include paths back to their original ### if( $what eq 'lib' ) { $ENV{PERL5LIB} = $conf->_perl5lib || ''; @INC = @{$conf->_lib}; $ENV{PATH} = $self->_path || ''; ### give all modules a new status object -- this is slightly ### costly, but the best way to make sure all statuses are ### forgotten --kane } elsif ( $what eq 'modules' ) { for my $modobj ( values %{$self->module_tree} ) { $modobj->_flush; } ### blow away the methods cache... currently, that's only ### File::Fetch's method fail list } elsif ( $what eq 'methods' ) { ### still unbelievably p4 :( ### $File'Fetch::METHOD_FAIL = $File'Fetch::METHOD_FAIL = {}; ### blow away the m::l::c cache, so modules can be (re)loaded ### again if they become available } elsif ( $what eq 'load' ) { undef $Module::Load::Conditional::CACHE; } else { unless ( exists $self->{$cache} && exists $Tmpl->{$cache} ) { error( loc( "No such cache: '%1'", $what ) ); $flag++; next; } else { $self->$cache( {} ); } } } return !$flag; } ### NOTE: ### if extra callbacks are added, don't forget to update the ### 02-internals.t test script with them! =pod =head2 $bool = $internals->_register_callback( name => CALLBACK_NAME, code => CODEREF ); Registers a callback for later use by the internal libraries. Here is a list of the currently used callbacks: =over 4 =item install_prerequisite Is called when the user wants to be C about what to do with prerequisites. Should return a boolean indicating true to install the prerequisite and false to skip it. =item send_test_report Is called when the user should be prompted if he wishes to send the test report. Should return a boolean indicating true to send the test report and false to skip it. =item munge_test_report Is called when the test report message has been composed, giving the user a chance to programmatically alter it. Should return the (munged) message to be sent. =item edit_test_report Is called when the user should be prompted to edit test reports about to be sent out by Test::Reporter. Should return a boolean indicating true to edit the test report in an editor and false to skip it. =item proceed_on_test_failure Is called when 'make test' or 'Build test' fails. Should return a boolean indicating whether the install should continue even if the test failed. =item munge_dist_metafile Is called when the C metafile is created, like C for C, giving the user a chance to programmatically alter it. Should return the (munged) text to be written to the metafile. =back =cut sub _register_callback { my $self = shift or return; my %hash = @_; my ($name,$code); my $tmpl = { name => { required => 1, store => \$name, allow => [$callback->ls_accessors] }, code => { required => 1, allow => IS_CODEREF, store => \$code }, }; check( $tmpl, \%hash ) or return; $self->_callbacks->$name( $code ) or return; return 1; } # =head2 $bool = $internals->_add_callback( name => CALLBACK_NAME, code => CODEREF ); # # Adds a new callback to be used from anywhere in the system. If the callback # is already known, an error is raised and false is returned. If the callback # is not yet known, it is added, and the corresponding coderef is registered # using the # # =cut # # sub _add_callback { # my $self = shift or return; # my %hash = @_; # # my ($name,$code); # my $tmpl = { # name => { required => 1, store => \$name, }, # code => { required => 1, allow => IS_CODEREF, # store => \$code }, # }; # # check( $tmpl, \%hash ) or return; # # if( $callback->can( $name ) ) { # error(loc("Callback '%1' is already registered")); # return; # } # # $callback->mk_accessor( $name ); # # $self->_register_callback( name => $name, code => $code ) or return; # # return 1; # } } =pod =head2 $bool = $internals->_add_to_includepath( directories => \@dirs ) Adds a list of directories to the include path. This means they get added to C<@INC> as well as C<$ENV{PERL5LIB}>. Returns true on success, false on failure. =cut sub _add_to_includepath { my $self = shift; my %hash = @_; my $dirs; my $tmpl = { directories => { required => 1, default => [], store => \$dirs, strict_type => 1 }, }; check( $tmpl, \%hash ) or return; my $s = $Config{'path_sep'}; ### only add if it's not added yet for my $lib (@$dirs) { unshift @INC, $lib unless grep { $_ eq $lib } @INC; # ### it will be complaining if $ENV{PERL5LIB] is not defined (yet). local $^W; $ENV{'PERL5LIB'} .= $s . $lib unless $ENV{'PERL5LIB'} =~ qr|\Q$s$lib\E|; } return 1; } =pod =head2 $bool = $internals->_add_to_path( directories => \@dirs ) Adds a list of directories to the PATH, but only if they actually contain anything. Returns true on success, false on failure. =cut sub _add_to_path { my $self = shift; my %hash = @_; my $dirs; my $tmpl = { directories => { required => 1, default => [], store => \$dirs, strict_type => 1 }, }; check( $tmpl, \%hash ) or return; my $s = $Config{'path_sep'}; require File::Glob; ### only add if it's not added yet for my $dir (@$dirs) { $dir =~ s![\\/]*$!!g; next if $ENV{PATH} =~ qr|\Q$dir\E|; next unless -d $dir; next unless File::Glob::bsd_glob( $dir . q{/*} ); $ENV{PATH} = join $s, $dir, $ENV{PATH}; } return 1; } =pod =head2 $id = CPANPLUS::Internals->_last_id Return the id of the last object stored. =head2 $id = CPANPLUS::Internals->_store_id( $internals ) Store this object; return its id. =head2 $obj = CPANPLUS::Internals->_retrieve_id( $ID ) Retrieve an object based on its ID -- return false on error. =head2 CPANPLUS::Internals->_remove_id( $ID ) Remove the object marked by $ID from storage. =head2 @objs = CPANPLUS::Internals->_return_all_objects Return all stored objects. =cut ### code for storing multiple objects ### -- although we only support one right now ### XXX when support for multiple objects comes, saving source will have ### to change { my $idref = {}; my $count = 0; sub _inc_id { return ++$count; } sub _last_id { $count } sub _store_id { my $self = shift; my $obj = shift or return; unless( IS_INTERNALS_OBJ->($obj) ) { error( loc("The object you passed has the wrong ref type: '%1'", ref $obj) ); return; } $idref->{ $obj->_id } = $obj; return $obj->_id; } sub _retrieve_id { my $self = shift; my $id = shift or return; my $obj = $idref->{$id}; return $obj; } sub _remove_id { my $self = shift; my $id = shift or return; return delete $idref->{$id}; } sub _return_all_objects { return values %$idref } } 1; # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/Config/000755 001751 001751 00000000000 13036656051 017053 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS/Configure.pm000644 001751 001751 00000037711 13036655522 020140 0ustar00bingosbingos000000 000000 package CPANPLUS::Configure; use strict; use CPANPLUS::Internals::Constants; use CPANPLUS::Error; use CPANPLUS::Config; use Log::Message; use Module::Load qw[load]; use Params::Check qw[check]; use File::Basename qw[dirname]; use Module::Loaded (); use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; use vars qw[$AUTOLOAD $VERSION $MIN_CONFIG_VERSION]; use base qw[CPANPLUS::Internals::Utils]; local $Params::Check::VERBOSE = 1; ### require, avoid circular use ### require CPANPLUS::Internals; $VERSION = "0.9162"; ### can't use O::A as we're using our own AUTOLOAD to get to ### the config options. for my $meth ( qw[conf _lib _perl5lib]) { no strict 'refs'; *$meth = sub { my $self = shift; $self->{'_'.$meth} = $_[0] if @_; return $self->{'_'.$meth}; } } =pod =head1 NAME CPANPLUS::Configure - configuration for CPANPLUS =head1 SYNOPSIS $conf = CPANPLUS::Configure->new( ); $bool = $conf->can_save; $bool = $conf->save( $where ); @opts = $conf->options( $type ); $make = $conf->get_program('make'); $verbose = $conf->set_conf( verbose => 1 ); =head1 DESCRIPTION This module deals with all the configuration issues for CPANPLUS. Users can use objects created by this module to alter the behaviour of CPANPLUS. Please refer to the C documentation on how to obtain a C object. =head1 METHODS =head2 $Configure = CPANPLUS::Configure->new( load_configs => BOOL ) This method returns a new object. Normal users will never need to invoke the C method, but instead retrieve the desired object via a method call on a C object. =over 4 =item load_configs Controls whether or not additional user configurations are to be loaded or not. Defaults to C. =back =cut ### store the CPANPLUS::Config object in a closure, so we only ### initialize it once.. otherwise, on a 2nd ->new, settings ### from configs on top of this one will be reset { my $Config; sub new { my $class = shift; my %hash = @_; ### XXX pass on options to ->init() like rescan? my ($load); my $tmpl = { load_configs => { default => 1, store => \$load }, }; check( $tmpl, \%hash ) or ( warn Params::Check->last_error, return ); $Config ||= CPANPLUS::Config->new; my $self = bless {}, $class; $self->conf( $Config ); ### you want us to load other configs? ### these can override things in the default config $self->init if $load; ### after processing the config files, check what ### @INC and PERL5LIB are set to. $self->_lib( \@INC ); $self->_perl5lib( $ENV{'PERL5LIB'} ); return $self; } } =head2 $bool = $Configure->init( [rescan => BOOL]) Initialize the configure with other config files than just the default 'CPANPLUS::Config'. Called from C to load user/system configurations If the C option is provided, your disk will be examined again to see if there are new config files that could be read. Defaults to C. Returns true on success, false on failure. =cut ### move the Module::Pluggable detection to runtime, rather ### than compile time, so that a simple 'require CPANPLUS' ### doesn't start running over your filesystem for no good ### reason. Make sure we only do the M::P call once though. ### we use $loaded to mark it { my $loaded; my $warned; sub init { my $self = shift; my $obj = $self->conf; my %hash = @_; my ($rescan); my $tmpl = { rescan => { default => 0, store => \$rescan }, }; check( $tmpl, \%hash ) or ( warn Params::Check->last_error, return ); ### if the base dir is changed, we have to rescan it ### for any CPANPLUS::Config::* files as well, so keep ### track of it my $cur_base = $self->get_conf('base'); ### warn if we find an old style config specified ### via environment variables { my $env = ENV_CPANPLUS_CONFIG; if( $ENV{$env} and not $warned ) { $warned++; error(loc("Specifying a config file in your environment " . "using %1 is obsolete.\nPlease follow the ". "directions outlined in %2 or use the '%3' command\n". "in the default shell to use custom config files.", $env, "CPANPLUS::Configure->save", 's save')); } } { ### make sure that the homedir is included now local @INC = ( LIB_DIR->($cur_base), @INC ); ### only set it up once if( !$loaded++ or $rescan ) { ### find plugins & extra configs ### check $home/.cpanplus/lib as well require Module::Pluggable; Module::Pluggable->import( search_path => ['CPANPLUS::Config'], search_dirs => [ LIB_DIR->($cur_base) ], except => qr/::SUPER$/, sub_name => 'configs' ); } ### do system config, user config, rest.. in that order ### apparently, on a 2nd invocation of -->configs, a ### ::ISA::CACHE package can appear.. that's bad... my %confs = map { $_ => $_ } grep { $_ !~ /::ISA::/ } __PACKAGE__->configs; my @confs = grep { defined } map { delete $confs{$_} } CONFIG_SYSTEM, CONFIG_USER; push @confs, sort keys %confs; for my $plugin ( @confs ) { msg(loc("Found config '%1'", $plugin),0); ### if we already did this the /last/ time around don't ### run the setup again. if( my $loc = Module::Loaded::is_loaded( $plugin ) ) { msg(loc(" Already loaded '%1' (%2)", $plugin, $loc), 0); next; } else { msg(loc(" Loading config '%1'", $plugin),0); if( eval { load $plugin; 1 } ) { msg(loc(" Loaded '%1' (%2)", $plugin, Module::Loaded::is_loaded( $plugin ) ), 0); } else { error(loc(" Error loading '%1': %2", $plugin, $@)); } } if( $@ ) { error(loc("Could not load '%1': %2", $plugin, $@)); next; } my $sub = $plugin->can('setup'); $sub->( $self ) if $sub; } } ### did one of the plugins change the base dir? then we should ### scan the dirs again if( $cur_base ne $self->get_conf('base') ) { msg(loc("Base dir changed from '%1' to '%2', rescanning", $cur_base, $self->get_conf('base')), 0); $self->init( @_, rescan => 1 ); } ### clean up the paths once more, just in case $obj->_clean_up_paths; ### XXX in case the 'lib' param got changed, we need to ### add that now, or it's not propagating ;( { my $lib = $self->get_conf('lib'); my %inc = map { $_ => $_ } @INC; for my $l ( @$lib ) { push @INC, $l unless $inc{$l}; } $self->_lib( \@INC ); } return 1; } } =pod =head2 can_save( [$config_location] ) Check if we can save the configuration to the specified file. If no file is provided, defaults to your personal config. Returns true if the file can be saved, false otherwise. =cut sub can_save { my $self = shift; my $file = shift || CONFIG_USER_FILE->(); return 1 unless -e $file; chmod 0644, $file; return (-w $file); } =pod =head2 $file = $conf->save( [$package_name] ) Saves the configuration to the package name you provided. If this package is not C, it will be saved in your C<.cpanplus> directory, otherwise it will be attempted to be saved in the system wide directory. If no argument is provided, it will default to your personal config. Returns the full path to the file if the config was saved, false otherwise. =cut sub _config_pm_to_file { my $self = shift; my $pm = shift or return; my $dir = shift || CONFIG_USER_LIB_DIR->(); ### only 3 types of files know: home, system and 'other' ### so figure out where to save them based on their type my $file; if( $pm eq CONFIG_USER ) { $file = CONFIG_USER_FILE->(); } elsif ( $pm eq CONFIG_SYSTEM ) { $file = CONFIG_SYSTEM_FILE->(); ### third party file } else { my $cfg_pkg = CONFIG . '::'; unless( $pm =~ /^$cfg_pkg/ ) { error(loc( "WARNING: Your config package '%1' is not in the '%2' ". "namespace and will not be automatically detected by %3", $pm, $cfg_pkg, 'CPANPLUS' )); } $file = File::Spec->catfile( $dir, split( '::', $pm ) ) . '.pm'; } return $file; } sub save { my $self = shift; my $pm = shift || CONFIG_USER; my $savedir = shift || ''; my $file = $self->_config_pm_to_file( $pm, $savedir ) or return; my $dir = dirname( $file ); unless( -d $dir ) { $self->_mkdir( dir => $dir ) or ( error(loc("Can not create directory '%1' to save config to",$dir)), return ) } return unless $self->can_save($file); ### find only accessors that are not private my @acc = sort grep { $_ !~ /^_/ } $self->conf->ls_accessors; ### for dumping the values use Data::Dumper; my @lines; for my $acc ( @acc ) { push @lines, "### $acc section", $/; for my $key ( $self->conf->$acc->ls_accessors ) { my $val = Dumper( $self->conf->$acc->$key ); $val =~ s/\$VAR1\s+=\s+//; $val =~ s/;\n//; push @lines, '$'. "conf->set_${acc}( $key => $val );", $/; } push @lines, $/,$/; } my $str = join '', map { " $_" } @lines; ### use a variable to make sure the pod parser doesn't snag it my $is = '='; my $time = gmtime; my $msg = <<_END_OF_CONFIG_; ############################################### ### ### Configuration structure for $pm ### ############################################### #last changed: $time GMT ### minimal pod, so you can find it with perldoc -l, etc ${is}pod ${is}head1 NAME $pm ${is}head1 DESCRIPTION This is a CPANPLUS configuration file. Editing this config changes the way CPANPLUS will behave ${is}cut package $pm; use strict; sub setup { my \$conf = shift; $str return 1; } 1; _END_OF_CONFIG_ $self->_move( file => $file, to => "$file~" ) if -f $file; my $fh = new FileHandle; $fh->open(">$file") or (error(loc("Could not open '%1' for writing: %2", $file, $!)), return ); $fh->print($msg); $fh->close; return $file; } =pod =head2 options( type => TYPE ) Returns a list of all valid config options given a specific type (like for example C of C) or false if the type does not exist =cut sub options { my $self = shift; my $conf = $self->conf; my %hash = @_; my $type; my $tmpl = { type => { required => 1, default => '', strict_type => 1, store => \$type }, }; check($tmpl, \%hash) or return; my %seen; return sort grep { !$seen{$_}++ } map { $_->$type->ls_accessors if $_->can($type) } $self->conf; return; } =pod =head1 ACCESSORS Accessors that start with a C<_> are marked private -- regular users should never need to use these. See the C documentation for what items can be set and retrieved. =head2 get_SOMETHING( ITEM, [ITEM, ITEM, ... ] ); The C style accessors merely retrieves one or more desired config options. =head2 set_SOMETHING( ITEM => VAL, [ITEM => VAL, ITEM => VAL, ... ] ); The C style accessors set the current value for one or more config options and will return true upon success, false on failure. =head2 add_SOMETHING( ITEM => VAL, [ITEM => VAL, ITEM => VAL, ... ] ); The C style accessor adds a new key to a config key. Currently, the following accessors exist: =over 4 =item set|get_conf Simple configuration directives like verbosity and favourite shell. =item set|get_program Location of helper programs. =item _set|_get_build Locations of where to put what files for CPANPLUS. =item _set|_get_source Locations and names of source files locally. =item _set|_get_mirror Locations and names of source files remotely. =item _set|_get_fetch Special settings pertaining to the fetching of files. =back =cut sub AUTOLOAD { my $self = shift; my $conf = $self->conf; my $name = $AUTOLOAD; $name =~ s/.+:://; my ($private, $action, $field) = $name =~ m/^(_)?((?:[gs]et|add))_([a-z]+)$/; my $type = ''; $type .= '_' if $private; $type .= $field if $field; my $type_code = $conf->can($type); unless ( $type_code ) { error( loc("Invalid method type: '%1'", $name) ); return; } my $type_obj = $type_code->(); unless( scalar @_ ) { error( loc("No arguments provided!") ); return; } ### retrieve a current value for an existing key ### if( $action eq 'get' ) { for my $key (@_) { my @list = (); ### get it from the user config first if( my $code = $type_obj->can($key) ) { push @list, $code->(); ### XXX EU::AI compatibility hack to provide lookups like in ### cpanplus 0.04x; we renamed ->_get_build('base') to ### ->get_conf('base') } elsif ( $type eq '_build' and $key eq 'base' ) { return $self->get_conf($key); } else { error( loc(q[No such key '%1' in field '%2'], $key, $type) ); return; } return wantarray ? @list : $list[0]; } ### set an existing key to a new value ### } elsif ( $action eq 'set' ) { my %args = @_; while( my($key,$val) = each %args ) { if( my $code = $type_obj->can($key) ) { $code->( $val ); } else { error( loc(q[No such key '%1' in field '%2'], $key, $type) ); return; } } return 1; ### add a new key to the config ### } elsif ( $action eq 'add' ) { my %args = @_; while( my($key,$val) = each %args ) { if( $type_obj->can($key) ) { error( loc( q[Key '%1' already exists for field '%2'], $key, $type)); return; } else { $type_obj->mk_accessors( $key ); $type_obj->$key( $val ); } } return 1; } else { error( loc(q[Unknown action '%1'], $action) ); return; } } sub DESTROY { 1 }; 1; =pod =head1 BUG REPORTS Please report bugs or other issues to Ebug-cpanplus@rt.cpan.org. =head1 AUTHOR This module by Jos Boumans Ekane@cpan.orgE. =head1 COPYRIGHT The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans Ekane@cpan.orgE. All rights reserved. This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L, L =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/Error.pm000644 001751 001751 00000012202 13036655522 017274 0ustar00bingosbingos000000 000000 package CPANPLUS::Error; use strict; use vars qw[$VERSION]; $VERSION = "0.9162"; use Log::Message private => 0;; =pod =head1 NAME CPANPLUS::Error - error handling for CPANPLUS =head1 SYNOPSIS use CPANPLUS::Error qw[cp_msg cp_error]; =head1 DESCRIPTION This module provides the error handling code for the CPANPLUS libraries, and is mainly intended for internal use. =head1 FUNCTIONS =head2 cp_msg("message string" [,VERBOSE]) Records a message on the stack, and prints it to C (or actually C<$MSG_FH>, see the C section below), if the C option is true. The C option defaults to false. =head2 msg() An alias for C. =head2 cp_error("error string" [,VERBOSE]) Records an error on the stack, and prints it to C (or actually C<$ERROR_FH>, see the C sections below), if the C option is true. The C options defaults to true. =head2 error() An alias for C. =head1 CLASS METHODS =head2 CPANPLUS::Error->stack() Retrieves all the items on the stack. Since C is implemented using C, consult its manpage for the function C to see what is returned and how to use the items. =head2 CPANPLUS::Error->stack_as_string([TRACE]) Returns the whole stack as a printable string. If the C option is true all items are returned with C output, rather than just the message. C defaults to false. =head2 CPANPLUS::Error->flush() Removes all the items from the stack and returns them. Since C is implemented using C, consult its manpage for the function C to see what is returned and how to use the items. =cut BEGIN { use Exporter; use Params::Check qw[check]; use vars qw[@EXPORT @ISA $ERROR_FH $MSG_FH]; @ISA = 'Exporter'; @EXPORT = qw[cp_error cp_msg error msg]; my $log = new Log::Message; for my $func ( @EXPORT ) { no strict 'refs'; my $prefix = 'cp_'; my $name = $func; $name =~ s/^$prefix//g; *$func = sub { my $msg = shift; ### no point storing non-messages return unless defined $msg; $log->store( message => $msg, tag => uc $name, level => $prefix . $name, extra => [@_] ); }; } sub flush { my @foo = $log->flush; return unless @foo; return reverse @foo; } sub stack { return $log->retrieve( chrono => 1 ); } sub stack_as_string { my $class = shift; my $trace = shift() ? 1 : 0; return join $/, map { '[' . $_->tag . '] [' . $_->when . '] ' . ($trace ? $_->message . ' ' . $_->longmess : $_->message); } __PACKAGE__->stack; } } =head1 GLOBAL VARIABLES =over 4 =item $ERROR_FH This is the filehandle all the messages sent to C are being printed. This defaults to C<*STDERR>. =item $MSG_FH This is the filehandle all the messages sent to C are being printed. This default to C<*STDOUT>. =back =cut local $| = 1; $ERROR_FH = \*STDERR; $MSG_FH = \*STDOUT; package # Hide from Pause Log::Message::Handlers; use Carp (); { sub cp_msg { my $self = shift; my $verbose = shift; ### so you don't want us to print the msg? ### return if defined $verbose && $verbose == 0; my $old_fh = select $CPANPLUS::Error::MSG_FH; print '['. $self->tag . '] ' . $self->message . "\n"; select $old_fh; return; } sub cp_error { my $self = shift; my $verbose = shift; ### so you don't want us to print the error? ### return if defined $verbose && $verbose == 0; my $old_fh = select $CPANPLUS::Error::ERROR_FH; ### is only going to be 1 for now anyway ### ### C::I may not be loaded, so do a can() check first my $cb = CPANPLUS::Internals->can('_return_all_objects') ? (CPANPLUS::Internals->_return_all_objects)[0] : undef; ### maybe we didn't initialize an internals object (yet) ### my $debug = $cb ? $cb->configure_object->get_conf('debug') : 0; my $msg = '['. $self->tag . '] ' . $self->message . "\n"; ### i'm getting this warning in the test suite: ### Ambiguous call resolved as CORE::warn(), qualify as such or ### use & at CPANPLUS/Error.pm line 57. ### no idea where it's coming from, since there's no 'sub warn' ### anywhere to be found, but i'll mark it explicitly nonetheless ### --kane print $debug ? Carp::shortmess($msg) : $msg . "\n"; select $old_fh; return; } } 1; # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/Configure/000755 001751 001751 00000000000 13036656051 017567 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS/Dist/000755 001751 001751 00000000000 13036656051 016551 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS/Dist.pm000644 001751 001751 00000061201 13036655522 017111 0ustar00bingosbingos000000 000000 package CPANPLUS::Dist; use strict; use CPANPLUS::Error; use CPANPLUS::Internals::Constants; use Cwd (); use Object::Accessor; use Parse::CPAN::Meta; use IPC::Cmd qw[run]; use Params::Check qw[check]; use Module::Load::Conditional qw[can_load check_install]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; use vars qw[$VERSION]; $VERSION = "0.9162"; use base 'Object::Accessor'; local $Params::Check::VERBOSE = 1; =pod =head1 NAME CPANPLUS::Dist - base class for plugins =head1 SYNOPSIS my $dist = CPANPLUS::Dist::YOUR_DIST_TYPE_HERE->new( module => $modobj, ); =head1 DESCRIPTION C is a base class for C and C. Developers of other C plugins should look at C. =head1 ACCESSORS =over 4 =item parent() Returns the C object that parented this object. =item status() Returns the C object that keeps the status for this module. =back =head1 STATUS ACCESSORS All accessors can be accessed as follows: $deb->status->ACCESSOR =over 4 =item created() Boolean indicating whether the dist was created successfully. Explicitly set to C<0> when failed, so a value of C may be interpreted as C. =item installed() Boolean indicating whether the dist was installed successfully. Explicitly set to C<0> when failed, so a value of C may be interpreted as C. =item uninstalled() Boolean indicating whether the dist was uninstalled successfully. Explicitly set to C<0> when failed, so a value of C may be interpreted as C. =item dist() The location of the final distribution. This may be a file or directory, depending on how your distribution plug in of choice works. This will be set upon a successful create. =cut =back =head2 $dist = CPANPLUS::Dist::YOUR_DIST_TYPE_HERE->new( module => MODOBJ ); Create a new C object based on the provided C. *** DEPRECATED *** The optional argument C is used to indicate what type of dist you would like to create (like C or C and so on ). C<< CPANPLUS::Dist->new >> is exclusively meant as a method to be inherited by C. Returns a C object on success and false on failure. =cut sub new { my $self = shift; my $class = ref $self || $self; my %hash = @_; ### first verify we got a module object ### my( $mod, $format ); my $tmpl = { module => { required => 1, allow => IS_MODOBJ, store => \$mod }, ### for backwards compatibility format => { default => $class, store => \$format, allow => [ __PACKAGE__->dist_types ], }, }; check( $tmpl, \%hash ) or return; unless( can_load( modules => { $format => '0.0' }, verbose => 1 ) ) { error(loc("'%1' not found -- you need '%2' version '%3' or higher ". "to detect plugins", $format, 'Module::Pluggable','2.4')); return; } ### get an empty o::a object for this class my $obj = $format->SUPER::new; $obj->mk_accessors( qw[parent status] ); ### set the parent $obj->parent( $mod ); ### create a status object ### { my $acc = Object::Accessor->new; $obj->status($acc); ### add minimum supported accessors $acc->mk_accessors( qw[prepared created installed uninstalled distdir dist] ); } ### get the conf object ### my $conf = $mod->parent->configure_object(); ### check if the format is available in this environment ### if( $conf->_get_build('sanity_check') and not $obj->format_available ) { error( loc( "Format '%1' is not available", $format) ); return; } ### now initialize it or admit failure unless( $obj->init ) { error(loc("Dist initialization of '%1' failed for '%2'", $format, $mod->module)); return; } ### return the object return $obj; } =head2 @dists = CPANPLUS::Dist->dist_types; Returns a list of the CPANPLUS::Dist::* classes available =cut ### returns a list of dist_types we support ### will get overridden by Module::Pluggable if loaded ### XXX add support for 'plugin' dir in config as well { my $Loaded; my @Dists = (INSTALLER_MM); my @Ignore = (); ### backdoor method to add more dist types sub _add_dist_types { my $self = shift; push @Dists, @_ }; ### backdoor method to exclude dist types sub _ignore_dist_types { my $self = shift; push @Ignore, @_ }; sub _reset_dist_ignore { @Ignore = () }; ### locally add the plugins dir to @INC, so we can find extra plugins #local @INC = @INC, File::Spec->catdir( # $conf->get_conf('base'), # $conf->_get_build('plugins') ); ### load any possible plugins sub dist_types { if ( !$Loaded++ and check_install( module => 'Module::Pluggable', version => '2.4') ) { require Module::Pluggable; my $only_re = __PACKAGE__ . '::\w+$'; my %except = map { $_ => 1 } INSTALLER_SAMPLE, INSTALLER_BASE; Module::Pluggable->import( sub_name => '_dist_types', search_path => __PACKAGE__, only => qr/$only_re/, require => 1, except => [ keys %except ] ); my %ignore = map { $_ => $_ } @Ignore; push @Dists, grep { not $ignore{$_} and not $except{$_} } __PACKAGE__->_dist_types; } return @Dists; } =head2 $bool = CPANPLUS::Dist->rescan_dist_types; Rescans C<@INC> for available dist types. Useful if you've installed new C classes and want to make them available to the current process. =cut sub rescan_dist_types { my $dist = shift; $Loaded = 0; # reset the flag; return $dist->dist_types; } } =head2 $bool = CPANPLUS::Dist->has_dist_type( $type ) Returns true if distribution type C<$type> is loaded/supported. =cut sub has_dist_type { my $dist = shift; my $type = shift or return; return scalar grep { $_ eq $type } CPANPLUS::Dist->dist_types; } =head2 $bool = $dist->prereq_satisfied( modobj => $modobj, version => $version_spec ) Returns true if this prereq is satisfied. Returns false if it's not. Also issues an error if it seems "unsatisfiable," i.e. if it can't be found on CPAN or the latest CPAN version doesn't satisfy it. =cut sub prereq_satisfied { my $dist = shift; my $cb = $dist->parent->parent; my %hash = @_; my($mod,$ver); my $tmpl = { version => { required => 1, store => \$ver }, modobj => { required => 1, store => \$mod, allow => IS_MODOBJ }, }; check( $tmpl, \%hash ) or return; return 1 if $mod->is_uptodate( version => $ver ); if ( $cb->_vcmp( $ver, $mod->version ) > 0 ) { error(loc( "This distribution depends on %1, but the latest version". " of %2 on CPAN (%3) doesn't satisfy the specific version". " dependency (%4). You may have to resolve this dependency ". "manually.", $mod->module, $mod->module, $mod->version, $ver )); } return; } =head2 $configure_requires = $dist->find_configure_requires( [file => /path/to/META.yml] ) Reads the configure_requires for this distribution from the META.yml or META.json file in the root directory and returns a hashref with module names and versions required. =cut sub find_configure_requires { my $self = shift; my $mod = $self->parent; my %hash = @_; my ($meta); my $href = {}; my $tmpl = { file => { store => \$meta }, }; check( $tmpl, \%hash ) or return; my $meth = 'configure_requires'; { ### the prereqs as we have them now my @args = ( defaults => $mod->status->$meth || {}, ); my @possibles = do { defined $mod->status->extract ? ( META_JSON->( $mod->status->extract ), META_YML->( $mod->status->extract ) ) : () }; unshift @possibles, $meta if $meta; META: foreach my $mfile ( grep { -e } @possibles ) { push @args, ( file => $mfile ); if ( $mfile =~ /\.json/ ) { $href = $self->_prereqs_from_meta_json( @args, keys => [ 'configure' ] ); } else { $href = $self->_prereqs_from_meta_file( @args, keys => [ $meth ] ); } last META; } } ### and store it in the module $mod->status->$meth( $href ); return { %$href }; } sub find_mymeta_requires { my $self = shift; my $mod = $self->parent; my %hash = @_; my ($meta); my $href = {}; my $tmpl = { file => { store => \$meta }, }; check( $tmpl, \%hash ) or return; my $meth = 'prereqs'; { ### the prereqs as we have them now my @args = ( defaults => $mod->status->$meth || {}, ); my @possibles = do { defined $mod->status->extract ? ( MYMETA_JSON->( $mod->status->extract ), MYMETA_YML->( $mod->status->extract ) ) : () }; unshift @possibles, $meta if $meta; META: foreach my $mfile ( grep { -e } @possibles ) { push @args, ( file => $mfile ); if ( $mfile =~ /\.json/ ) { $href = $self->_prereqs_from_meta_json( @args, keys => [ qw|build test runtime| ] ); } else { $href = $self->_prereqs_from_meta_file( @args, keys => [ qw|build_requires requires| ] ); } last META; } } ### and store it in the module $mod->status->$meth( $href ); return { %$href }; } sub _prereqs_from_meta_file { my $self = shift; my $mod = $self->parent; my %hash = @_; my( $meta, $defaults, $keys ); my $tmpl = { ### check if we have an extract path. if not, we ### get 'undef value' warnings from file::spec file => { default => do { defined $mod->status->extract ? META_YML->( $mod->status->extract ) : '' }, store => \$meta, }, defaults => { required => 1, default => {}, strict_type => 1, store => \$defaults }, keys => { required => 1, default => [], strict_type => 1, store => \$keys }, }; check( $tmpl, \%hash ) or return; ### if there's a meta file, we read it; if( -e $meta ) { ### Parse::CPAN::Meta uses exceptions for errors ### hash returned in list context!!! local $ENV{PERL_JSON_BACKEND}; my ($doc) = eval { Parse::CPAN::Meta::LoadFile( $meta ) }; unless( $doc ) { error(loc( "Could not read %1: '%2'", $meta, $@ )); return $defaults; } ### read the keys now, make sure not to throw ### away anything that was already added for my $key ( @$keys ) { $defaults = { %$defaults, %{ $doc->{$key} }, } if $doc->{ $key }; } } ### and return a copy return \%{ $defaults }; } sub _prereqs_from_meta_json { my $self = shift; my $mod = $self->parent; my %hash = @_; my( $meta, $defaults, $keys ); my $tmpl = { ### check if we have an extract path. if not, we ### get 'undef value' warnings from file::spec file => { default => do { defined $mod->status->extract ? META_JSON->( $mod->status->extract ) : '' }, store => \$meta, }, defaults => { required => 1, default => {}, strict_type => 1, store => \$defaults }, keys => { required => 1, default => [], strict_type => 1, store => \$keys }, }; check( $tmpl, \%hash ) or return; ### if there's a meta file, we read it; if( -e $meta ) { ### Parse::CPAN::Meta uses exceptions for errors ### hash returned in list context!!! local $ENV{PERL_JSON_BACKEND}; my ($doc) = eval { Parse::CPAN::Meta->load_file( $meta ) }; unless( $doc ) { error(loc( "Could not read %1: '%2'", $meta, $@ )); return $defaults; } ### read the keys now, make sure not to throw ### away anything that was already added #for my $key ( @$keys ) { # $defaults = { # %$defaults, # %{ $doc->{$key} }, # } if $doc->{ $key }; #} my $prereqs = $doc->{prereqs} || {}; for my $key ( @$keys ) { $defaults = { %$defaults, %{ $prereqs->{$key}->{requires} }, } if $prereqs->{ $key }->{requires}; } } ### and return a copy return \%{ $defaults }; } =head2 $bool = $dist->_resolve_prereqs( ... ) Makes sure prerequisites are resolved format The dist class to use to make the prereqs (ie. CPANPLUS::Dist::MM) prereqs Hash of the prerequisite modules and their versions target What to do with the prereqs. create => Just build them install => Install them ignore => Ignore them prereq_build If true, always build the prereqs even if already resolved verbose Be verbose force Force the prereq to be built, even if already resolved =cut sub _resolve_prereqs { my $dist = shift; my $self = $dist->parent; my $cb = $self->parent; my $conf = $cb->configure_object; my %hash = @_; my ($prereqs, $format, $verbose, $target, $force, $prereq_build,$tolerant); my $tmpl = { ### XXX perhaps this should not be required, since it may not be ### packaged, just installed... ### Let it be empty as well -- that means the $modobj->install ### routine will figure it out, which is fine if we didn't have any ### very specific wishes (it will even detect the favourite ### dist_type). format => { required => 1, store => \$format, allow => ['',__PACKAGE__->dist_types], }, prereqs => { required => 1, default => { }, strict_type => 1, store => \$prereqs }, verbose => { default => $conf->get_conf('verbose'), store => \$verbose }, force => { default => $conf->get_conf('force'), store => \$force }, ### make sure allow matches with $mod->install's list target => { default => '', store => \$target, allow => ['',qw[create ignore install]] }, prereq_build => { default => 0, store => \$prereq_build }, tolerant => { default => $conf->get_conf('allow_unknown_prereqs'), store => \$tolerant }, }; check( $tmpl, \%hash ) or return; ### so there are no prereqs? then don't even bother return 1 unless keys %$prereqs; ### Make sure we wound up where we started. my $original_wd = Cwd::cwd; ### so you didn't provide an explicit target. ### maybe your config can tell us what to do. $target ||= { PREREQ_ASK, TARGET_INSTALL, # we'll bail out if the user says no PREREQ_BUILD, TARGET_CREATE, PREREQ_IGNORE, TARGET_IGNORE, PREREQ_INSTALL, TARGET_INSTALL, }->{ $conf->get_conf('prereqs') } || ''; ### XXX BIG NASTY HACK XXX FIXME at some point. ### when installing Bundle::CPANPLUS::Dependencies, we want to ### install all packages matching 'cpanplus' to be installed last, ### as all CPANPLUS' prereqs are being installed as well, but are ### being loaded for bootstrapping purposes. This means CPANPLUS ### can find them, but for example cpanplus::dist::build won't, ### which gets messy FAST. So, here we sort our prereqs only IF ### the parent module is Bundle::CPANPLUS::Dependencies. ### Really, we would want some sort of sorted prereq mechanism, ### but Bundle:: doesn't support it, and we flatten everything ### to a hash internally. A sorted hash *might* do the trick if ### we got a transparent implementation.. that would mean we would ### just have to remove the 'sort' here, and all will be well my @sorted_prereqs; ### use regex, could either be a module name, or a package name if( $self->module =~ /^Bundle(::|-)CPANPLUS(::|-)Dependencies/ ) { my (@first, @last); for my $mod ( sort keys %$prereqs ) { $mod =~ /CPANPLUS/ ? push @last, $mod : push @first, $mod; } @sorted_prereqs = (@first, @last); } else { @sorted_prereqs = sort keys %$prereqs; } ### first, transfer this key/value pairing into a ### list of module objects + desired versions my @install_me; my $flag; for my $mod ( @sorted_prereqs ) { ( my $version = $prereqs->{$mod} ) =~ s#[^0-9\._]+##g; ### 'perl' is a special case, there's no mod object for it if( $mod eq PERL_CORE ) { unless( $cb->_vcmp( sprintf('v%vd',$^V), $version ) >= 0 ) { error(loc( "Module '%1' needs perl version '%2', but you ". "only have version '%3' -- can not proceed", $self->module, $version, $cb->_perl_version( perl => $^X ) ) ); return; } next; } my $modobj = $cb->module_tree($mod); #### XXX we ignore the version, and just assume that the latest #### version from cpan will meet your requirements... dodgy =/ unless( $modobj ) { # Check if it is a core module my $sub = CPANPLUS::Module->can( 'module_is_supplied_with_perl_core' ); my $core = $sub->( $mod ); unless ( defined $core ) { error( loc( "No such module '%1' found on CPAN", $mod ) ); $flag++ unless $tolerant; next; } if ( $cb->_vcmp( $version, $core ) > 0 ) { error(loc( "Version of core module '%1' ('%2') is too low for ". "'%3' (needs '%4') -- carrying on but this may be a problem", $mod, $core, $self->module, $version )); } next; } ### it's not uptodate, we need to install it if( !$dist->prereq_satisfied(modobj => $modobj, version => $version)) { msg(loc("Module '%1' requires '%2' version '%3' to be installed ", $self->module, $modobj->module, $version), $verbose ); push @install_me, [$modobj, $version]; ### it's not an MM or Build format, that means it's a package ### manager... we'll need to install it as well, via the PM } elsif ( INSTALL_VIA_PACKAGE_MANAGER->($format) and !$modobj->package_is_perl_core and ($target ne TARGET_IGNORE) ) { msg(loc("Module '%1' depends on '%2', may need to build a '%3' ". "package for it as well", $self->module, $modobj->module, $format)); push @install_me, [$modobj, $version]; } } ### so you just want to ignore prereqs? ### if( $target eq TARGET_IGNORE ) { ### but you have modules you need to install if( @install_me ) { msg(loc("Ignoring prereqs, this may mean your install will fail"), $verbose); msg(loc("'%1' listed the following dependencies:", $self->module), $verbose); for my $aref (@install_me) { my ($mod,$version) = @$aref; my $str = sprintf "\t%-35s %8s\n", $mod->module, $version; msg($str,$verbose); } return; ### ok, no problem, you have all needed prereqs anyway } else { return 1; } } for my $aref (@install_me) { my($modobj,$version) = @$aref; ### another prereq may have already installed this one... ### so don't ask again if the module turns out to be uptodate ### see bug [#11840] ### if either force or prereq_build are given, the prereq ### should be built anyway next if (!$force and !$prereq_build) && $dist->prereq_satisfied(modobj => $modobj, version => $version); ### either we're told to ignore the prereq, ### or the user wants us to ask him if( ( $conf->get_conf('prereqs') == PREREQ_ASK and not $cb->_callbacks->install_prerequisite->($self, $modobj) ) ) { msg(loc("Will not install prerequisite '%1' -- Note " . "that the overall install may fail due to this", $modobj->module), $verbose); next; } ### value set and false -- means failure ### if( defined $modobj->status->installed && !$modobj->status->installed ) { error( loc( "Prerequisite '%1' failed to install before in " . "this session", $modobj->module ) ); $flag++; last; } ### part of core? if( $modobj->package_is_perl_core ) { error(loc("Prerequisite '%1' is perl-core (%2) -- not ". "installing that. -- Note that the overall ". "install may fail due to this.", $modobj->module, $modobj->package ) ); next; } ### circular dependency code ### my $pending = $cb->_status->pending_prereqs || {}; ### recursive dependency ### if ( $pending->{ $modobj->module } ) { error( loc( "Recursive dependency detected (%1) -- skipping", $modobj->module ) ); next; } ### register this dependency as pending ### $pending->{ $modobj->module } = $modobj; $cb->_status->pending_prereqs( $pending ); ### call $modobj->install rather than doing ### CPANPLUS::Dist->new and the like ourselves, ### since ->install will take care of fetch && ### extract as well my $pa = $dist->status->_prepare_args || {}; my $ca = $dist->status->_create_args || {}; my $ia = $dist->status->_install_args || {}; unless( $modobj->install( %$pa, %$ca, %$ia, force => $force, verbose => $verbose, format => $format, target => $target ) ) { error(loc("Failed to install '%1' as prerequisite " . "for '%2'", $modobj->module, $self->module ) ); $flag++; } ### unregister the pending dependency ### $pending->{ $modobj->module } = 0; $cb->_status->pending_prereqs( $pending ); last if $flag; ### don't want us to install? ### if( $target ne TARGET_INSTALL ) { my $dir = $modobj->status->extract or error(loc("No extraction dir for '%1' found ". "-- weird", $modobj->module)); $modobj->add_to_includepath(); next; } } ### reset the $prereqs iterator, in case we bailed out early ### keys %$prereqs; ### chdir back to where we started $cb->_chdir( dir => $original_wd ); return 1 unless $flag; return; } 1; # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/Shell.pm000644 001751 001751 00000022657 13036655522 017271 0ustar00bingosbingos000000 000000 package CPANPLUS::Shell; use strict; use CPANPLUS::Error; use CPANPLUS::Configure; use CPANPLUS::Internals::Constants; use Module::Load qw[load]; use Params::Check qw[check]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; $Params::Check::VERBOSE = 1; use vars qw[@ISA $SHELL $DEFAULT $VERSION]; $VERSION = "0.9162"; $DEFAULT = SHELL_DEFAULT; =pod =head1 NAME CPANPLUS::Shell - base class for CPANPLUS shells =head1 SYNOPSIS use CPANPLUS::Shell; # load the shell indicated by your # config -- defaults to # CPANPLUS::Shell::Default use CPANPLUS::Shell qw[Classic] # load CPANPLUS::Shell::Classic; my $ui = CPANPLUS::Shell->new(); my $name = $ui->which; # Find out what shell you loaded $ui->shell; # run the ui shell =head1 DESCRIPTION This module is the generic loading (and base class) for all C shells. Through this module you can load any installed C shell. Just about all the functionality is provided by the shell that you have loaded, and not by this class (which merely functions as a generic loading class), so please consult the documentation of your shell of choice. =cut sub import { my $class = shift; my $option = shift; ### find out what shell we're supposed to load ### $SHELL = $option ? $class . '::' . $option : do { ### XXX this should offer to reconfigure ### CPANPLUS, somehow. --rs ### XXX load Configure only if we really have to ### as that means any $Conf passed later on will ### be ignored in favour of the one that was ### retrieved via ->new --kane my $conf = CPANPLUS::Configure->new() or die loc("No configuration available -- aborting") . $/; $conf->get_conf('shell') || $DEFAULT; }; ### load the shell, fall back to the default if required ### and die if even that doesn't work EVAL: { eval { load $SHELL }; if( $@ ) { my $err = $@; die loc("Your default shell '%1' is not available: %2", $DEFAULT, $err) . loc("Check your installation!") . "\n" if $SHELL eq $DEFAULT; warn loc("Failed to use '%1': %2", $SHELL, $err), loc("Switching back to the default shell '%1'", $DEFAULT), "\n"; $SHELL = $DEFAULT; redo EVAL; } } @ISA = ($SHELL); } sub which { return $SHELL } 1; ########################################################################### ### abstracted out subroutines available to programmers of other shells ### ########################################################################### package CPANPLUS::Shell::_Base::ReadLine; use strict; use vars qw($AUTOLOAD $TMPL); use FileHandle; use CPANPLUS::Error; use Params::Check qw[check]; use Module::Load::Conditional qw[can_load]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; $Params::Check::VERBOSE = 1; $TMPL = { brand => { default => '', strict_type => 1 }, prompt => { default => '> ', strict_type => 1 }, pager => { default => '' }, backend => { default => '' }, term => { default => '' }, format => { default => '' }, dist_format => { default => '' }, remote => { default => undef }, noninteractive => { default => '' }, cache => { default => [ ] }, settings => { default => { install_all_prereqs => undef }, no_override => 1 }, _old_sigpipe => { default => '', no_override => 1 }, _old_outfh => { default => '', no_override => 1 }, _signals => { default => { INT => { } }, no_override => 1 }, }; ### autogenerate accessors ### for my $key ( keys %$TMPL ) { no strict 'refs'; *{__PACKAGE__."::$key"} = sub { my $self = shift; $self->{$key} = $_[0] if @_; return $self->{$key}; } } sub _init { my $class = shift; my %hash = @_; my $self = check( $TMPL, \%hash ) or return; bless $self, $class; ### signal handler ### $SIG{INT} = $self->_signals->{INT}->{handler} = sub { unless ( $self->_signals->{INT}->{count}++ ) { warn loc("Caught SIGINT"), "\n"; } else { warn loc("Got another SIGINT"), "\n"; die; } }; ### end sig handler ### return $self; } ### display shell's banner, takes the Backend object as argument sub _show_banner { my $self = shift; my $cpan = $self->backend; my $term = $self->term; ### Tries to probe for our ReadLine support status # a) under an interactive shell? my $rl_avail = (!$term->isa('CPANPLUS::Shell::_Faked')) # b) do we have a tty terminal? ? (-t STDIN) # c) should we enable the term? ? (!$self->__is_bad_terminal($term)) # d) external modules available? ? ($term->ReadLine ne "Term::ReadLine::Stub") # a+b+c+d => "Smart" terminal ? loc("enabled") # a+b+c => "Stub" terminal : loc("available (try 'i Term::ReadLine::Perl')") # a+b => "Bad" terminal : loc("disabled") # a => "Dumb" terminal : loc("suppressed") # none => "Faked" terminal : loc("suppressed in batch mode"); $rl_avail = loc("ReadLine support %1.", $rl_avail); $rl_avail = "\n*** $rl_avail" if (length($rl_avail) > 45); $self->__print( loc("%1 -- CPAN exploration and module installation (v%2)", $self->which, $self->which->VERSION()), "\n", loc("*** Please report bugs to ."), "\n", loc("*** Using CPANPLUS::Backend v%1. %2", $cpan->VERSION, $rl_avail), "\n\n" ); } ### checks whether the Term::ReadLine is broken and needs to fallback to Stub sub __is_bad_terminal { my $self = shift; my $term = $self->term; return unless $^O eq 'MSWin32'; ### replace the term with the default (stub) one return $self->term(Term::ReadLine::Stub->new( $self->brand ) ); } ### open a pager handle sub _pager_open { my $self = shift; my $cpan = $self->backend; my $cmd = $cpan->configure_object->get_program('pager') or return; $self->_old_sigpipe( $SIG{PIPE} ); $SIG{PIPE} = 'IGNORE'; my $fh = new FileHandle; unless ( $fh->open("| $cmd") ) { error(loc("could not pipe to %1: %2\n", $cmd, $!) ); return; } $fh->autoflush(1); $self->pager( $fh ); $self->_old_outfh( select $fh ); return $fh; } ### print to the current pager handle, or STDOUT if it's not opened sub _pager_close { my $self = shift; my $pager = $self->pager or return; $pager->close if (ref($pager) and $pager->can('close')); $self->pager( undef ); select $self->_old_outfh; $SIG{PIPE} = $self->_old_sigpipe; return 1; } { my $win32_console; ### determines row count of current terminal; defaults to 25. ### used by the pager functions sub _term_rowcount { my $self = shift; my $cpan = $self->backend; my %hash = @_; my $default; my $tmpl = { default => { default => 25, allow => qr/^\d$/, store => \$default } }; check( $tmpl, \%hash ) or return; if ( $^O eq 'MSWin32' ) { if ( can_load( modules => { 'Win32::Console' => '0.0' } ) ) { $win32_console ||= Win32::Console->new(); my $rows = ($win32_console->Info)[-1]; return $rows; } } else { local $Module::Load::Conditional::VERBOSE = 0; if ( can_load(modules => {'Term::Size' => '0.0'}) ) { my ($cols, $rows) = Term::Size::chars(); return $rows; } } return $default; } } ### Custom print routines, mainly to be able to catch output ### in test cases, or redirect it if need be { sub __print { my $self = shift; print @_; } sub __printf { my $self = shift; my $fmt = shift; ### MUST specify $fmt as a separate param, and not as part ### of @_, as it will then miss the $fmt and return the ### number of elements in the list... =/ --kane $self->__print( sprintf( $fmt, @_ ) ); } } 1; =pod =head1 BUG REPORTS Please report bugs or other issues to Ebug-cpanplus@rt.cpan.org. =head1 AUTHOR This module by Jos Boumans Ekane@cpan.orgE. =head1 COPYRIGHT The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans Ekane@cpan.orgE. All rights reserved. This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L, L =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: CPANPLUS-0.9162/lib/CPANPLUS/FAQ.pod000644 001751 001751 00000001221 12143731636 016756 0ustar00bingosbingos000000 000000 =pod =head1 NAME CPANPLUS::FAQ - CPANPLUS Frequently Asked Questions =head1 NAME CPANPLUS::FAQ =head1 DESCRIPTION This document attempts to provide answers to commonly asked questions. XXX Work in progress =head1 BUG REPORTS Please report bugs or other issues to Ebug-cpanplus@rt.cpan.org. =head1 AUTHOR This module by Jos Boumans Ekane@cpan.orgE. =head1 COPYRIGHT The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans Ekane@cpan.orgE. All rights reserved. This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =cut CPANPLUS-0.9162/lib/CPANPLUS/Backend/000755 001751 001751 00000000000 13036656051 017175 5ustar00bingosbingos000000 000000 CPANPLUS-0.9162/lib/CPANPLUS/Backend.pm000644 001751 001751 00000116621 13036655522 017544 0ustar00bingosbingos000000 000000 package CPANPLUS::Backend; use strict; use CPANPLUS::Error; use CPANPLUS::Configure; use CPANPLUS::Internals; use CPANPLUS::Internals::Constants; use CPANPLUS::Module; use CPANPLUS::Module::Author; use CPANPLUS::Backend::RV; use FileHandle; use File::Spec (); use File::Spec::Unix (); use File::Basename (); use Params::Check qw[check]; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; $Params::Check::VERBOSE = 1; use vars qw[@ISA $VERSION]; @ISA = qw[CPANPLUS::Internals]; $VERSION = "0.9162"; ### mark that we're running under CPANPLUS to spawned processes $ENV{'PERL5_CPANPLUS_IS_RUNNING'} = $$; ### XXX version.pm MAY format this version, if it's in use... :( ### so for consistency, just call ->VERSION ourselves as well. $ENV{'PERL5_CPANPLUS_IS_VERSION'} = __PACKAGE__->VERSION; =pod =head1 NAME CPANPLUS::Backend - programmer's interface to CPANPLUS =head1 SYNOPSIS my $cb = CPANPLUS::Backend->new; my $conf = $cb->configure_object; my $author = $cb->author_tree('KANE'); my $mod = $cb->module_tree('Some::Module'); my $mod = $cb->parse_module( module => 'Some::Module' ); my @objs = $cb->search( type => TYPE, allow => [...] ); $cb->flush('all'); $cb->reload_indices; $cb->local_mirror; =head1 DESCRIPTION This module provides the programmer's interface to the C libraries. =head1 ENVIRONMENT When C is loaded, which is necessary for just about every operation, the environment variable C is set to the current process id. Additionally, the environment variable C will be set to the version of C. This information might be useful somehow to spawned processes. =head1 METHODS =head2 $cb = CPANPLUS::Backend->new( [CONFIGURE_OBJ] ) This method returns a new C object. This also initialises the config corresponding to this object. You have two choices in this: =over 4 =item Provide a valid C object This will be used verbatim. =item No arguments Your default config will be loaded and used. =back New will return a C object on success and die on failure. =cut sub new { my $class = shift; my $conf; if( $_[0] && IS_CONFOBJ->( conf => $_[0] ) ) { $conf = shift; } else { $conf = CPANPLUS::Configure->new() or return; } my $self = $class->SUPER::_init( _conf => $conf ); return $self; } =pod =head2 $href = $cb->module_tree( [@modules_names_list] ) Returns a reference to the CPANPLUS module tree. If you give it any arguments, they will be treated as module names and C will try to look up these module names and return the corresponding module objects instead. See L for the operations you can perform on a module object. =cut sub module_tree { my $self = shift; my $modtree = $self->_module_tree; if( @_ ) { my @rv; for my $name ( grep { defined } @_) { ### From John Malmberg: This is failing on VMS ### because ODS-2 does not retain the case of ### filenames that are created. ### The problem is the filename is being converted ### to a module name and then looked up in the ### %$modtree hash. ### ### As a fix, we do a search on VMS instead -- ### more cpu cycles, but it gets around the case ### problem --kane my ($modobj) = do { ON_VMS ? $self->search( type => 'module', allow => [qr/^$name$/i], ) : $modtree->{$name} }; push @rv, $modobj || ''; } return @rv == 1 ? $rv[0] : @rv; } else { return $modtree; } } =pod =head2 $href = $cb->author_tree( [@author_names_list] ) Returns a reference to the CPANPLUS author tree. If you give it any arguments, they will be treated as author names and C will try to look up these author names and return the corresponding author objects instead. See L for the operations you can perform on an author object. =cut sub author_tree { my $self = shift; my $authtree = $self->_author_tree; if( @_ ) { my @rv; for my $name (@_) { push @rv, $authtree->{$name} || ''; } return @rv == 1 ? $rv[0] : @rv; } else { return $authtree; } } =pod =head2 $conf = $cb->configure_object; Returns a copy of the C object. See L for operations you can perform on a configure object. =cut sub configure_object { return shift->_conf() }; =head2 $su = $cb->selfupdate_object; Returns a copy of the C object. See the L manpage for the operations you can perform on the selfupdate object. =cut sub selfupdate_object { return shift->_selfupdate() }; =pod =head2 @mods = $cb->search( type => TYPE, allow => AREF, [data => AREF, verbose => BOOL] ) C enables you to search for either module or author objects, based on their data. The C you can specify is any of the accessors specified in C or C. C will determine by the C you specified whether to search by author object or module object. You have to specify an array reference of regular expressions or strings to match against. The rules used for this array ref are the same as in C, so read that manpage for details. The search is an C search, meaning that if C of the criteria match, the search is considered to be successful. You can specify the result of a previous search as C to limit the new search to these module or author objects, rather than the entire module or author tree. This is how you do C searches. Returns a list of module or author objects on success and false on failure. See L for the operations you can perform on a module object. See L for the operations you can perform on an author object. =cut sub search { my $self = shift; my $conf = $self->configure_object; my %hash = @_; my ($type); my $args = do { local $Params::Check::NO_DUPLICATES = 0; local $Params::Check::ALLOW_UNKNOWN = 1; my $tmpl = { type => { required => 1, allow => [CPANPLUS::Module->accessors(), CPANPLUS::Module::Author->accessors()], store => \$type }, allow => { required => 1, default => [ ], strict_type => 1 }, }; check( $tmpl, \%hash ) } or return; ### figure out whether it was an author or a module search ### when ambiguous, it'll be an author search. my $aref; if( grep { $type eq $_ } CPANPLUS::Module::Author->accessors() ) { $aref = $self->_search_author_tree( %$args ); } else { $aref = $self->_search_module_tree( %$args ); } return @$aref if $aref; return; } =pod =head2 $backend_rv = $cb->fetch( modules => \@mods ) Fetches a list of modules. C<@mods> can be a list of distribution names, module names or module objects--basically anything that L can understand. See the equivalent method in C for details on other options you can pass. Since this is a multi-module method call, the return value is implemented as a C object. Please consult that module's documentation on how to interpret the return value. =head2 $backend_rv = $cb->extract( modules => \@mods ) Extracts a list of modules. C<@mods> can be a list of distribution names, module names or module objects--basically anything that L can understand. See the equivalent method in C for details on other options you can pass. Since this is a multi-module method call, the return value is implemented as a C object. Please consult that module's documentation on how to interpret the return value. =head2 $backend_rv = $cb->install( modules => \@mods ) Installs a list of modules. C<@mods> can be a list of distribution names, module names or module objects--basically anything that L can understand. See the equivalent method in C for details on other options you can pass. Since this is a multi-module method call, the return value is implemented as a C object. Please consult that module's documentation on how to interpret the return value. =head2 $backend_rv = $cb->readme( modules => \@mods ) Fetches the readme for a list of modules. C<@mods> can be a list of distribution names, module names or module objects--basically anything that L can understand. See the equivalent method in C for details on other options you can pass. Since this is a multi-module method call, the return value is implemented as a C object. Please consult that module's documentation on how to interpret the return value. =head2 $backend_rv = $cb->files( modules => \@mods ) Returns a list of files used by these modules if they are installed. C<@mods> can be a list of distribution names, module names or module objects--basically anything that L can understand. See the equivalent method in C for details on other options you can pass. Since this is a multi-module method call, the return value is implemented as a C object. Please consult that module's documentation on how to interpret the return value. =head2 $backend_rv = $cb->distributions( modules => \@mods ) Returns a list of module objects representing all releases for this module on success. C<@mods> can be a list of distribution names, module names or module objects, basically anything that L can understand. See the equivalent method in C for details on other options you can pass. Since this is a multi-module method call, the return value is implemented as a C object. Please consult that module's documentation on how to interpret the return value. =cut ### XXX add directory_tree, packlist etc? or maybe remove files? ### for my $func (qw[fetch extract install readme files distributions]) { no strict 'refs'; *$func = sub { my $self = shift; my $conf = $self->configure_object; my %hash = @_; my ($mods); my $args = do { local $Params::Check::NO_DUPLICATES = 1; local $Params::Check::ALLOW_UNKNOWN = 1; my $tmpl = { modules => { default => [], strict_type => 1, required => 1, store => \$mods }, }; check( $tmpl, \%hash ); } or return; ### make them all into module objects ### my %mods = map { $_ => $self->parse_module(module => $_) || '' } @$mods; my $flag; my $href; while( my($name,$obj) = each %mods ) { $href->{$name} = IS_MODOBJ->( mod => $obj ) ? $obj->$func( %$args ) : undef; $flag++ unless $href->{$name}; } return CPANPLUS::Backend::RV->new( function => $func, ok => ( !$flag ? 1 : 0 ), rv => $href, args => \%hash, ); } } =pod =head2 $mod_obj = $cb->parse_module( module => $modname|$distname|$modobj|URI|PATH ) C tries to find a C object that matches your query. Here's a list of examples you could give to C; =over 4 =item Text::Bastardize =item Text-Bastardize =item Text/Bastardize.pm =item Text-Bastardize-1.06 =item AYRNIEU/Text-Bastardize =item AYRNIEU/Text-Bastardize-1.06 =item AYRNIEU/Text-Bastardize-1.06.tar.gz =item http://example.com/Text-Bastardize-1.06.tar.gz =item file:///tmp/Text-Bastardize-1.06.tar.gz =item /tmp/Text-Bastardize-1.06 =item ./Text-Bastardize-1.06 =item . =back These items would all come up with a C object for C. The ones marked explicitly as being version 1.06 would give back a C object of that version. Even if the version on CPAN is currently higher. The last three are examples of PATH resolution. In the first, we supply an absolute path to the unwrapped distribution. In the second the distribution is relative to the current working directory. In the third, we will use the current working directory. If C is unable to actually find the module you are looking for in its module tree, but you supplied it with an author, module and version part in a distribution name or URI, it will create a fake C object for you, that you can use just like the real thing. See L for the operations you can perform on a module object. If even this fancy guessing doesn't enable C to create a fake module object for you to use, it will warn about an error and return false. =cut sub parse_module { my $self = shift; my $conf = $self->configure_object; my %hash = @_; my $mod; my $tmpl = { module => { required => 1, store => \$mod }, }; my $args = check( $tmpl, \%hash ) or return; return $mod if IS_MODOBJ->( module => $mod ); ### ok, so it's not a module object, but a ref nonetheless? ### what are you smoking? if( ref $mod ) { error(loc("Can not parse module string from reference '%1'", $mod )); return; } ### check only for allowed characters in a module name unless( $mod =~ /[^\w:]/ ) { ### perhaps we can find it in the module tree? my $maybe = $self->module_tree($mod); return $maybe if IS_MODOBJ->( module => $maybe ); } ### Special case arbitrary file paths such as '.' etc. if ( $mod and -d File::Spec->rel2abs($mod) ) { my $dir = File::Spec->rel2abs($mod); my $parent = File::Spec->rel2abs( File::Spec->catdir( $dir, '..' ) ); ### fix paths on VMS if (ON_VMS) { $dir = VMS::Filespec::unixify($dir); $parent = VMS::Filespec::unixify($parent); } my $dist = $mod = File::Basename::basename($dir); $dist .= '-0' unless $dist =~ /\-[0-9._]+$/; $dist .= '.tar.gz' unless $dist =~ /\.[A-Za-z]+$/; my $modobj = CPANPLUS::Module::Fake->new( module => $mod, version => 0, package => $dist, path => $parent, author => CPANPLUS::Module::Author::Fake->new ); ### better guess for the version $modobj->version( $modobj->package_version ) if defined $modobj->package_version; ### better guess at module name, if possible if ( my $pkgname = $modobj->package_name ) { $pkgname =~ s/-/::/g; ### no sense replacing it unless we changed something $modobj->module( $pkgname ) if ($pkgname ne $modobj->package_name) || $pkgname !~ /-/; } $modobj->status->fetch( $parent ); $modobj->status->extract( $dir ); $modobj->get_installer_type; return $modobj; } ### ok, so it looks like a distribution then? my @parts = split '/', $mod; my $dist = pop @parts; ### ah, it's a URL if( $mod =~ m|\w+://.+| ) { my $modobj = CPANPLUS::Module::Fake->new( module => $dist, version => 0, package => $dist, path => File::Spec::Unix->catdir( $conf->_get_mirror('base'), UNKNOWN_DL_LOCATION ), author => CPANPLUS::Module::Author::Fake->new ); ### set the fetch_from accessor so we know to by pass the ### usual mirrors $modobj->status->_fetch_from( $mod ); ### better guess for the version $modobj->version( $modobj->package_version ) if defined $modobj->package_version; ### better guess at module name, if possible if ( my $pkgname = $modobj->package_name ) { $pkgname =~ s/-/::/g; ### no sense replacing it unless we changed something $modobj->module( $pkgname ) if ($pkgname ne $modobj->package_name) || $pkgname !~ /-/; } return $modobj; } # Stolen from cpanminus to support 'Module/Install.pm' # type input if ( ( my $tmpmod = $mod ) =~ s/\.pm$//i ) { my ($volume, $dirs, $file) = File::Spec->splitpath( $tmpmod ); $tmpmod = join '::', grep { $_ } File::Spec->splitdir( $dirs ), $file; ### perhaps we can find it in the module tree? my $maybe = $self->module_tree( $tmpmod ); return $maybe if IS_MODOBJ->( module => $maybe ); } ### perhaps we can find it's a third party module? { my $modobj = CPANPLUS::Module::Fake->new( module => $mod, version => 0, package => $dist, path => File::Spec::Unix->catdir( $conf->_get_mirror('base'), UNKNOWN_DL_LOCATION ), author => CPANPLUS::Module::Author::Fake->new ); if( $modobj->is_third_party ) { my $info = $modobj->third_party_information; $modobj->author->author( $info->{author} ); $modobj->author->email( $info->{author_url} ); $modobj->description( $info->{url} ); return $modobj; } } unless( $dist ) { error( loc("%1 is not a proper distribution name!", $mod) ); return; } ### there's wonky uris out there, like this: ### E/EY/EYCK/Net/Lite/Net-Lite-FTP-0.091 ### compensate for that my $author; ### you probably have an A/AB/ABC/....../Dist.tgz type uri if( (defined $parts[0] and length $parts[0] == 1) and (defined $parts[1] and length $parts[1] == 2) and $parts[2] =~ /^$parts[0]/i and $parts[2] =~ /^$parts[1]/i ) { splice @parts, 0, 2; # remove the first 2 entries from the list $author = shift @parts; # this is the actual author name then ### we''ll assume a ABC/..../Dist.tgz } else { $author = shift @parts || ''; } my($pkg, $version, $ext, $full) = $self->_split_package_string( package => $dist ); ### translate a distribution into a module name ### my $guess = $pkg; $guess =~ s/-/::/g if $guess; my $maybe = $self->module_tree( $guess ); if( IS_MODOBJ->( module => $maybe ) ) { ### maybe you asked for a package instead if ( $maybe->package eq $mod ) { return $maybe; ### perhaps an outdated version instead? } elsif ( $version ) { my $auth_obj; my $path; ### did you give us an author part? ### if( $author ) { $auth_obj = CPANPLUS::Module::Author::Fake->new( _id => $maybe->_id, cpanid => uc $author, author => uc $author, ); $path = File::Spec::Unix->catdir( $conf->_get_mirror('base'), substr(uc $author, 0, 1), substr(uc $author, 0, 2), uc $author, @parts, #possible sub dirs ); } else { $auth_obj = $maybe->author; $path = $maybe->path; } if( $maybe->package_name eq $pkg ) { my $modobj = CPANPLUS::Module::Fake->new( module => $maybe->module, version => $version, ### no extension? use the extension the original package ### had instead package => do { $ext ? $full : $full .'.'. $maybe->package_extension }, path => $path, author => $auth_obj, _id => $maybe->_id ); return $modobj; ### you asked for a specific version? ### assume our $maybe is the one you wanted, ### and fix up the version.. } else { my $modobj = $maybe->clone; $modobj->version( $version ); $modobj->package( $maybe->package_name .'-'. $version .'.'. $maybe->package_extension ); ### you wanted a specific author, but it's not the one ### from the module tree? we'll fix it up if( $author and $author ne $modobj->author->cpanid ) { $modobj->author( $auth_obj ); $modobj->path( $path ); } return $modobj; } ### you didn't care about a version, so just return the object then } elsif ( !$version ) { return $maybe; } ### ok, so we can't find it, and it's not an outdated dist either ### perhaps we can fake one based on the author name and so on } elsif ( $author and $version ) { ### be extra friendly and pad the .tar.gz suffix where needed ### it's just a guess of course, but most dists are .tar.gz $dist .= '.tar.gz' unless $dist =~ /\.[A-Za-z]+$/; ### XXX duplication from above for generating author obj + path... my $modobj = CPANPLUS::Module::Fake->new( module => $guess, version => $version, package => $dist, author => CPANPLUS::Module::Author::Fake->new( author => uc $author, cpanid => uc $author, _id => $self->_id, ), path => File::Spec::Unix->catdir( $conf->_get_mirror('base'), substr(uc $author, 0, 1), substr(uc $author, 0, 2), uc $author, @parts, #possible subdirs ), _id => $self->_id, ); return $modobj; ### face it, we have /no/ idea what he or she wants... ### let's start putting the blame somewhere } else { # Lets not give up too easily. There is one last chance # http://perlmonks.org/?node_id=805957 # This should catch edge-cases where the package name # is unrelated to the modules it contains. my ($modobj) = grep { $_->package_name eq $mod } $self->search( type => 'package', allow => [ qr/^\Q$mod\E/ ], ); return $modobj if IS_MODOBJ->( module => $modobj ); unless( $author ) { error( loc( "'%1' does not contain an author part", $mod ) ); } error( loc( "Cannot find '%1' in the module tree", $mod ) ); } return; } =pod =head2 $bool = $cb->reload_indices( [update_source => BOOL, verbose => BOOL] ); This method reloads the source files. If C is set to true, this will fetch new source files from your CPAN mirror. Otherwise, C will do its usual cache checking and only update them if they are out of date. By default, C will be false. The verbose setting defaults to what you have specified in your config file. Returns true on success and false on failure. =cut sub reload_indices { my $self = shift; my %hash = @_; my $conf = $self->configure_object; my $tmpl = { update_source => { default => 0, allow => [qr/^\d$/] }, verbose => { default => $conf->get_conf('verbose') }, }; my $args = check( $tmpl, \%hash ) or return; ### make a call to the internal _module_tree, so it triggers cache ### file age my $uptodate = $self->_check_trees( %$args ); return 1 if $self->_build_trees( uptodate => $uptodate, use_stored => 0, verbose => $conf->get_conf('verbose'), ); error( loc( "Error rebuilding source trees!" ) ); return; } =pod =head2 $bool = $cb->flush(CACHE_NAME) This method allows flushing of caches. There are several things which can be flushed: =over 4 =item * C The return status of methods which have been attempted, such as different ways of fetching files. It is recommended that automatic flushing be used instead. =item * C The return status of URIs which have been attempted, such as different hosts of fetching files. It is recommended that automatic flushing be used instead. =item * C Information about modules such as prerequisites and whether installation succeeded, failed, or was not attempted. =item * C This resets PERL5LIB, which is changed to ensure that while installing modules they are in our @INC. =item * C This resets the cache of modules we've attempted to load, but failed. This enables you to load them again after a failed load, if they somehow have become available. =item * C Flush all of the aforementioned caches. =back Returns true on success and false on failure. =cut sub flush { my $self = shift; my $type = shift or return; my $cache = { methods => [ qw( methods load ) ], hosts => [ qw( hosts ) ], modules => [ qw( modules lib) ], lib => [ qw( lib ) ], load => [ qw( load ) ], all => [ qw( hosts lib modules methods load ) ], }; my $aref = $cache->{$type} or ( error( loc("No such cache '%1'", $type) ), return ); return $self->_flush( list => $aref ); } =pod =head2 @mods = $cb->installed() Returns a list of module objects of all your installed modules. If an error occurs, it will return false. See L for the operations you can perform on a module object. =cut sub installed { my $self = shift; my $aref = $self->_all_installed; return @$aref if $aref; return; } =pod =head2 $bool = $cb->local_mirror([path => '/dir/to/save/to', index_files => BOOL, force => BOOL, verbose => BOOL] ) Creates a local mirror of CPAN, of only the most recent sources in a location you specify. If you set this location equal to a custom host in your C you can use your local mirror to install from. It takes the following arguments: =over 4 =item path The location where to create the local mirror. =item index_files Enable/disable fetching of index files. You can disable fetching of the index files if you don't plan to use the local mirror as your primary site, or if you'd like up-to-date index files be fetched from elsewhere. Defaults to true. =item force Forces refetching of packages, even if they are there already. Defaults to whatever setting you have in your C. =item verbose Prints more messages about what its doing. Defaults to whatever setting you have in your C. =back Returns true on success and false on error. =cut sub local_mirror { my $self = shift; my $conf = $self->configure_object; my %hash = @_; my($path, $index, $force, $verbose); my $tmpl = { path => { default => $conf->get_conf('base'), store => \$path }, index_files => { default => 1, store => \$index }, force => { default => $conf->get_conf('force'), store => \$force }, verbose => { default => $conf->get_conf('verbose'), store => \$verbose }, }; check( $tmpl, \%hash ) or return; unless( -d $path ) { $self->_mkdir( dir => $path ) or( error( loc( "Could not create '%1', giving up", $path ) ), return ); } elsif ( ! -w _ ) { error( loc( "Could not write to '%1', giving up", $path ) ); return; } my $flag; AUTHOR: { for my $auth ( sort { $a->cpanid cmp $b->cpanid } values %{$self->author_tree} ) { MODULE: { my $i; for my $mod ( $auth->modules ) { my $fetchdir = File::Spec->catdir( $path, $mod->path ); my %opts = ( verbose => $verbose, force => $force, fetchdir => $fetchdir, ); ### only do this the for the first module ### unless( $i++ ) { $mod->_get_checksums_file( %opts ) or ( error( loc( "Could not fetch %1 file, " . "skipping author '%2'", CHECKSUMS, $auth->cpanid ) ), $flag++, next AUTHOR ); } $mod->fetch( %opts ) or( error( loc( "Could not fetch '%1'", $mod->module ) ), $flag++, next MODULE ); } } } } if( $index ) { for my $name (qw[auth dslip mod]) { $self->_update_source( name => $name, verbose => $verbose, path => $path, ) or ( $flag++, next ); } } return !$flag; } =pod =head2 $file = $cb->autobundle([path => OUTPUT_PATH, force => BOOL, verbose => BOOL]) Writes out a snapshot of your current installation in C bundle style. This can then be used to install the same modules for a different or on a different machine by issuing the following commands: ### using the default shell: CPAN Terminal> i file://path/to/Snapshot_XXYY.pm ### using the API $modobj = $cb->parse_module( module => 'file://path/to/Snapshot_XXYY.pm' ); $modobj->install; It will, by default, write to an 'autobundle' directory under your cpanplus home directory, but you can override that by supplying a C argument. It will return the location of the output file on success and false on failure. =cut sub autobundle { my $self = shift; my $conf = $self->configure_object; my %hash = @_; my($path,$force,$verbose); my $tmpl = { force => { default => $conf->get_conf('force'), store => \$force }, verbose => { default => $conf->get_conf('verbose'), store => \$verbose }, path => { default => File::Spec->catdir( $conf->get_conf('base'), $self->_perl_version( perl => $^X ), $conf->_get_build('distdir'), $conf->_get_build('autobundle') ), store => \$path }, }; check($tmpl, \%hash) or return; unless( -d $path ) { $self->_mkdir( dir => $path ) or( error(loc("Could not create directory '%1'", $path ) ), return ); } my $name; my $file; { ### default filename for the bundle ### my($year,$month,$day) = (localtime)[5,4,3]; $year += 1900; $month++; my $ext = 0; my $prefix = $conf->_get_build('autobundle_prefix'); my $format = "${prefix}_%04d_%02d_%02d_%02d"; BLOCK: { $name = sprintf( $format, $year, $month, $day, $ext); $file = File::Spec->catfile( $path, $name . '.pm' ); -f $file ? ++$ext && redo BLOCK : last BLOCK; } } my $fh; unless( $fh = FileHandle->new( ">$file" ) ) { error( loc( "Could not open '%1' for writing: %2", $file, $! ) ); return; } ### make sure we load the module tree *before* doing this, as it ### starts to chdir all over the place $self->module_tree; my $string = join "\n\n", map { join ' ', $_->module, ($_->installed_version(verbose => 0) || 'undef') } sort { $a->module cmp $b->module } $self->installed; my $now = scalar localtime; my $head = '=head1'; my $pkg = __PACKAGE__; my $version = $self->VERSION; my $perl_v = join '', `$^X -V`; print $fh <save_state Explicit command to save memory state to disk. This can be used to save information to disk about where a module was extracted, the result of C, etc. This will then be re-loaded into memory when a new session starts. The capability of saving state to disk depends on the source engine being used (See C for the option to choose your source engine). The default storage engine supports this option. Most users will not need this command, but it can handy for automated systems like setting up CPAN smoke testers. The method will return true if it managed to save the state to disk, or false if it did not. =cut sub save_state { my $self = shift; return $self->_save_state( @_ ); } ### XXX these wrappers are not individually tested! only the underlying ### code through source.t and indirectly through he CustomSource plugin. =pod =head1 CUSTOM MODULE SOURCES Besides the sources as provided by the general C mirrors, it's possible to add your own sources list to your C index. The methodology behind this works much like C. The methods below show you how to make use of this functionality. Also note that most of these methods are available through the default shell plugin command C, making them available as shortcuts through the shell and via the command line. =head2 %files = $cb->list_custom_sources Returns a mapping of registered custom sources and their local indices as follows: /full/path/to/local/index => http://remote/source Note that any file starting with an C<#> is being ignored. =cut sub list_custom_sources { return shift->__list_custom_module_sources( @_ ); } =head2 $local_index = $cb->add_custom_source( uri => URI, [verbose => BOOL] ); Adds an C to your own sources list and mirrors its index. See the documentation on C<< $cb->update_custom_source >> on how this is done. Returns the full path to the local index on success, or false on failure. Note that when adding a new C, the change to the in-memory tree is not saved until you rebuild or save the tree to disk again. You can do this using the C<< $cb->reload_indices >> method. =cut sub add_custom_source { return shift->_add_custom_module_source( @_ ); } =head2 $local_index = $cb->remove_custom_source( uri => URI, [verbose => BOOL] ); Removes an C from your own sources list and removes its index. To find out what Cs you have as part of your own sources list, use the C<< $cb->list_custom_sources >> method. Returns the full path to the deleted local index file on success, or false on failure. =cut ### XXX do clever dispatching based on arg number? sub remove_custom_source { return shift->_remove_custom_module_source( @_ ); } =head2 $bool = $cb->update_custom_source( [remote => URI] ); Updates the indexes for all your custom sources. It does this by fetching a file called C in the root of the custom sources' C. If you provide the C argument, it will only update the index for that specific C. Here's an example of how custom sources would resolve into index files: file:///path/to/sources => file:///path/to/sources/packages.txt http://example.com/sources => http://example.com/sources/packages.txt ftp://example.com/sources => ftp://example.com/sources/packages.txt The file C simply holds a list of packages that can be found under the root of the C. This file can be automatically generated for you when the remote source is a C. For C, C, and similar, the administrator of that repository should run the method C<< $cb->write_custom_source_index >> on the repository to allow remote users to index it. For details, see the C<< $cb->write_custom_source_index >> method below. All packages that are added via this mechanism will be attributed to the author with C C. You can use this id to search for all added packages. =cut sub update_custom_source { my $self = shift; ### if it mentions /remote/, the request is to update a single uri, ### not all the ones we have, so dispatch appropriately my $rv = grep( /remote/i, @_) ? $self->__update_custom_module_source( @_ ) : $self->__update_custom_module_sources( @_ ); return $rv; } =head2 $file = $cb->write_custom_source_index( path => /path/to/package/root, [to => /path/to/index/file, verbose => BOOL] ); Writes the index for a custom repository root. Most users will not have to worry about this, but administrators of a repository will need to make sure their indexes are up to date. The index will be written to a file called C in your repository root, which you can specify with the C argument. You can override this location by specifying the C argument, but in normal operation, that should not be required. Once the index file is written, users can then add the C pointing to the repository to their custom list of sources and start using it right away. See the C<< $cb->add_custom_source >> method for user details. =cut sub write_custom_source_index { return shift->__write_custom_module_index( @_ ); } 1; =pod =head1 BUG REPORTS Please report bugs or other issues to Ebug-cpanplus@rt.cpan.org. =head1 AUTHOR This module by Jos Boumans Ekane@cpan.orgE. =head1 COPYRIGHT The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans Ekane@cpan.orgE. All rights reserved. This library is free software; you may redistribute and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L, L, L =cut # Local variables: # c-indentation-style: bsd # c-basic-offset: 4 # indent-tabs-mode: nil # End: # vim: expandtab shiftwidth=4: __END__ todo: sub dist { # not sure about this one -- probably already done enough in Module.pm sub reports { # in Module.pm, wrapper here CPANPLUS-0.9162/lib/CPANPLUS/Module.pm000644 001751 001751 00000153147 13036655522 017446 0ustar00bingosbingos000000 000000 package CPANPLUS::Module; use strict; use vars qw[@ISA $VERSION]; $VERSION = "0.9162"; use CPANPLUS::Dist; use CPANPLUS::Error; use CPANPLUS::Module::Signature; use CPANPLUS::Module::Checksums; use CPANPLUS::Internals::Constants; use FileHandle; use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; use IPC::Cmd qw[can_run run]; use File::Find qw[find]; use Params::Check qw[check]; use File::Basename qw[dirname]; use Module::Load::Conditional qw[can_load check_install]; $Params::Check::VERBOSE = 1; @ISA = qw[ CPANPLUS::Module::Signature CPANPLUS::Module::Checksums]; =pod =head1 NAME CPANPLUS::Module - CPAN module objects for CPANPLUS =head1 SYNOPSIS ### get a module object from the CPANPLUS::Backend object my $mod = $cb->module_tree('Some::Module'); ### accessors $mod->version; $mod->package; ### methods $mod->fetch; $mod->extract; $mod->install; =head1 DESCRIPTION C creates objects from the information in the source files. These can then be used to query and perform actions on, like fetching or installing. These objects should only be created internally. For C objects, there's the C class. To obtain a module object consult the C documentation. =cut my $tmpl = { module => { default => '', required => 1 }, # full module name version => { default => '0.0' }, # version number path => { default => '', required => 1 }, # extended path on the # cpan mirror, like # /author/id/K/KA/KANE comment => { default => ''}, # comment on module package => { default => '', required => 1 }, # package name, like # 'bar-baz-1.03.tgz' description => { default => '' }, # description of the # module dslip => { default => EMPTY_DSLIP }, # dslip information _id => { required => 1 }, # id of the Internals # parent object _status => { no_override => 1 }, # stores status object author => { default => '', required => 1, allow => IS_AUTHOBJ }, # module author mtime => { default => '' }, }; ### some of these will be resolved by wrapper functions that ### do Clever Things to find the actual value, so don't create ### an autogenerated sub for that just here, take an alternate ### name to allow for a wrapper { my %rename = ( dslip => '_dslip' ); ### autogenerate accessors ### for my $key ( keys %$tmpl ) { no strict 'refs'; my $sub = $rename{$key} || $key; *{__PACKAGE__."::$sub"} = sub { $_[0]->{$key} = $_[1] if @_ > 1; return $_[0]->{$key}; } } } =pod =head1 CLASS METHODS =head2 accessors () Returns a list of all accessor methods to the object =cut ### *name is an alias, include it explicitly sub accessors { return ('name', keys %$tmpl) }; =head1 ACCESSORS An objects of this class has the following accessors: =over 4 =item name Name of the module. =item module Name of the module. =item version Version of the module. Defaults to '0.0' if none was provided. =item path Extended path on the mirror. =item comment Any comment about the module -- largely unused. =item package The name of the package. =item description Description of the module -- only registered modules have this. =item dslip The five character dslip string, that represents meta-data of the module -- again, only registered modules have this. =cut sub dslip { my $self = shift; ### if this module has relevant dslip info, return it return $self->_dslip if $self->_dslip ne EMPTY_DSLIP; ### if not, look at other modules in the same package, ### see if *they* have any dslip info for my $mod ( $self->contains ) { return $mod->_dslip if $mod->_dslip ne EMPTY_DSLIP; } ### ok, really no dslip info found, return the default return EMPTY_DSLIP; } =pod =item status The C object associated with this object. (see below). =item author The C object associated with this object. =item parent The C object that spawned this module object. =back =cut ### Alias ->name to ->module, for human beings. *name = *module; sub parent { my $self = shift; my $obj = CPANPLUS::Internals->_retrieve_id( $self->_id ); return $obj; } =head1 STATUS ACCESSORS C caches a lot of results from method calls and saves data it collected along the road for later reuse. C uses this internally, but it is also available for the end user. You can get a status object by calling: $modobj->status You can then query the object as follows: =over 4 =item installer_type The installer type used for this distribution. Will be one of 'makemaker' or 'build'. This determines whether C or C will be used to build this distribution. =item dist_cpan The dist object used to do the CPAN-side of the installation. Either a C or C object. =item dist The custom dist object used to do the operating specific side of the installation, if you've chosen to use this. For example, if you've chosen to install using the C format, this may be a C object. Undefined if you didn't specify a separate format to install through. =item prereqs | requires A hashref of prereqs this distribution was found to have. Will look something like this: { Carp => 0.01, strict => 0 } Might be undefined if the distribution didn't have any prerequisites. =item configure_requires Like prereqs, but these are necessary to be installed before the build process can even begin. =item signature Flag indicating, if a signature check was done, whether it was OK or not. =item extract The directory this distribution was extracted to. =item fetch The location this distribution was fetched to. =item readme The text of this distributions README file. =item uninstall Flag indicating if an uninstall call was done successfully. =item created Flag indicating if the C call to your dist object was done successfully. =item installed Flag indicating if the C call to your dist object was done successfully. =item checksums The location of this distributions CHECKSUMS file. =item checksum_ok Flag indicating if the checksums check was done successfully. =item checksum_value The checksum value this distribution is expected to have =back =head1 METHODS =head2 $self = CPANPLUS::Module->new( OPTIONS ) This method returns a C object. Normal users should never call this method directly, but instead use the C to obtain module objects. This example illustrates a C call with all required arguments: CPANPLUS::Module->new( module => 'Foo', path => 'authors/id/A/AA/AAA', package => 'Foo-1.0.tgz', author => $author_object, _id => INTERNALS_OBJECT_ID, ); Every accessor is also a valid option to pass to C. Returns a module object on success and false on failure. =cut sub new { my($class, %hash) = @_; ### don't check the template for sanity ### -- we know it's good and saves a lot of performance local $Params::Check::SANITY_CHECK_TEMPLATE = 0; my $object = check( $tmpl, \%hash ) or return; bless $object, $class; return $object; } ### only create status objects when they're actually asked for sub status { my $self = shift; return $self->_status if $self->_status; my $acc = Object::Accessor->new; $acc->mk_accessors( qw[ installer_type dist_cpan dist prereqs signature extract fetch readme uninstall created installed prepared checksums files checksum_ok checksum_value _fetch_from configure_requires ] ); ### create an alias from 'requires' to 'prereqs', so it's more in ### line with 'configure_requires'; $acc->mk_aliases( requires => 'prereqs' ); $self->_status( $acc ); return $self->_status; } ### flush the cache of this object ### sub _flush { my $self = shift; $self->status->mk_flush; return 1; } =head2 $mod->package_name( [$package_string] ) Returns the name of the package a module is in. For C that might be C. =head2 $mod->package_version( [$package_string] ) Returns the version of the package a module is in. For a module in the package C this would be C<1.1>. =head2 $mod->package_extension( [$package_string] ) Returns the suffix added by the compression method of a package a certain module is in. For a module in C, this would be C. =head2 $mod->package_is_perl_core Returns a boolean indicating of the package a particular module is in, is actually a core perl distribution. =head2 $mod->module_is_supplied_with_perl_core( [version => $]] ) Returns a boolean indicating whether C of this module was supplied with the current running perl's core package. =head2 $mod->is_bundle Returns a boolean indicating if the module you are looking at, is actually a bundle. Bundles are identified as modules whose name starts with C. =head2 $mod->is_autobundle; Returns a boolean indicating if the module you are looking at, is actually an autobundle as generated by C<< $cb->autobundle >>. =head2 $mod->is_third_party Returns a boolean indicating whether the package is a known third-party module (i.e. it's not provided by the standard Perl distribution and is not available on the CPAN, but on a third party software provider). See L for more details. =head2 $mod->third_party_information Returns a reference to a hash with more information about a third-party module. See the documentation about C in L for more details. =cut { ### fetches the test reports for a certain module ### my %map = ( name => 0, version => 1, extension => 2, ); while ( my($type, $index) = each %map ) { my $name = 'package_' . $type; no strict 'refs'; *$name = sub { my $self = shift; my $val = shift || $self->package; my @res = $self->parent->_split_package_string( package => $val ); ### return the corresponding index from the result return $res[$index] if @res; return; }; } sub package_is_perl_core { my $self = shift; my $cb = $self->parent; ### check if the package looks like a perl core package return 1 if $self->package_name eq PERL_CORE; ### address #44562: ::Module->package_is_perl_code : problem comparing ### version strings -- use $cb->_vcmp to avoid warnings when version ### have _ in them my $core = $self->module_is_supplied_with_perl_core; ### ok, so it's found in the core, BUT it could be dual-lifed if (defined $core) { ### if the package is newer than installed, then it's dual-lifed return if $cb->_vcmp($self->version, $self->installed_version) > 0; ### if the package is newer or equal to the corelist, ### then it's dual-lifed return if $cb->_vcmp( $self->version, $core ) >= 0; ### otherwise, it's older than corelist, thus unsuitable. return 1; } ### not in corelist, not a perl core package. return; } sub module_is_supplied_with_perl_core { my $self = shift; my $ver = shift || $]; ### allow it to be called as a package function as well like: ### CPANPLUS::Module::module_is_supplied_with_perl_core('Config') ### so that we can check the status of modules that aren't released ### to CPAN, but are part of the core. my $name = ref $self ? $self->module : $self; ### check Module::CoreList to see if it's a core package require Module::CoreList; ### Address #41157: Module::module_is_supplied_with_perl_core() ### broken for perl 5.10: Module::CoreList's version key for the ### hash has a different number of trailing zero than $] aka ### $PERL_VERSION. my $core; if ( exists $Module::CoreList::version{ 0+$ver }->{ $name } ) { $core = $Module::CoreList::version{ 0+$ver }->{ $name }; $core = 0 unless $core; } return $core; } ### make sure Bundle-Foo also gets flagged as bundle sub is_bundle { my $self = shift; ### cpan'd bundle return 1 if $self->module =~ /^bundle(?:-|::)/i; ### autobundle return 1 if $self->is_autobundle; ### neither return; } ### full path to a generated autobundle sub is_autobundle { my $self = shift; my $conf = $self->parent->configure_object; my $prefix = $conf->_get_build('autobundle_prefix'); return 1 if $self->module eq $prefix; return; } sub is_third_party { my $self = shift; return unless can_load( modules => { 'Module::ThirdParty' => 0 } ); return Module::ThirdParty::is_3rd_party( $self->name ); } sub third_party_information { my $self = shift; return unless $self->is_third_party; return Module::ThirdParty::module_information( $self->name ); } } =pod =head2 $clone = $self->clone Clones the current module object for tinkering with. It will have a clean C object, as well as a fake C object. =cut { ### accessors don't change during run time, so only compute once my @acc = grep !/status/, __PACKAGE__->accessors(); sub clone { my $self = shift; ### clone the object ### my %data = map { $_ => $self->$_ } @acc; my $obj = CPANPLUS::Module::Fake->new( %data ); return $obj; } } =pod =head2 $where = $self->fetch Fetches the module from a CPAN mirror. Look at L for details on the options you can pass. =cut sub fetch { my $self = shift; my $cb = $self->parent; ### custom args my %args = ( module => $self ); ### if a custom fetch location got specified before, add that here $args{fetch_from} = $self->status->_fetch_from if $self->status->_fetch_from; my $where = $cb->_fetch( @_, %args ) or return; ### do an md5 check ### if( !$self->status->_fetch_from and $cb->configure_object->get_conf('md5') and $self->package ne CHECKSUMS ) { unless( $self->_validate_checksum ) { error( loc( "Checksum error for '%1' -- will not trust package", $self->package) ); return; } } return $where; } =pod =head2 $path = $self->extract Extracts the fetched module. Look at L for details on the options you can pass. =cut sub extract { my $self = shift; my $cb = $self->parent; unless( $self->status->fetch ) { error( loc( "You have not fetched '%1' yet -- cannot extract", $self->module) ); return; } ### can't extract these, so just use the basedir for the file if( $self->is_autobundle ) { ### this is expected to be set after an extract call $self->get_installer_type; return $self->status->extract( dirname( $self->status->fetch ) ); } return $cb->_extract( @_, module => $self ); } =head2 $type = $self->get_installer_type([prefer_makefile => BOOL]) Gets the installer type for this module. This may either be C or C. If C is unavailable or no installer type is available, it will fall back to C. If both are available, it will pick the one indicated by your config, or by the C option you can pass to this function. Returns the installer type on success, and false on error. =cut sub get_installer_type { my $self = shift; my $cb = $self->parent; my $conf = $cb->configure_object; my %hash = @_; my ($prefer_makefile,$verbose); my $tmpl = { prefer_makefile => { default => $conf->get_conf('prefer_makefile'), store => \$prefer_makefile, allow => BOOLEANS }, verbose => { default => $conf->get_conf('verbose'), store => \$verbose }, }; check( $tmpl, \%hash ) or return; my $type; ### autobundles use their own installer, so return that if( $self->is_autobundle ) { $type = INSTALLER_AUTOBUNDLE; } else { my $extract = $self->status->extract(); unless( $extract ) { error(loc( "Cannot determine installer type of unextracted module '%1'", $self->module )); return; } ### check if it's a makemaker or a module::build type dist ### my $found_build = -e BUILD_PL->( $extract ); my $found_makefile = -e MAKEFILE_PL->( $extract ); $type = INSTALLER_BUILD if !$prefer_makefile && $found_build; $type = INSTALLER_BUILD if $found_build && !$found_makefile; $type = INSTALLER_MM if $prefer_makefile && $found_makefile; $type = INSTALLER_MM if $found_makefile && !$found_build; # Special case Module::Build to always use INSTALLER_MM $type = INSTALLER_MM if $self->package =~ m{^Module-Build-\d}; } ### ok, so it's a 'build' installer, but you don't /have/ module build ### XXX duplicated from CPANPLUS::Selfupdate. fix somehow? if( $type and $type eq INSTALLER_BUILD and ( not CPANPLUS::Dist->has_dist_type( INSTALLER_BUILD ) or not $cb->module_tree( INSTALLER_BUILD ) ->is_uptodate( version => '0.60' ) ) ) { ### XXX this is for recording purposes only. We *have* to install ### these before even creating a dist object, or we'll get an error ### saying 'no such dist type'; ### XXX duplicated from CPANPLUS::Selfupdate. fix somehow? my $href = $self->status->configure_requires || {}; my $deps = { INSTALLER_BUILD, '0.60', %$href }; $self->status->configure_requires( $deps ); msg(loc("This module requires '%1' and '%2' to be installed first. ". "Adding these modules to your prerequisites list", 'Module::Build', INSTALLER_BUILD ), $verbose ); ### ok, actually we found neither ### } elsif ( !$type ) { error( loc( "Unable to find '%1' or '%2' for '%3'; ". "Will default to '%4' but might be unable ". "to install!", BUILD_PL->(), MAKEFILE_PL->(), $self->module, INSTALLER_MM ) ); $type = INSTALLER_MM; } return $self->status->installer_type( $type ) if $type; return; } =pod =head2 $dist = $self->dist([target => 'prepare|create', format => DISTRIBUTION_TYPE, args => {key => val}]); Create a distribution object, ready to be installed. Distribution type defaults to your config settings The optional C hashref is passed on to the specific distribution types' C method after being dereferenced. Returns a distribution object on success, false on failure. See C for details. =cut sub dist { my $self = shift; my $cb = $self->parent; my $conf = $cb->configure_object; my %hash = @_; ### have you determined your installer type yet? if not, do it here, ### we need the info $self->get_installer_type unless $self->status->installer_type; my($type,$args,$target); my $tmpl = { format => { default => $conf->get_conf('dist_type') || $self->status->installer_type, store => \$type }, target => { default => TARGET_CREATE, store => \$target }, args => { default => {}, store => \$args }, }; check( $tmpl, \%hash ) or return; ### ok, check for $type. Do we have it? unless( CPANPLUS::Dist->has_dist_type( $type ) ) { ### ok, we don't have it. Is it C::D::Build? if so we can install the ### whole thing now ### XXX we _could_ do this for any type we don't have actually... if( $type eq INSTALLER_BUILD ) { msg(loc("Bootstrapping installer '%1'", $type)); ### don't propagate the format, it's the one we're trying to ### bootstrap, so it'll be an infinite loop if we do $cb->module_tree( $type )->install( target => $target, %$args ) or do { error(loc("Could not bootstrap installer '%1' -- ". "can not continue", $type)); return; }; ### re-scan for available modules now CPANPLUS::Dist->rescan_dist_types; unless( CPANPLUS::Dist->has_dist_type( $type ) ) { error(loc("Newly installed installer type '%1' should be ". "available, but is not! -- aborting", $type)); return; } else { msg(loc("Installer '%1' successfully bootstrapped", $type)); } ### some other plugin you don't have. Abort } else { error(loc("Installer type '%1' not found. Please verify your ". "installation -- aborting", $type )); return; } } ### make sure we don't overwrite it, just in case we came ### back from a ->save_state. This allows restoration to ### work correctly my( $dist, $dist_cpan ); unless( $dist = $self->status->dist ) { $dist = $type->new( module => $self ) or return; $self->status->dist( $dist ); } unless( $dist_cpan = $self->status->dist_cpan ) { $dist_cpan = $type eq $self->status->installer_type ? $self->status->dist : $self->status->installer_type->new( module => $self ); $self->status->dist_cpan( $dist_cpan ); } DIST: { ### just wanted the $dist object? last DIST if $target eq TARGET_INIT; ### first prepare the dist $dist->prepare( %$args ) or return; $self->status->prepared(1); ### you just wanted us to prepare? last DIST if $target eq TARGET_PREPARE; $dist->create( %$args ) or return; $self->status->created(1); } return $dist; } =pod =head2 $bool = $mod->prepare( ) Convenience method around C that prepares a module without actually building it. This is equivalent to invoking C with C set to C Returns true on success, false on failure. =cut sub prepare { my $self = shift; return $self->install( @_, target => TARGET_PREPARE ); } =head2 $bool = $mod->create( ) Convenience method around C that creates a module. This is equivalent to invoking C with C set to C Returns true on success, false on failure. =cut sub create { my $self = shift; return $self->install( @_, target => TARGET_CREATE ); } =head2 $bool = $mod->test( ) Convenience wrapper around C that tests a module, without installing it. It's the equivalent to invoking C with C set to C and C set to C<0>. Returns true on success, false on failure. =cut sub test { my $self = shift; return $self->install( @_, target => TARGET_CREATE, skiptest => 0 ); } =pod =head2 $bool = $self->install([ target => 'init|prepare|create|install', format => FORMAT_TYPE, extractdir => DIRECTORY, fetchdir => DIRECTORY, prefer_bin => BOOL, force => BOOL, verbose => BOOL, ..... ]); Installs the current module. This includes fetching it and extracting it, if this hasn't been done yet, as well as creating a distribution object for it. This means you can pass it more arguments than described above, which will be passed on to the relevant methods as they are called. See C, C and C for details. Returns true on success, false on failure. =cut sub install { my $self = shift; my $cb = $self->parent; my $conf = $cb->configure_object; my %hash = @_; my $args; my $target; my $format; { ### so we can use the rest of the args to the create calls etc ### local $Params::Check::NO_DUPLICATES = 1; local $Params::Check::ALLOW_UNKNOWN = 1; ### targets 'dist' and 'test' are now completely ignored ### my $tmpl = { ### match this allow list with Dist->_resolve_prereqs target => { default => TARGET_INSTALL, store => \$target, allow => [TARGET_PREPARE, TARGET_CREATE, TARGET_INSTALL, TARGET_INIT ] }, force => { default => $conf->get_conf('force'), }, verbose => { default => $conf->get_conf('verbose'), }, format => { default => $conf->get_conf('dist_type'), store => \$format }, }; $args = check( $tmpl, \%hash ) or return; } ### if this target isn't 'install', we will need to at least 'create' ### every prereq, so it can build ### XXX prereq_target of 'prepare' will do weird things here, and is ### not supported. $args->{'prereq_target'} ||= TARGET_CREATE if $target ne TARGET_INSTALL; ### check if it's already uptodate ### if( $target eq TARGET_INSTALL and !$args->{'force'} and !$self->package_is_perl_core() and # separate rules apply ( $self->status->installed() or $self->is_uptodate ) and !INSTALL_VIA_PACKAGE_MANAGER->($format) ) { msg(loc("Module '%1' already up to date, won't install without force", $self->module), $args->{'verbose'} ); return $self->status->installed(1); } # if it's a non-installable core package, abort the install. if( $self->package_is_perl_core() ) { # if the installed is newer, say so. if( $self->installed_version > $self->version ) { error(loc("The core Perl %1 module '%2' (%3) is more ". "recent than the latest release on CPAN (%4). ". "Aborting install.", $], $self->module, $self->installed_version, $self->version ) ); # if the installed matches, say so. } elsif( $self->installed_version == $self->version ) { error(loc("The core Perl %1 module '%2' (%3) can only ". "be installed by Perl itself. ". "Aborting install.", $], $self->module, $self->installed_version ) ); # otherwise, the installed is older; say so. } else { error(loc("The core Perl %1 module '%2' can only be ". "upgraded from %3 to %4 by Perl itself (%5). ". "Aborting install.", $], $self->module, $self->installed_version, $self->version, $self->package ) ); } return; ### it might be a known 3rd party module } elsif ( $self->is_third_party ) { my $info = $self->third_party_information; error(loc( "%1 is a known third-party module.\n\n". "As it isn't available on the CPAN, CPANPLUS can't install " . "it automatically. Therefore you need to install it manually " . "before proceeding.\n\n". "%2 is part of %3, published by %4, and should be available ". "for download at the following address:\n\t%5", $self->name, $self->name, $info->{name}, $info->{author}, $info->{url} )); return; } ### fetch it if need be ### unless( $self->status->fetch ) { my $params; for (qw[prefer_bin fetchdir]) { $params->{$_} = $args->{$_} if exists $args->{$_}; } for (qw[force verbose]) { $params->{$_} = $args->{$_} if defined $args->{$_}; } $self->fetch( %$params ) or return; } ### extract it if need be ### unless( $self->status->extract ) { my $params; for (qw[prefer_bin extractdir]) { $params->{$_} = $args->{$_} if exists $args->{$_}; } for (qw[force verbose]) { $params->{$_} = $args->{$_} if defined $args->{$_}; } $self->extract( %$params ) or return; } $args->{'prereq_format'} = $format if $format; $format ||= $self->status->installer_type; unless( $format ) { error( loc( "Don't know what installer to use; " . "Couldn't find either '%1' or '%2' in the extraction " . "directory '%3' -- will be unable to install", BUILD_PL->(), MAKEFILE_PL->(), $self->status->extract ) ); $self->status->installed(0); return; } ### do SIGNATURE checks? ### ### XXX check status and not recheck EVERY time? if( $conf->get_conf('signature') ) { unless( $self->check_signature( verbose => $args->{verbose} ) ) { error( loc( "Signature check failed for module '%1' ". "-- Not trusting this module, aborting install", $self->module ) ); $self->status->signature(0); ### send out test report on broken sig if( $conf->get_conf('cpantest') ) { $cb->_send_report( module => $self, failed => 1, buffer => CPANPLUS::Error->stack_as_string, verbose => $args->{verbose}, force => $args->{force}, ) or error(loc("Failed to send test report for '%1'", $self->module ) ); } return; } else { ### signature OK ### $self->status->signature(1); } } ### a target of 'create' basically means not to run make test ### ### eh, no it /doesn't/.. skiptest => 1 means skiptest => 1. #$args->{'skiptest'} = 1 if $target eq 'create'; ### bundle rules apply ### if( $self->is_bundle ) { ### check what we need to install ### my @prereqs = $self->bundle_modules(); unless( @prereqs ) { error( loc( "Bundle '%1' does not specify any modules to install", $self->module ) ); ### XXX mark an error here? ### } } my $dist = $self->dist( format => $format, target => $target, args => $args ); unless( $dist ) { error( loc( "Unable to create a new distribution object for '%1' " . "-- cannot continue", $self->module ) ); return; } return 1 if $target ne TARGET_INSTALL; my $ok = $dist->install( %$args ) ? 1 : 0; $self->status->installed($ok); return 1 if $ok; return; } =pod =head2 @list = $self->bundle_modules() Returns a list of module objects the Bundle specifies. This requires you to have extracted the bundle already, using the C method. Returns false on error. =cut sub bundle_modules { my $self = shift; my $cb = $self->parent; unless( $self->is_bundle ) { error( loc("'%1' is not a bundle", $self->module ) ); return; } my @files; ### autobundles are special files generated by CPANPLUS. If we can ### read the file, we can determine the prereqs if( $self->is_autobundle ) { my $where; unless( $where = $self->status->fetch ) { error(loc("Don't know where '%1' was fetched to", $self->package)); return; } push @files, $where ### regular bundle::* upload } else { my $dir; unless( $dir = $self->status->extract ) { error(loc("Don't know where '%1' was extracted to", $self->module)); return; } find( { wanted => sub { push @files, File::Spec->rel2abs($_) if /\.pm/i }, no_chdir => 1, }, $dir ); } my $prereqs = {}; my @list; my $seen = {}; for my $file ( @files ) { my $fh = FileHandle->new($file) or( error(loc("Could not open '%1' for reading: %2", $file,$!)), next ); my $flag; while( local $_ = <$fh> ) { ### quick hack to read past the header of the file ### last if $flag && m|^=head|i; ### from perldoc cpan: ### =head1 CONTENTS ### In this pod section each line obeys the format ### Module_Name [Version_String] [- optional text] $flag = 1 if m|^=head1 CONTENTS|i; if ($flag && /^(?!=)(\S+)\s*(\S+)?/) { my $module = $1; my $version = $cb->_version_to_number( version => $2 ); my $obj = $cb->module_tree($module); unless( $obj ) { error(loc("Cannot find bundled module '%1'", $module), loc("-- it does not seem to exist") ); next; } ### make sure we list no duplicates ### unless( $seen->{ $obj->module }++ ) { push @list, $obj; $prereqs->{ $module } = $cb->_version_to_number( version => $version ); } } } } ### store the prereqs we just found ### $self->status->prereqs( $prereqs ); return @list; } =pod =head2 $text = $self->readme Fetches the readme belonging to this module and stores it under C<< $obj->status->readme >>. Returns the readme as a string on success and returns false on failure. =cut sub readme { my $self = shift; my $conf = $self->parent->configure_object; ### did we already dl the readme once? ### return $self->status->readme() if $self->status->readme(); ### this should be core ### return unless can_load( modules => { FileHandle => '0.0' }, verbose => 1, ); ### get a clone of the current object, with a fresh status ### my $obj = $self->clone or return; ### munge the package name my $pkg = README->( $obj ); $obj->package($pkg); my $file; { ### disable checksum fetches on readme downloads my $tmp = $conf->get_conf( 'md5' ); $conf->set_conf( md5 => 0 ); $file = $obj->fetch; $conf->set_conf( md5 => $tmp ); return unless $file; } ### read the file into a scalar, to store in the original object ### my $fh = new FileHandle; unless( $fh->open($file) ) { error( loc( "Could not open file '%1': %2", $file, $! ) ); return; } my $in = do{ local $/; <$fh> }; $fh->close; return $self->status->readme( $in ); } =pod =head2 $version = $self->installed_version() Returns the currently installed version of this module, if any. =head2 $where = $self->installed_file() Returns the location of the currently installed file of this module, if any. =head2 $dir = $self->installed_dir() Returns the directory (or more accurately, the C<@INC> handle) from which this module was loaded, if any. =head2 $bool = $self->is_uptodate([version => VERSION_NUMBER]) Returns a boolean indicating if this module is uptodate or not. =cut ### uptodate/installed functions { my $map = { # hashkey, alternate rv installed_version => ['version', 0 ], installed_file => ['file', ''], installed_dir => ['dir', ''], is_uptodate => ['uptodate', 0 ], }; while( my($method, $aref) = each %$map ) { my($key,$alt_rv) = @$aref; no strict 'refs'; *$method = sub { ### never use the @INC hooks to find installed versions of ### modules -- they're just there in case they're not on the ### perl install, but the user shouldn't trust them for *other* ### modules! ### XXX CPANPLUS::inc is now obsolete, so this should not ### be needed anymore #local @INC = CPANPLUS::inc->original_inc; my $self = shift; ### make sure check_install is not looking in %INC, as ### that may contain some of our sneakily loaded modules ### that aren't installed as such. -- kane local $Module::Load::Conditional::CHECK_INC_HASH = 0; ### this should all that is required for deprecated core modules local $Module::Load::Conditional::DEPRECATED = 1; my $href = check_install( module => $self->module, version => $self->version, @_, ); ### Don't trust modules which are the result of @INC hooks ### FatPacker uses this trickery and it causes WTF moments return $alt_rv if defined $href->{dir} && ref $href->{dir}; return $href->{$key} || $alt_rv; } } } =pod =head2 $href = $self->details() Returns a hashref with key/value pairs offering more information about a particular module. For example, for C it might look like this: Author Jarkko Hietaniemi (jhi@iki.fi) Description High resolution time, sleep, and alarm Development Stage Released Installed File /usr/local/perl/lib/Time/Hires.pm Interface Style plain Functions, no references used Language Used C and perl, a C compiler will be needed Package Time-HiRes-1.65.tar.gz Public License Unknown Support Level Developer Version Installed 1.52 Version on CPAN 1.65 =cut sub details { my $self = shift; my $conf = $self->parent->configure_object(); my $cb = $self->parent; my %hash = @_; my $res = { Author => loc("%1 (%2)", $self->author->author(), $self->author->email() ), Package => $self->package, Description => $self->description || loc('None given'), 'Version on CPAN' => $self->version, }; ### check if we have the module installed ### if so, add version have and version on cpan $res->{'Version Installed'} = $self->installed_version if $self->installed_version; $res->{'Installed File'} = $self->installed_file if $self->installed_file; my $i = 0; for my $item( split '', $self->dslip ) { $res->{ $cb->_dslip_defs->[$i]->[0] } = $cb->_dslip_defs->[$i]->[1]->{$item} || loc('Unknown'); $i++; } return $res; } =head2 @list = $self->contains() Returns a list of module objects that represent the modules also present in the package of this module. For example, for C this might return: Archive::Tar Archive::Tar::Constant Archive::Tar::File =cut sub contains { my $self = shift; my $cb = $self->parent; my $pkg = $self->package; my @mods = $cb->search( type => 'package', allow => [qr/^$pkg$/] ); return @mods; } =pod =head2 @list_of_hrefs = $self->fetch_report() This function queries the CPAN testers database at I for test results of specified module objects, module names or distributions. Look at L for details on the options you can pass and the return value to expect. =cut sub fetch_report { my $self = shift; my $cb = $self->parent; return $cb->_query_report( @_, module => $self ); } =pod =head2 $bool = $self->uninstall([type => [all|man|prog]) This function uninstalls the specified module object. You can install 2 types of files, either C pages or Cram files. Alternately you can specify C to uninstall both (which is the default). Returns true on success and false on failure. Do note that this does an uninstall via the so-called C<.packlist>, so if you used a module installer like say, C or C, you should not use this, but use your package manager instead. =cut sub uninstall { my $self = shift; my $conf = $self->parent->configure_object(); my %hash = @_; my ($type,$verbose); my $tmpl = { type => { default => 'all', allow => [qw|man prog all|], store => \$type }, verbose => { default => $conf->get_conf('verbose'), store => \$verbose }, force => { default => $conf->get_conf('force') }, }; ### XXX add a warning here if your default install dist isn't ### makefile or build -- that means you are using a package manager ### and this will not do what you think! my $args = check( $tmpl, \%hash ) or return; if( $conf->get_conf('dist_type') and ( ($conf->get_conf('dist_type') ne INSTALLER_BUILD) or ($conf->get_conf('dist_type') ne INSTALLER_MM)) ) { msg(loc("You have a default installer type set (%1) ". "-- you should probably use that package manager to " . "uninstall modules", $conf->get_conf('dist_type')), $verbose); } ### check if we even have the module installed -- no point in continuing ### otherwise unless( $self->installed_version ) { error( loc( "Module '%1' is not installed, so cannot uninstall", $self->module ) ); return; } ### nothing to uninstall ### my $files = $self->files( type => $type ) or return; my $dirs = $self->directory_tree( type => $type ) or return; my $sudo = $conf->get_program('sudo'); ### just in case there's no file; M::B doesn't provide .packlists yet ### my $pack = $self->packlist; $pack = $pack->[0]->packlist_file() if $pack; ### first remove the files, then the dirs if they are empty ### my $flag = 0; for my $file( @$files, $pack ) { next unless defined $file && -f $file; msg(loc("Unlinking '%1'", $file), $verbose); my @cmd = ($^X, "-eunlink+q[$file]"); unshift @cmd, $sudo if $sudo; my $buffer; unless ( run( command => \@cmd, verbose => $verbose, buffer => \$buffer ) ) { error(loc("Failed to unlink '%1': '%2'",$file, $buffer)); $flag++; } } for my $dir ( sort @$dirs ) { local *DIR; opendir DIR, $dir or next; my @count = readdir(DIR); close DIR; next unless @count == 2; # . and .. msg(loc("Removing '%1'", $dir), $verbose); ### this fails on my win2k machines.. it indeed leaves the ### dir, but it's not a critical error, since the files have ### been removed. --kane #unless( rmdir $dir ) { # error( loc( "Could not remove '%1': %2", $dir, $! ) ) # unless $^O eq 'MSWin32'; #} my @cmd = ($^X, "-e", "rmdir q[$dir]"); unshift @cmd, $sudo if $sudo; my $buffer; unless ( run( command => \@cmd, verbose => $verbose, buffer => \$buffer ) ) { error(loc("Failed to rmdir '%1': %2",$dir,$buffer)); $flag++; } } $self->status->uninstall(!$flag); $self->status->installed( $flag ? 1 : undef); return !$flag; } =pod =head2 @modobj = $self->distributions() Returns a list of module objects representing all releases for this module on success, false on failure. =cut sub distributions { my $self = shift; my %hash = @_; my @list = $self->author->distributions( %hash, module => $self ) or return; ### it's another release then by the same author ### return grep { $_->package_name eq $self->package_name } @list; } =pod =head2 @list = $self->files () Returns a list of files used by this module, if it is installed. =head2 @list = $self->directory_tree () Returns a list of directories used by this module. =head2 @list = $self->packlist () Returns the C object for this module. =head2 @list = $self->validate () Returns a list of files that are missing for this modules, but are present in the .packlist file. =cut for my $sub (qw[files directory_tree packlist validate]) { no strict 'refs'; *$sub = sub { return shift->_extutils_installed( @_, method => $sub ); } } ### generic method to call an ExtUtils::Installed method ### sub _extutils_installed { my $self = shift; my $cb = $self->parent; my $conf = $cb->configure_object; my $home = $cb->_home_dir; # may be needed to fix up prefixes my %hash = @_; my ($verbose,$type,$method); my $tmpl = { verbose => { default => $conf->get_conf('verbose'), store => \$verbose, }, type => { default => 'all', allow => [qw|prog man all|], store => \$type, }, method => { required => 1, store => \$method, allow => [qw|files directory_tree packlist validate|], }, }; my $args = check( $tmpl, \%hash ) or return; ### old versions of cygwin + perl < 5.8 are buggy here. bail out if we ### find we're being used by them { my $err = ON_OLD_CYGWIN; if($err) { error($err); return }; } return unless can_load( modules => { 'ExtUtils::Installed' => '0.0' }, verbose => $verbose, ); my @config_names = ( ### lib { lib => 'privlib', # perl-only arch => 'archlib', # compiled code prefix => 'prefix', # prefix to both }, ### site { lib => 'sitelib', arch => 'sitearch', prefix => 'siteprefix', }, ### vendor { lib => 'vendorlib', arch => 'vendorarch', prefix => 'vendorprefix', }, ); ### search in your regular @INC, and anything you added to your config. ### this lets EU::Installed find .packlists that are *not* in the standard ### compiled in @INC path. Requires EU::I 1.42 or up. this addresses #33438 ### make sure the archname path is also added, as that's where the .packlist ### files are written my @libs; for my $lib ( @{ $conf->get_conf('lib') } ) { require Config; ### and just the standard dir push @libs, $lib; ### figure out what an MM prefix expands to. Basically, it's the ### site install target from %Config, ie: /opt/lib/perl5/site_perl/5.8.8 ### minus the site wide prefix, ie: /opt ### this lets users add the dir they have set as their EU::MM PREFIX ### to our 'lib' config and it Just Works ### the arch specific dir, ie: ### /opt/lib/perl5/site_perl/5.8.8/darwin-2level ### XXX is this the right thing to do? ### we add all 6 dir combos for prefixes: ### /foo/lib ### /foo/lib/arch ### /foo/site/lib ### /foo/site/lib/arch ### /foo/vendor/lib ### /foo/vendor/lib/arch for my $href ( @config_names ) { for my $key ( qw[lib arch] ) { ### look up the config value -- use EXP for the EXPANDED ### version, so no ~ etc are found in there my $dir = $Config::Config{ $href->{ $key } .'exp' } or next; my $prefix = $Config::Config{ $href->{prefix} }; ### prefix may be relative to home, and contain a ~ ### if so, fix it up. $prefix =~ s/^~/$home/; ### remove the prefix from it, so we can append to our $lib $dir =~ s/^\Q$prefix\E//; ### do the appending push @libs, File::Spec->catdir( $lib, $dir ); } } } my $inst; unless( $inst = ExtUtils::Installed->new( extra_libs => \@libs ) ) { error( loc("Could not create an '%1' object", 'ExtUtils::Installed' ) ); ### in case it's being used directly... ### return; } { ### EU::Installed can die =/ my @files; eval { @files = $inst->$method( $self->module, $type ) }; if( $@ ) { chomp $@; error( loc("Could not get '%1' for '%2': %3", $method, $self->module, $@ ) ); return; } return wantarray ? @files : \@files; } } =head2 $bool = $self->add_to_includepath; Adds the current modules path to C<@INC> and C<$PERL5LIB>. This allows you to add the module from its build dir to your path. It also adds the current modules C and/or C