diff options
| author | Alan Burlison <Alan.Burlison@uk.sun.com> | 1998-06-03 11:20:06 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 06:20:44 +0000 |
| commit | 9b604809b69cab4edbbec886a40fb8a044651368 (patch) | |
| tree | 96b5b2457e4f7ba7790123e7a0d8cc4214642161 /lib/ExtUtils | |
| parent | 1a90ebb26de2937caa136742405b39f6e96453d4 (diff) | |
| download | perl-9b604809b69cab4edbbec886a40fb8a044651368.tar.gz | |
ExtUtils::Installed.pm and ExtUtils::Packlist.pm
Message-Id: <199806030919.KAA03527@sale-wts>
p4raw-id: //depot/perl@1092
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/Installed.pm | 4 | ||||
| -rw-r--r-- | lib/ExtUtils/Packlist.pm | 15 |
2 files changed, 15 insertions, 4 deletions
diff --git a/lib/ExtUtils/Installed.pm b/lib/ExtUtils/Installed.pm index c6dde68b90..0ee1f50b8c 100644 --- 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 a0128492b2..3ba1c8fe04 100644 --- 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 |