bugfix path building

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@13562 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/tests/deploy-gosa-si.pl b/gosa-si/tests/deploy-gosa-si.pl
index f824b5db813a981ede31693891315f8b798c4a42..87a28578298fd50299e0ffe0a60a6caa0080af7d 100755 (executable)
--- a/gosa-si/tests/deploy-gosa-si.pl
+++ b/gosa-si/tests/deploy-gosa-si.pl
@@ -72,8 +72,8 @@ while( my($new_file, $file_name) = each %copies ) {
     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);