better error message about missing secrets file errors. WTF is going on!

diff --git a/FS/FS/UID.pm b/FS/FS/UID.pm
index da573a6..986692f 100644 (file)
--- a/FS/FS/UID.pm
+++ b/FS/FS/UID.pm
@@ -294,7 +294,7 @@ sub getsecrets {
 
   ($datasrc, $db_user, $db_pass) = 
     map { /^(.*)$/; $1 } readline(new IO::File "$conf_dir/$secrets")
-      or die "Can't get secrets: $secrets: $!\n";
+      or die "Can't get secrets: $conf_dir/$secrets: $!\n";
   undef $driver_name;
   ($datasrc, $db_user, $db_pass);
 }