1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!/usr/bin/perl -w
#
# Strip files.
use File::Find;
BEGIN { push @INC, "debian", "/usr/share/debhelper" }
use Dh_Lib;
init();
# Check if a file is an elf binary, shared library, or static library,
# for use by File::Find. It'll fill the following 3 arrays with anything
# it finds:
my (@shared_libs, @executables, @static_libs);
sub testfile {
return if -l $_ or -d $_; # Skip directories and symlinks always.
# See if we were asked to exclude this file.
# Note that we have to test on the full filename, including directory.
$fn="$File::Find::dir/$_";
foreach $f (@{$dh{EXCLUDE}}) {
return if ($fn=~m/\Q$f\E/);
}
# Does its filename look like a shared library?
if (m/.*\.so.*?/) {
# Ok, do the expensive test.
my $type=`file $_`;
if ($type=~m/.*ELF.*shared.*/) {
push @shared_libs, $fn;
return;
}
}
# Is it executable? -x isn't good enough, so we need to use stat.
(undef,undef,$mode,undef)=stat(_);
if ($mode & 0111) {
# Ok, expensive test.
my $type=`file $_`;
if ($type=~m/.*ELF.*executable.*/) {
push @executables, $fn;
return;
}
}
# Is it a static library, and not a debug library?
if (m/lib.*\.a/ && ! m/.*_g\.a/) {
push @static_libs, $fn;
return;
}
}
foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
$TMP=tmpdir($PACKAGE);
@shared_libs=@executables=@static_libs=();
find(\&testfile,$TMP);
foreach (@shared_libs) {
# Note that all calls to strip on shared libs
# *must* inclde the --strip-unneeded.
doit("strip","--remove-section=.comment","--remove-section=.note","--strip-unneeded",$_);
}
foreach (@executables) {
doit("strip","--remove-section=.comment","--remove-section=.note",$_);
}
foreach (@static_libs) {
doit("strip","--strip-debug",$_);
}
}
|
