Stuck in perl subroutine

software development

#1

Can you tell my this sytax doesn’t ever come out of perlchartdir::chartTime?

76 $layer->addDataSet(@chinook, -1, “Chinook”)->setLineWidth(3);
77 $layer->addDataSet(@steelhead, -1, “Steelhead”)->setLineWidth(3);
78 $layer->addDataSet(@wsteelhead, -1, “Wild Steelhead”)->setLineWidth(3);
79 $layer->setBorderColor($perlchartdir::Transparent, 1);
80 @date = map { perlchartdir::chartTime($_) } @date;
81 $layer->setXData(@date);
82

but it drops into perlchartdir::chartTime and never returns. Eventually my host kills it. perl -d shows this:

main::frowning:dbroza5.pl:80): @date = map { perlchartdir::chartTime($) } @date;
DB<2>
main::frowning:dbroza5.pl:80): @date = map { perlchartdir::chartTime($
) } @date;
DB<2>
perlchartdir::chartTime(perlchartdir.pm:2132):
2132: if (scalar(@) < 3) { return chartTime(@); }
100 levels deep in subroutine calls!
DB<2> n
perlchartdir::chartTime(perlchartdir.pm:2132):
2132: if (scalar(@) < 3) { return chartTime(@); }


DB<2> w
2129
2130 sub chartTime
2131 {
2132==> if (scalar(@) < 3) { return chartTime(@); }
2133: return func(“chartTime”, @_, 6, 0, 0, 0);
2134 }
2135
2136 sub chartTime2