package ExtUtils::Installed;
+
+use 5.005_64;
use strict;
use Carp qw();
use ExtUtils::Packlist;
use Config;
use File::Find;
use File::Basename;
-use vars qw($VERSION);
-$VERSION = '0.01';
+our $VERSION = '0.02';
sub _is_type($$$)
{
# Read the core packlist
$self->{Perl}{packlist} =
ExtUtils::Packlist->new("$Config{installarchlib}/.packlist");
-$self->{Perl}{version} = $];
+$self->{Perl}{version} = $Config{version};
# Read the module packlists
my $sub = sub
# Hack of the leading bits of the paths & convert to a module name
my $module = $File::Find::name;
- $module =~ s!$Config{archlib}/auto/(.*)/.packlist!$1!;
- $module =~ s!$Config{sitearch}/auto/(.*)/.packlist!$1!;
+ $module =~ s!$Config{archlib}/auto/(.*)/.packlist!$1!s;
+ $module =~ s!$Config{sitearch}/auto/(.*)/.packlist!$1!s;
my $modfile = "$module.pm";
$module =~ s!/!::!g;
foreach my $dir ($self->directories($module, $type, @under))
{
$dirs{$dir}++;
- my ($last);
+ my ($last) = ("");
while ($last ne $dir)
{
$last = $dir;
=back
+=head1 EXAMPLE
+
+See the example in L<ExtUtils::Packlist>.
+
=head1 AUTHOR
Alan Burlison <Alan.Burlison@uk.sun.com>