From 57c5b4de544c1609597e568da88195290eeef4c3 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 15 Nov 1998 05:27:48 +0000 Subject: [PATCH] bugfix for new configuration layout --- site_perl/UID.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/site_perl/UID.pm b/site_perl/UID.pm index c9ecd8fc9..156bd3024 100644 --- a/site_perl/UID.pm +++ b/site_perl/UID.pm @@ -223,7 +223,7 @@ sub getsecrets { die "Illegal mapsecrets line for user?!" unless $secrets; ($datasrc, $db_user, $db_pass) = $conf->config($secrets) or die "Can't get secrets: $!"; - $FS::Conf::default_dir .= "/conf.$datasrc"; + $FS::Conf::default_dir = $conf_dir. "/conf.$datasrc"; ($datasrc, $db_user, $db_pass); } @@ -239,6 +239,10 @@ coderef into the hash %FS::UID::callback : $coderef = sub { warn "Hi, I'm returning your call!" }; $FS::UID::callback{'Package::Name'}; +=head1 VERSION + +$Id: UID.pm,v 1.6 1998-11-15 05:27:48 ivan Exp $ + =head1 BUGS Too many package-global variables. @@ -283,7 +287,10 @@ inlined suidsetup ivan@sisd.com 98-sep-12 $Log: UID.pm,v $ -Revision 1.5 1998-11-15 00:51:51 ivan +Revision 1.6 1998-11-15 05:27:48 ivan +bugfix for new configuration layout + +Revision 1.5 1998/11/15 00:51:51 ivan eliminated some warnings on certain fatal errors (well, it is less confusing) Revision 1.4 1998/11/13 09:56:52 ivan -- 2.20.1