=cut
-use 5.005_64;
+use 5.006;
use Carp;
use File::Basename ();
use Exporter ();
use strict;
+use warnings;
-our $VERSION = "1.0404";
+our $VERSION = "1.05";
our @ISA = qw( Exporter );
our @EXPORT = qw( mkpath rmtree );
unless $safe;
if (opendir my $d, $root) {
- @files = readdir $d;
+ no strict 'refs';
+ if (!defined ${"\cTAINT"} or ${"\cTAINT"}) {
+ # Blindly untaint dir names
+ @files = map { /^(.*)$/s ; $1 } readdir $d;
+ } else {
+ @files = readdir $d;
+ }
closedir $d;
}
else {