← Back to branch summary

~ubuntu-branches/ubuntu/lucid/openssl/lucid-proposed

« back to all changes in this revision

Viewing changes to util/mklink.pl

  • Committer: Bazaar Package Importer
  • Author(s): Kurt Roeckx
  • Date: 2009-06-13 18:15:46 UTC
  • mto: (11.1.5 squeeze)
  • mto: This revision was merged to the branch mainline in revision 34.
  • Revision ID: james.westby@ubuntu.com-20090613181546-vbfntai3b009dl1u
Tags: upstream-0.9.8k
Import upstream version 0.9.8k

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/mklink.pl
15
15
# Apart from this, this script should be able to handle even the most
16
16
# pathological cases.
17
17
 
18
 
use Cwd;
 
18
my $pwd;
 
19
eval 'use Cwd;';
 
20
if ($@)
 
21
        {
 
22
        $pwd = `pwd`;
 
23
        }
 
24
else
 
25
        {
 
26
        $pwd = getcwd();
 
27
        }
19
28
 
20
29
my $from = shift;
21
30
my @files = @ARGV;
22
31
 
23
32
my @from_path = split(/[\\\/]/, $from);
24
 
my $pwd = getcwd();
25
33
chomp($pwd);
26
34
my @pwd_path = split(/[\\\/]/, $pwd);
27
35