diff options
| author | ivan <ivan> | 1998-11-15 05:27:48 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-15 05:27:48 +0000 |
| commit | 57c5b4de544c1609597e568da88195290eeef4c3 (patch) | |
| tree | 9a7646b8edbe3813f9275a98f0fd74163bde5455 /site_perl/UID.pm | |
| parent | e87d3cbbe4bc0737003a24647d431f72fc25f225 (diff) | |
bugfix for new configuration layout
Diffstat (limited to 'site_perl/UID.pm')
| -rw-r--r-- | site_perl/UID.pm | 11 |
1 files 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 |