> The very first line alone contains several mistakes. <Bang Head against Desk>
of course... the "eq" versus "=" always gets me ;)
if ($ARGV[0] eq "-d") {
$debug=1;
open DEBUG, ">$path/debug.log";
DEBUG->autoflush(1);
$now=localtime;
print DEBUG "$now\n";
}
</Bang>
works fine now, thanks all...
Lars
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
