foreach ( keys %callback ) {
&{$callback{$_}};
- delete $callback{$_}; #run once
+ # breaks multi-database installs # delete $callback{$_}; #run once
}
$dbh;
=head1 VERSION
-$Id: UID.pm,v 1.15 2002-06-14 09:19:33 ivan Exp $
+$Id: UID.pm,v 1.20 2002-09-20 10:16:28 ivan Exp $
=head1 BUGS