Drieux wrote:
>
> On Dec 18, 2003, at 3:08 AM, Rob Dixon wrote:
>
>> That's exactly what the ExtUtils::Installed was created for:
>>
>> use strict;
>> use warnings;
>>
>> use ExtUtils::Installed;
>>
>> my $install = new ExtUtils::Installed;
>> print map "$_\n", $install->modules;
>
> why on my linux box does that print
>
> meatbop: 58:] ./find_modules.plx
> Perl
> meatbop: 59:]
>
[snip]
> Is the vendor supplied version of perl from
> Linux for Suse and RedHat defective?
it isn't broken. "Perl" is the core. to see the actual modules, use:
#!/usr/bin/perl -w
use strict;
use ExtUtils::Installed;
print join("\n",grep /\.pm$/, ExtUtils::Installed->new->files('Perl')),"\n";
__END__
prints:
...
/usr/local/lib/perl5/5.8.2/File/stat.pm
/usr/local/lib/perl5/5.8.2/Search/Dict.pm
/usr/local/lib/perl5/5.8.2/locale.pm
...
perldoc ExtUtils::Installed
david
--
sub'_{print"@_ ";* \ = * __ ,\ & \}
sub'__{print"@_ ";* \ = * ___ ,\ & \}
sub'___{print"@_ ";* \ = * ____ ,\ & \}
sub'____{print"@_,\n"}&{_+Just}(another)->(Perl)->(Hacker)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
