← Back to branch summary

~sbeattie/ubuntu/oneiric/openssl/lp850608

« back to all changes in this revision

Viewing changes to util/mklink.pl

  • Committer: Bazaar Package Importer
  • Author(s): Colin Watson
  • Date: 2011-05-01 23:51:53 UTC
  • mfrom: (11.1.20 sid)
  • Revision ID: james.westby@ubuntu.com-20110501235153-bjcxitndquaezb68
Tags: 1.0.0d-2ubuntu1
https://launchpad.net/bugs/675566
* Resynchronise with Debian (LP: #675566).  Remaining changes:
  - debian/libssl1.0.0.postinst:
    + Display a system restart required notification bubble on libssl1.0.0
      upgrade.
    + Use a different priority for libssl1.0.0/restart-services depending
      on whether a desktop, or server dist-upgrade is being performed.
  - debian/{libssl1.0.0-udeb.dirs, control, rules}: Create
    libssl1.0.0-udeb, for the benefit of wget-udeb (no wget-udeb package
    in Debian).
  - debian/{libcrypto1.0.0-udeb.dirs, libssl1.0.0.dirs, libssl1.0.0.files,
    rules}: Move runtime libraries to /lib, for the benefit of
    wpasupplicant.
  - debian/patches/aesni.patch: Backport Intel AES-NI support, now from
    http://rt.openssl.org/Ticket/Display.html?id=2065 rather than the
    0.9.8 variant.
  - debian/patches/Bsymbolic-functions.patch: Link using
    -Bsymbolic-functions.
  - debian/patches/perlpath-quilt.patch: Don't change perl #! paths under
    .pc.
  - debian/rules:
    + Don't run 'make test' when cross-building.
    + Use host compiler when cross-building.  Patch from Neil Williams.
    + Don't build for processors no longer supported: i486, i586 (on
      i386), v8 (on sparc).
    + Fix Makefile to properly clean up libs/ dirs in clean target.
    + Replace duplicate files in the doc directory with symlinks.
* Update architectures affected by Bsymbolic-functions.patch.
* Drop debian/patches/no-sslv2.patch; Debian now adds the 'no-ssl2'
  configure option, which compiles out SSLv2 support entirely, so this is
  no longer needed.
* Drop openssl-doc in favour of the libssl-doc package introduced by
  Debian.  Add Conflicts/Replaces until the next LTS release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/mklink.pl
1
 
#!/usr/bin/perl
 
1
#!/usr/local/bin/perl
2
2
 
3
3
# mklink.pl
4
4
 
15
15
# Apart from this, this script should be able to handle even the most
16
16
# pathological cases.
17
17
 
18
 
my $pwd;
19
 
eval 'use Cwd;';
20
 
if ($@)
21
 
        {
22
 
        $pwd = `pwd`;
23
 
        }
24
 
else
25
 
        {
26
 
        $pwd = getcwd();
27
 
        }
 
18
use Cwd;
28
19
 
29
20
my $from = shift;
30
21
my @files = @ARGV;
31
22
 
32
23
my @from_path = split(/[\\\/]/, $from);
 
24
my $pwd = getcwd();
33
25
chomp($pwd);
34
26
my @pwd_path = split(/[\\\/]/, $pwd);
35
27
 
59
51
 
60
52
my $file;
61
53
$symlink_exists=eval {symlink("",""); 1};
 
54
if ($^O eq "msys") { $symlink_exists=0 };
62
55
foreach $file (@files) {
63
56
    my $err = "";
64
57
    if ($symlink_exists) {