use strict;
-our $VERSION = '6.79_01';
+our $VERSION = '7.22';
+$VERSION = eval $VERSION;
use File::Spec;
require ExtUtils::Liblist::Kid;
sub lsdir {
shift;
my $rex = qr/$_[1]/;
- opendir DIR, $_[0];
- my @out = grep /$rex/, readdir DIR;
- closedir DIR;
+ opendir my $dir_fh, $_[0];
+ my @out = grep /$rex/, readdir $dir_fh;
+ closedir $dir_fh;
return @out;
}