wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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:26 +00:00
parent fd8766b67e
commit 2028c2800a
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 @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";
}