请大家帮我看看这个程序是否有错[求助]

请大家帮我看看这个程序是否有错[求助]
sub do_ftptest_put
{
if(-d "$testcasedir")
{
my @filelist = `ls $testcasedir`;
for my $casebox (@filelist)
{
chomp($casebox);
if(-d "$casebox")
{
my @caselist = `ls $casebox`;
for my $casename (@caselist)
{
chomp ($casename);
$filepath = "$casename";
chdir($casename);
do_ftpsinglefile_put($filepath);
}
}
elsif(-f "$casebox")
{
$filepath = "$casebox";
chdir($casebox);
do_ftpsinglefile_put($filepath);
}
}
}
elsif(-f "$testcasedir")
{
$filepath = "$testcasedir";
chdir($testcasedir);
do_ftpsinglefile_put($filepath);
}
else
{
errlog("Error filename or directory.");
return "error filepath";
}
}
运行时,没有报错,就是没有完成他的功能,
[CCB]10[/CCB]

我刚刚在编译状态下运行，.
我刚刚在编译状态下运行，报错信息为if(-d "$casebox")这行Unsuccessful stat on filename containing newline
改为$testcasedir/$casebox还是报同样信息[CCB]10[/CCB][CCB]12[/CCB]