$userspath kommt aus dem globalen Namensraum. Ging mit dem letzten Commit kaputt...

diff --git a/SL/User.pm b/SL/User.pm
index 2b067c1d67e5fe477245becc5f4e06b9ed559c63..0fb72d9fa4abb0dadfc6b75ffde49756926d429d 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -1030,6 +1030,8 @@ sub create_config {
 
   @config = config_vars();
 
 
   @config = config_vars();
 

+  my $userspath = $main::userspath;
+

   open(CONF, ">", "$userspath/$self->{login}.conf") || $self->error("$userspath/$self->{login}.conf : $!");
 
   # create the config file
   open(CONF, ">", "$userspath/$self->{login}.conf") || $self->error("$userspath/$self->{login}.conf : $!");
 
   # create the config file