ExtUtils::Installed.pm and ExtUtils::Packlist.pm

	Message-Id: <199806030919.KAA03527@sale-wts>

p4raw-id: //depot/perl@1092

diff --git a/lib/ExtUtils/Installed.pm b/lib/ExtUtils/Installed.pm
index c6dde68..0ee1f50 100644 (file)
--- a/lib/ExtUtils/Installed.pm
+++ b/lib/ExtUtils/Installed.pm
@@ -7,7 +7,7 @@ use Config;
 use File::Find;
 use File::Basename;
 use vars qw($VERSION);
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 sub _is_type($$$)
 {
@@ -134,7 +134,7 @@ my (%dirs);
 foreach my $dir ($self->directories($module, $type, @under))
    {
    $dirs{$dir}++;
-   my ($last);
+   my ($last) = ("");
    while ($last ne $dir)
       {
       $last = $dir;

diff --git a/lib/ExtUtils/Packlist.pm b/lib/ExtUtils/Packlist.pm
index a012849..3ba1c8f 100644 (file)
--- a/lib/ExtUtils/Packlist.pm
+++ b/lib/ExtUtils/Packlist.pm
@@ -2,7 +2,7 @@ package ExtUtils::Packlist;
 use strict;
 use Carp qw();
 use vars qw($VERSION);
-$VERSION = '0.02';
+$VERSION = '0.03';
 
 # Used for generating filehandle globs.  IO::File might not be available!
 my $fhname = "FH1";
@@ -89,7 +89,7 @@ while (defined($line = <$fh>))
    {
    chomp $line;
    my ($key, @kvs) = split(' ', $line);
-   $key =~ s!/./!/!g;   # Some .packlists have spurious '/./' bits in the paths
+   $key =~ s!/\./!/!g;   # Some .packlists have spurious '/./' bits in the paths
    if (! @kvs)
       {
       $self->{data}->{$key} = undef;
@@ -149,6 +149,13 @@ foreach my $key (sort(keys(%{$self->{data}})))
 return(@missing);
 }
 
+sub packlist_file($)
+{
+my ($self) = @_;
+$self = tied(%$self) || $self;
+return($self->{packfile});
+}
+
 1;
 
 __END__
@@ -222,6 +229,10 @@ argument which evaluates to true is given, any missing files will be removed
 from the internal hash.  The return value is a list of the missing files, which
 will be empty if they all exist.
 
+=item packlist_file()
+
+This returns the name of the associated .packlist file
+
 =back
 
 =head1 AUTHOR