blob: f2414871e517d5fb3166f72788d054590389366e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
# -*- Mode: cperl -*-
# Copyright (C) 2000 by Chmouel Boudjnah <chmouel@mandrakesoft.com>
# Redistribution of this file is permitted under the terms of the GNU
# Public License (GPL)
## description: Convert full link to relative links.
my $r=$ENV{RPM_BUILD_ROOT};
chdir($r) or die "Can't cd to $ENV{RPM_BUILD_ROOT}: $!";
push my @files, split(/\n/, `find -type l 2> /dev/null`);
foreach my $file (@files) {
my $link = readlink($file);
if ($link =~ m!^/!) {
$link =~ s|^/||;
# Ugly ? no simply chmou.
(my $dirname = $file) =~ s|/[^/]*$||; $dirname =~ s|/[^/]+|../|g; $dirname =~ s|^\.||;
system("ln -sf $dirname$link $file");
}
}
|
