Re: PPM Unknown Error?

[crazyinsomniac]

ppm3 works just fine for me most of the time, but when it don't, well, it ain't no secret you don't need the ppm3 shell to install modules, as you can read at http://crazyinsomniac.perlmonk.org/perl/ppm (among other places).

I have experienced the problem you describe, and the cure was simple, reinstall.

Anyway, you don't need PPM to list locally installed modules, all you need is the lastest ExtUtils-MakeMaker, which comes with ExtUtils::Installed, which will list them for you.

It comes with the utility `instmodsh', which isn't bug free (the tar option is broken cause it relies on the tar utility with an -I option, which ain't in cygwin), but still cool none-the-less

C:\>instmodsh
Available commands are:
   l            - List all installed modules
   m <module>   - Select a module
   q            - Quit the program
cmd? m CGI
Available commands are:
   f [all|prog|doc]   - List installed files of a given type
   d [all|prog|doc]   - List the directories used by a module
   v                  - Validate the .packlist - check for missing fil
+es
   t <tarfile>        - Create a tar archive of the module
   q                  - Quit the module
CGI cmd? f all
all files in CGI are:
   C:\Perl\lib\CGI\Util.pm
   C:\Perl\lib\CGI\Cookie.pm
   C:\Perl\lib\CGI.pm
   C:\Perl\lib\CGI\Push.pm
   C:\Perl\lib\CGI\Pretty.pm
   C:\Perl\lib\CGI\Fast.pm
   C:\Perl\lib\CGI\Carp.pm
   C:\Perl\lib\CGI\Switch.pm
   C:\Perl\lib\CGI\Apache.pm
CGI cmd? q
cmd? q

C:\>

Since the perl core is given the name 'Perl' in the modules listed by ExtUtils::Installed, here is a nice oneliner to list them

perl -MExtUtils::Installed -le "for(ExtUtils::Installed->new()->files(
+'Perl')){print if /\.pm$/}"

or

perl -MExtUtils::Installed -le "for(ExtUtils::Installed->new()->files(
+'Perl')){if(/lib\/(.*?)\.pm$/){$_=$1;s(/)(::);print}}"

Man-oh-man I can't wait for CPANPLUS to add PPM support

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"