package ExtUtils::Liblist;
+use vars qw($VERSION);
+$VERSION = '1.01';
+
use File::Spec;
require ExtUtils::Liblist::Kid;
@ISA = qw(ExtUtils::Liblist::Kid File::Spec);
+# Backwards compatibility with old interface.
+sub ext {
+ goto &ExtUtils::Liblist::Kid::ext;
+}
+
sub lsdir {
shift;
my $rex = qr/$_[1]/;
- opendir my $dir, $_[0];
- grep /$rex/, readdir $dir;
+ opendir DIR, $_[0];
+ my @out = grep /$rex/, readdir DIR;
+ closedir DIR;
+ return @out;
}
__END__
=head1 SYNOPSIS
-C<require ExtUtils::Liblist;>
+ require ExtUtils::Liblist;
+
+ $MM->ext($potential_libs, $verbose, $need_names);
-C<ExtUtils::Liblist::ext($self, $potential_libs, $verbose, $need_names);>
+ # Usually you can get away with:
+ ExtUtils::Liblist->ext($potential_libs, $verbose, $need_names)
=head1 DESCRIPTION