getsecrets;
$dbh = DBI->connect($datasrc,$db_user,$db_pass, {
'AutoCommit' => 0,
- 'ChopBlanks' => 1,
+ #'ChopBlanks' => 1,
} ) or die "DBI->connect error: $DBI::errstr\n";
foreach ( keys %callback ) {
&{$callback{$_}};
+ # breaks multi-database installs # delete $callback{$_}; #run once
}
$dbh;
=head1 VERSION
-$Id: UID.pm,v 1.14 2002-02-23 07:00:21 ivan Exp $
+$Id: UID.pm,v 1.21 2002-09-27 12:14:12 ivan Exp $
=head1 BUGS