Initial VMS patches

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / Installed.pm

diff --git a/lib/ExtUtils/Installed.pm b/lib/ExtUtils/Installed.pm
index c6dde68..dda594e 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;
@@ -261,6 +261,10 @@ This returns the version number for the specified module.
 
 =back
 
+=head1 EXAMPLE
+
+See the example in L<ExtUtils::Packlist>.
+
 =head1 AUTHOR
 
 Alan Burlison <Alan.Burlison@uk.sun.com>