| Index: openssl/util/mklink.pl
 | 
| ===================================================================
 | 
| --- openssl/util/mklink.pl	(revision 105093)
 | 
| +++ openssl/util/mklink.pl	(working copy)
 | 
| @@ -15,21 +15,13 @@
 | 
|  # Apart from this, this script should be able to handle even the most
 | 
|  # pathological cases.
 | 
|  
 | 
| -my $pwd;
 | 
| -eval 'use Cwd;';
 | 
| -if ($@)
 | 
| -	{
 | 
| -	$pwd = `pwd`;
 | 
| -	}
 | 
| -else
 | 
| -	{
 | 
| -	$pwd = getcwd();
 | 
| -	}
 | 
| +use Cwd;
 | 
|  
 | 
|  my $from = shift;
 | 
|  my @files = @ARGV;
 | 
|  
 | 
|  my @from_path = split(/[\\\/]/, $from);
 | 
| +my $pwd = getcwd();
 | 
|  chomp($pwd);
 | 
|  my @pwd_path = split(/[\\\/]/, $pwd);
 | 
|  
 | 
| @@ -59,6 +51,7 @@
 | 
|  
 | 
|  my $file;
 | 
|  $symlink_exists=eval {symlink("",""); 1};
 | 
| +if ($^O eq "msys") { $symlink_exists=0 };
 | 
|  foreach $file (@files) {
 | 
|      my $err = "";
 | 
|      if ($symlink_exists) {
 | 
| 
 |