diff options
author | Richard Levitte <levitte@openssl.org> | 2015-03-31 17:19:43 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2015-03-31 20:16:01 +0200 |
commit | a72d89fda6a97e47fa65d49c50b6d4649a4965e2 (patch) | |
tree | e1bf0af33e63675832af8df17409f147828da07b /util | |
parent | 0190de80d57ec234f4b15bdab0efd71264239c62 (diff) | |
download | openssl-a72d89fda6a97e47fa65d49c50b6d4649a4965e2.tar.gz |
Now that we've removed the need for symlinks, we can safely remove util/mklinks.pl
Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'util')
-rwxr-xr-x | util/mklink.pl | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/util/mklink.pl b/util/mklink.pl deleted file mode 100755 index 61db12c68f..0000000000 --- a/util/mklink.pl +++ /dev/null @@ -1,73 +0,0 @@ -#!/usr/local/bin/perl - -# mklink.pl - -# The first command line argument is a non-empty relative path -# specifying the "from" directory. -# Each other argument is a file name not containing / and -# names a file in the current directory. -# -# For each of these files, we create in the "from" directory a link -# of the same name pointing to the local file. -# -# We assume that the directory structure is a tree, i.e. that it does -# not contain symbolic links and that the parent of / is never referenced. -# Apart from this, this script should be able to handle even the most -# pathological cases. - -use Cwd; - -my $from = shift; -my @files = @ARGV; - -my @from_path = split(/[\\\/]/, $from); -my $pwd = getcwd(); -chomp($pwd); -my @pwd_path = split(/[\\\/]/, $pwd); - -my @to_path = (); - -my $dirname; -foreach $dirname (@from_path) { - - # In this loop, @to_path always is a relative path from - # @pwd_path (interpreted is an absolute path) to the original pwd. - - # At the end, @from_path (as a relative path from the original pwd) - # designates the same directory as the absolute path @pwd_path, - # which means that @to_path then is a path from there to the original pwd. - - next if ($dirname eq "" || $dirname eq "."); - - if ($dirname eq "..") { - @to_path = (pop(@pwd_path), @to_path); - } else { - @to_path = ("..", @to_path); - push(@pwd_path, $dirname); - } -} - -my $to = join('/', @to_path); - -my $file; -$symlink_exists=eval {symlink("",""); 1}; -if ($^O eq "msys") { $symlink_exists=0 }; -foreach $file (@files) { - my $err = ""; - if ($symlink_exists) { - unlink "$from/$file"; - symlink("$to/$file", "$from/$file") or $err = " [$!]"; - } else { - 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"; -} |