| Subject: | pathempty (and thus dirmove) functions throw error with -T switch |
The pathempty function throws an error if called when the -T switch is
on, preventing use of dirmove with -T.
In v0.23, changing line 237 to untaint the path in the pathempty
function as you've done elsewhere (in the dircopy function) takes care
of this:
- my $flpth = File::Spec->catdir($pth, $_);
+ my ($fl) = m{ (.*) }xms;
+ my $flpth = File::Spec->catdir($pth, $fl);
Tested with Perl 5.8.6 under OSX 10.4.6
Many thanks for the useful module!
Josh Clark