From 57c5b4de544c1609597e568da88195290eeef4c3 Mon Sep 17 00:00:00 2001
From: ivan <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