aboutsummaryrefslogtreecommitdiffstats
path: root/relative_me_babe
diff options
context:
space:
mode:
Diffstat (limited to 'relative_me_babe')
-rwxr-xr-xrelative_me_babe20
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");
- }
-}