Hi all,
I am geting this error message while trying to run my perl script.
Can't modify reference constructor in untie at ./keeq.pl line 320, near
"$dbref)"
BEGIN not safe after errors--compilation aborted at ./keeq.pl line 327.
below is few portion of my script. Let me know if you can help me to guess
possible problem.
298
299 sub open_db
300 {
301 my ($dbname) = @_;
302 my (%lic_tieref) = ();
303 my (%cust_tieref) = ();
304
305 if ($dbname eq "license") {
306 tie(%lic_tieref, "SDBM_File", "$lic_datfile", O_RDWR|O_CREAT,
0644);
307 return(\%lic_tieref);
308 }
309 else {
310 tie(%cust_tieref, "SDBM_File", "$cust_datfile", O_RDWR|O_CREAT,
0644);
311 return(\%cust_tieref);
312 }
313
314 }
315
316 sub close_db
317 {
318 my ($dbref) = @_;
319
320 untie(\%$dbref);
321 }
322
323 sub load_db
324 {
325
326 # Convert the current format to Seconds since Jan.1 1970
327 use Time::JulianDay;
328
329 my ($flag,$eventcode,$cust_email,$date);
330 my (%recs) = ();
331
332 tie(%recs, "SDBM_File", "$cust_datfile", O_RDWR|O_CREAT, 0644);
333
334 open(REC, "keeq.log") or die "keeq.log ($!)\n";
335
Thanks
As
