use File::Find;
use File::Basename;
use vars qw($VERSION);
-$VERSION = '0.01';
+$VERSION = '0.02';
sub _is_type($$$)
{
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>