Changeset 983

Timestamp:

2000-02-28T11:11:18+13:00 (24 years ago)

Author:

sjboddie

Message:

link() function isn't supported on windows - use copy

File:

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

trunk/gsdl/perllib/util.pm

@@ -274 +274 @@
 # make hard link to file if supported by OS, otherwise copy the file
 sub hard_link {
-    my ($src,$dest) = @_;
+    my ($src, $dest) = @_;
 
     # remove trailing slashes from source and destination files
@@ -297 +297 @@
     mk_all_dir($dest_dir) if (!-e $dest_dir);
 
-    if (!link($src,$dest))
-    {
+    # link not supported on wondows
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    &File::Copy::copy ($src, $dest);
+
+    } elsif (!link($src, $dest)) {
     print STDERR "util::hard_link: unable to create hard link. ";
     print STDERR " Attempting to copy file: $src -> $dest\n";
     &File::Copy::copy ($src, $dest);
     }
-    
 }
 
 # make soft link to file if supported by OS, otherwise return error
 sub soft_link {
-    my ($src,$dest) = @_;
+    my ($src, $dest) = @_;
 
     # remove trailing slashes from source and destination files
@@ -323 +325 @@
     mk_all_dir($dest_dir) if (!-e $dest_dir);
 
-    if (!symlink($src,$dest))
+    if (!symlink($src, $dest))
     {
     print STDERR "util::soft_link: unable to create soft link.";