Commit e888074b authored by Richard Levitte's avatar Richard Levitte
Browse files

Parse directory using both slashes and backslashes as separators. 

Do file copying in term of perl statements instead of using cp.
Part of PR: 75
parent 1ef5026e

util/mklink.pl

+12 −3
Original line number Diff line number Diff line
@@ -18,10 +18,10 @@ 
my $from = shift;

my @files = @ARGV;



my @from_path = split(/\//, $from);

my @from_path = split(/[\\\/]/, $from);

my $pwd = `pwd`;

chop($pwd);

my @pwd_path = split(/\//, $pwd);

my @pwd_path = split(/[\\\/]/, $pwd);



my @to_path = ();
@@ -54,7 +54,16 @@ foreach $file (@files) { 
    if ($symlink_exists) {

	symlink("$to/$file", "$from/$file") or $err = " [$!]";

    } else {

	system ("cp", "$file", "$from/$file") and $err = " [$!]";

	unlink "$from/$file"; 

	open (OLD, "<$file") or die "Can't open $file: $!";

	open (NEW, ">$from/$file") or die "Can't open $from/$file: $!";

	binmode(OLD);

	binmode(NEW);

	while (<OLD>) {

	    print NEW $_;

	}

	close (OLD) or die "Can't close $file: $!";

	close (NEW) or die "Can't close $from/$file: $!";

    }

    print $file . " => $from/$file$err\n";

}