Help for this page

Select Code to Download


  1. or download this
    Attempt to free unreferenced scalar: SV 0x12289c at /opt/ActivePerl-5.
+8.2/lib/site_perl/5.8.2/sun4-solaris-thread-multi/DBI.pm line 626.
Attempt to free unreferenced scalar: SV 0x12289c at /opt/ActivePerl-5.
+8.2/lib/5.8.2/sun4-solaris-thread-multi/IO/Socket.pm line 46.
  2. or download this
    sub mydie{
    kill "SIGTERM", $$; # suicide!
}
  3. or download this
    my ($data, $dbh);
my %locks : shared = ();
...
    $handle->finish();
    return \%db;
}