summaryrefslogtreecommitdiff
path: root/crypto/openssl/util/clean-depend.pl
diff options
context:
space:
mode:
Diffstat (limited to 'crypto/openssl/util/clean-depend.pl')
-rwxr-xr-xcrypto/openssl/util/clean-depend.pl38
1 files changed, 0 insertions, 38 deletions
diff --git a/crypto/openssl/util/clean-depend.pl b/crypto/openssl/util/clean-depend.pl
deleted file mode 100755
index af676af751458..0000000000000
--- a/crypto/openssl/util/clean-depend.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/local/bin/perl -w
-# Clean the dependency list in a makefile of standard includes...
-# Written by Ben Laurie <ben@algroup.co.uk> 19 Jan 1999
-
-use strict;
-
-while(<STDIN>) {
- print;
- last if /^# DO NOT DELETE THIS LINE/;
-}
-
-my %files;
-
-while(<STDIN>) {
- my ($file,$deps)=/^(.*): (.*)$/;
- next if !defined $deps;
- my @deps=split ' ',$deps;
- @deps=grep(!/^\/usr\/include/,@deps);
- @deps=grep(!/^\/usr\/lib\/gcc-lib/,@deps);
- push @{$files{$file}},@deps;
-}
-
-my $file;
-foreach $file (sort keys %files) {
- my $len=0;
- my $dep;
- foreach $dep (sort @{$files{$file}}) {
- $len=0 if $len+length($dep)+1 >= 80;
- if($len == 0) {
- print "\n$file:";
- $len=length($file)+1;
- }
- print " $dep";
- $len+=length($dep)+1;
- }
-}
-
-print "\n";