diff options
Diffstat (limited to 'relative_me_babe')
-rwxr-xr-x | relative_me_babe | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/relative_me_babe b/relative_me_babe new file mode 100755 index 0000000..e390a18 --- /dev/null +++ b/relative_me_babe @@ -0,0 +1,21 @@ +#!/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 "Can't cd to $ENV{RPM_BUILD_ROOT}: $!"; + +push my @files, split(/\n/, `find -type l 2> /dev/null`); +for (@files) { + my $file = $_; + my $link=readlink($file); + if ($link =~ /^\//) { + $link =~ s|^/||; + # Ugly ? no simply chmou. + (my $dirname = $file) =~ s|/[^/]*$||; $dirname =~ s|/[^/]+|../|g; $dirname =~ s|^\.||; + system("ln -sf $dirname$link $file"); + } +} |