Changeset 2039

Timestamp:

2001-02-21T16:07:14+13:00 (23 years ago)

Author:

jrm21

Message:

do eval{symlink()} because platforms that don't support symlink generate
a run-time error.

File:

• trunk/gsdl/perllib/util.pm (modified) (1 diff)

trunk/gsdl/perllib/util.pm

@@ -326 +326 @@
     mk_all_dir($dest_dir) if (!-e $dest_dir);
 
-    if (!symlink($src, $dest))
+    if (!eval {symlink($src, $dest)})
     {
     print STDERR "util::soft_link: unable to create soft link.";