=cut
-init();
+init(options => {
+ "keep-debug" => \$dh{K_FLAG},
+});
# This variable can be used to turn off stripping (see Policy).
if (defined $ENV{DEB_BUILD_OPTIONS} && $ENV{DEB_BUILD_OPTIONS} =~ /nostrip/) {
return if $fn=~m/debug\/.*\.so/;
# Does its filename look like a shared library?
- if (m/.*\.so.*?/) {
+ # (*.cmxs are OCaml native code shared libraries)
+ if (m/.*\.(so.*?|cmxs$)/) {
# Ok, do the expensive test.
my $type=get_file_type($_);
if ($type=~m/.*ELF.*shared.*/) {
if (m/lib.*\.a$/ && ! m/.*_g\.a$/) {
# Is it a binary file, or something else (maybe a liner
# script on Hurd, for example? I don't use file, because
- # file returns a varity of things on static libraries.
+ # file returns a variety of things on static libraries.
if (-B $_) {
push @static_libs, $fn;
return;