From 0a74190d1ee254f9d40cd875e65263305fd1c739 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 7 Jun 2006 13:06:03 +0000 Subject: Replace relative_me_babe by relink_symlinks, by Guillaume Rousse (bug #22983) --- relink_symlinks | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 relink_symlinks (limited to 'relink_symlinks') diff --git a/relink_symlinks b/relink_symlinks new file mode 100644 index 0000000..5ad5234 --- /dev/null +++ b/relink_symlinks @@ -0,0 +1,25 @@ +#!/usr/bin/perl +# relativize absolute symlinks + +use strict; +use File::Find; + +sub relativize { + return unless -l $_; + + my $link = readlink($_); + return unless $link =~ m{^/}; + + $link =~ s{^/}{}; + my $dirname = $File::Find::dir; + $dirname =~ s/^$ENV{RPM_BUILD_ROOT}//; + $dirname =~ s{/[^/]+}{../}g; + + unlink $_; + symlink $dirname . $link, $_; +} + +die "No build root defined\n" unless $ENV{RPM_BUILD_ROOT}; + +$ENV{RPM_BUILD_ROOT} =~ s{/$}{}; +find(\&relativize, $ENV{RPM_BUILD_ROOT}); -- cgit v1.2.1