#!/usr/local/bin/perl
-# mklink.pl -- a faster substitute for mklink.sh.
+# mklink.pl
# The first command line argument is a non-empty relative path
# specifying the "from" directory.
my $file;
foreach $file (@files) {
-# print "ln -s $to/$file $from/$file\n";
- symlink("$to/$file", "$from/$file");
- print $file . " => $from/$file\n";
+ my $err = "";
+ symlink("$to/$file", "$from/$file") or $err = " [$!]";
+ print $file . " => $from/$file$err\n";
}