diff options
Diffstat (limited to 'relative_me_babe')
-rwxr-xr-x | relative_me_babe | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/relative_me_babe b/relative_me_babe deleted file mode 100755 index f241487..0000000 --- a/relative_me_babe +++ /dev/null @@ -1,20 +0,0 @@ -#!/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"); - } -} |