| Subject: | uninit variable warnings because of missing arguments to File::Spec->catpath() |
The problem is that File::Spec->catpath() requires three arguments and
File::Copy::Recursive calls it with 2 arguments. It causes an
"uninitialized variable" warning when running with 'use warnings'. The
change is to add a another argument ('') to the two calls to catpath:
79c79
< pathrm(File::Spec->catpath($volm,$path), $ForcePth,
$NoFtlPth) or return;
---
Show quoted text
> pathrm(File::Spec->catpath($volm,$path,''), $ForcePth,
$NoFtlPth) or return;
118c118
< pathmk(File::Spec->catpath($volm,$path), $NoFtlPth);
---
Show quoted text> pathmk(File::Spec->catpath($volm,$path,''), $NoFtlPth);
BTW, using this module has made our tasks a lot easier and avoided a
shell-out. Thank you!