On Dec 18, 2003, at 10:40 AM, david wrote: [..]
#!/usr/bin/perl -w
use strict;

use ExtUtils::Installed;

print join("\n",grep /\.pm$/, ExtUtils::Installed->new->files('Perl')),"\n";
[..]

clearly a step in the right direction.

But there is this minor nit that I find
a bit worrisome.

vladimir: 67:] ./tra* | grep -i Sol
Module: Sun::Solaris::BSM::_BSMparse
Module: Sun::Solaris::Kstat
Module: Sun::Solaris::Project
Module: Sun::Solaris::Utils
vladimir: 68:]

the version of perl at /usr/bin/perl tells me
that it aware of the @INC

Compiled at Aug 25 2002 12:19:33
  @INC:
    /usr/local/lib/perl5/5.6.1/sun4-solaris-64int
    /usr/local/lib/perl5/5.6.1
    /usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris-64int
    /usr/local/lib/perl5/site_perl/5.6.1
    /usr/local/lib/perl5/site_perl
    /usr/local/lib/perl5/vendor_perl/5.6.1/sun4-solaris-64int
    /usr/local/lib/perl5/vendor_perl/5.6.1
    /usr/local/lib/perl5/vendor_perl
    /usr/perl5/5.6.1/lib/sun4-solaris-64int
    /usr/perl5/5.6.1/lib
    /usr/perl5/site_perl/5.6.1/sun4-solaris-64int
    /usr/perl5/site_perl/5.6.1
    /usr/perl5/site_perl
    /usr/perl5/vendor_perl/5.6.1/sun4-solaris-64int
    /usr/perl5/vendor_perl/5.6.1
    /usr/perl5/vendor_perl
    .

yet I would need to have fore-knowledge that it
was there to even try say:

my $files;
eval {
$files = ExtUtils::Installed->new->files('Sun',"all", '/usr/perl5/5.6.1');
} ;
die "took weirdnesff: $@" if $@;


which still dies on me Unable to find the Sun...

Which will also fail if I try for say Sun::Solaris::Kstat

Don't get me wrong, I think that in the Main

ExtUtils::Installed

is moving in the right general direction. I think that
it too still needs to be improved.

ciao
drieux

---


-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to