in reply to bug search!!
you forgot a ; in line 238
$calfilename=&gencalfn($corresonedname,$comparison);
In Section
Seekers of Perl Wisdom
in reply to bug search!!
$calfilename=&gencalfn($corresonedname,$comparison);