index f824b5db813a981ede31693891315f8b798c4a42..87a28578298fd50299e0ffe0a60a6caa0080af7d 100755 (executable)
print STDERR "$del_cmd\n";
system($del_cmd);
-
- my $ln_cmd = "ln -s ".$gosa_path.$file_name." $new_file";
+ my $abs_file = File::Spec->catfile($gosa_path, $file_name);
+ my $ln_cmd = "ln -s $abs_file $new_file";
print STDERR "$ln_cmd\n";
system($ln_cmd);