New function X509_get0_pubkey

[openssl.git] / util / clean-depend.pl

diff --git a/util/clean-depend.pl b/util/clean-depend.pl
index 30197b798d4d04cbb5f9718b9cff765f42e84dac..f29192f246e63de52308117f3103d717b7c60078 100755 (executable)
--- 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/^\.\///;