diff options
Diffstat (limited to 'util')
-rwxr-xr-x | util/clean-depend.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/util/clean-depend.pl b/util/clean-depend.pl index 30197b798d..f29192f246 100755 --- a/util/clean-depend.pl +++ b/util/clean-depend.pl @@ -3,6 +3,11 @@ # Written by Ben Laurie <ben@algroup.co.uk> 19 Jan 1999 use strict; +use Cwd; + +my $path = getcwd(); +$path =~ /([^\/]+)$/; +$path = $1; while(<STDIN>) { print; @@ -56,6 +61,8 @@ foreach $file (sort keys %files) { # Remove leading ./ before sorting my @deps = map { $_ =~ s/^\.\///; $_ } @{$files{$file}}; + # Remove ../thisdir/ + @deps = map { $_ =~ s|^../$path/||; $_ } @deps; foreach $dep (sort @deps) { $dep=~s/^\.\///; |