Changeset 2193

Timestamp:

2001-03-19T10:46:39+12:00 (23 years ago)

Author:

sjboddie

Message:

soft_link function now acts as a simple "copy" function on windows

File:

• trunk/gsdl/perllib/util.pm (modified) (3 diffs)

trunk/gsdl/perllib/util.pm

@@ -298 +298 @@
     mk_all_dir($dest_dir) if (!-e $dest_dir);
 
-    # link not supported on wondows
+    # link not supported on windows
     if ($ENV{'GSDLOS'} =~ /^windows$/i) {
     &File::Copy::copy ($src, $dest);
@@ -309 +309 @@
 }
 
-# make soft link to file if supported by OS, otherwise return error
+# make soft link to file if supported by OS, otherwise copy file
 sub soft_link {
     my ($src, $dest) = @_;
@@ -326 +326 @@
     mk_all_dir($dest_dir) if (!-e $dest_dir);
 
-    if (!eval {symlink($src, $dest)})
-    {
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    # symlink not supported on windows
+    &File::Copy::copy ($src, $dest);
+
+    } elsif (!eval {symlink($src, $dest)}) {
     print STDERR "util::soft_link: unable to create soft link.";
     return 0;