projects
/
oweals
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Policy validation fixes.
[oweals/openssl.git]
/
util
/
clean-depend.pl
diff --git
a/util/clean-depend.pl
b/util/clean-depend.pl
index 8e27aaae5e85d81eb4de2fabcbc6d93bc322042c..d3525b0ed06967b1309fd15f7c52fa242c45f9d8 100755
(executable)
--- a/
util/clean-depend.pl
+++ b/
util/clean-depend.pl
@@
-34,8
+34,17
@@
foreach $file (sort keys %files) {
my $dep;
my $origfile=$file;
$origfile=~s/\.o$/.c/;
my $dep;
my $origfile=$file;
$origfile=~s/\.o$/.c/;
+ $file=~s/^\.\///;
push @{$files{$file}},$origfile;
push @{$files{$file}},$origfile;
- foreach $dep (sort @{$files{$file}}) {
+ my $prevdep="";
+
+ # Remove leading ./ before sorting
+ my @deps = map { $_ =~ s/^\.\///; $_ } @{$files{$file}};
+
+ foreach $dep (sort @deps) {
+ $dep=~s/^\.\///;
+ next if $prevdep eq $dep; # to exterminate duplicates...
+ $prevdep = $dep;
$len=0 if $len+length($dep)+1 >= 80;
if($len == 0) {
print "\n$file:";
$len=0 if $len+length($dep)+1 >= 80;
if($len == 0) {
print "\n$file:";