generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Parse directory using both slashes and backslashes as separators.

Browse Source 
Do file copying in term of perl statements instead of using cp.
Part of PR: 75
This commit is contained in:
Richard Levitte 2002-06-13 19:50:37 +00:00
parent 1ef5026ef9
commit e888074bb4
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
util/mklink.pl
View File

@ -18,10 +18,10 @@
my $from = shift; my $from = shift;
my @files = @ARGV; my @files = @ARGV;
my @from_path = split(/\//, $from); my @from_path = split(/[\\\/]/, $from);
my $pwd = `pwd`; my $pwd = `pwd`;
chop($pwd); chop($pwd);
my @pwd_path = split(/\//, $pwd); my @pwd_path = split(/[\\\/]/, $pwd);
my @to_path = (); my @to_path = ();
@ -54,7 +54,16 @@ foreach $file (@files) {
if ($symlink_exists) { if ($symlink_exists) {
symlink("$to/$file", "$from/$file") or $err = " [$!]"; symlink("$to/$file", "$from/$file") or $err = " [$!]";
} else { } 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"; print $file . " => $from/$file$err\n";
} }