Select Code to Download

#!/usr/bin/perl

...
$c->load_fromdb($dbh, 'HEAD');
print "\$c object holds " . scalar(keys %$c) . " elements\n";
$c->save_todb($dbh, 'TRY');

DB handler: DBI::db=HASH(0x824be28)
load_fromdb: got HASH(0x8231a10)
...
localised $dbh->{RaiseError}, became SCALAR(0x81bf144)
$dbh is DBI::db=HASH(0x824be28)
Attempt to free unreferenced scalar: SV 0x81bf1f8.

poletti@flaviox ~> perl -v                                            
+                                    
This is perl, v5.8.6 built for i386-linux

$DBI::VERSION = "1.40"; # From Slackware