in reply to lifetime of refs to DBI handles passed to sub as hash elements and assigned to scalar within it

Your question ask already been answered, but if you don't mind nitpickiness, you can simplify this line:
my ($rdb) = ((defined($param{'DB'})) && ($param{'DB'})) ? $param{'DB'}
+ : &openDatabase();

# to this: (BTW, Don't put parens around 'my' lvalues
# unless you want list context...)
my $rdb = $param{'DB'} || &openDatabase();

[download]
  • Comment on Re: lifetime of refs to DBI handles passed to sub as hash elements and assigned to scalar within it
  • Download Code

In Section Seekers of Perl Wisdom