r146: Initial Import

[debhelper.git] / dh_strip

diff --git a/dh_strip b/dh_strip
index daea754c16ceff4859319b0d576abe4dbd2ab62c..ad5d40a82bc360df7c24fc7fc5b1f5a3ecf9853c 100755 (executable)
--- a/dh_strip
+++ b/dh_strip
@@ -1,30 +1,71 @@
-#!/bin/sh -e
+#!/usr/bin/perl -w
 #
 # Strip files.
 
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
+use File::Find;
+BEGIN { push @INC, "debian", "/usr/lib/debhelper" }
+use Dh_Lib;
+init();
 
-for PACKAGE in $DH_DOPACKAGES; do
-       TMP=`tmpdir $PACKAGE`
+# 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",$_);
+       }
        
-       # Handle executables and shared libraries.
-       for file in `find $TMP -type f \( -perm +111 -or -name "*.so*" \) 2>/dev/null` ; do
-               case "`file $file`" in
-                       *ELF*shared*)
-                               doit "strip --strip-unneeded $file"
-                       ;;
-                       *ELF*executable*)
-                               doit "strip --remove-section=.comment --remove-section=.note $file"
-                       ;;
-               esac
-       done
-
-       # Handle static libraries.
-       for file in `find $TMP -type f -name "lib*.a" 2>/dev/null` ; do
-               # Don't strip debug libraries.
-               if ! expr "$file" : ".*_g\.a" >/dev/null ; then
-                       doit "strip --strip-debug $file"
-               fi
-       done
-done
+       foreach (@executables) {
+               doit("strip","--remove-section=.comment","--remove-section=.note",$_);
+       }
+
+       foreach (@static_libs) {
+               doit("strip","--strip-debug",$_);
+       }
+}