/usr/bin/dh_autoreconf_clean is in dh-autoreconf 14.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | #!/usr/bin/perl -w
=head1 NAME
dh_autoreconf_clean - Clean all changes made by dh_autoreconf
=cut
use strict;
use Debian::Debhelper::Dh_Lib;
=head1 SYNOPSIS
B<dh_autoreconf_clean> [S<I<debhelper options>>]
=head1 DESCRIPTION
dh_autoreconf_clean removes all files which have been created or changed
during the autoreconf call executed by L<dh_autoreconf(1)>. It also reverts
any ltmain.sh patch applied by dh_autoreconf.
=cut
init();
# autoreconf failed, just remove the 'before' file.
if (-r 'debian/autoreconf.before' && ! -r 'debian/autoreconf.after') {
doit("rm", "debian/autoreconf.before");
exit 0;
}
if (! -r 'debian/autoreconf.before' || ! -r 'debian/autoreconf.after') {
exit 0;
}
# Mapping of filename => md5sum.
my %file = ();
# An array of the names of the files which should be removed.
my @delete = ();
# Read the old files in
open(FILE, 'debian/autoreconf.before') or die($!);
while(<FILE>) {
chomp($_);
my ($checksum, $filename) = split(' ', $_, 2);
$file{$filename} = $checksum;
}
close(FILE);
# Read the new files
open(FILE, 'debian/autoreconf.after') or die($!);
my $ltcheck = "";
while(<FILE>) {
chomp($_);
my ($checksum, $filename) = split(' ', $_, 2);
if ($filename eq "/usr/share/libtool/build-aux/ltmain.sh") {
$ltcheck = $checksum;
} elsif ($filename eq "/usr/share/libtool/config/ltmain.sh") {
$ltcheck = $checksum;
} elsif (!defined($file{$filename}) || $file{$filename} ne $checksum) {
# Remove non-excluded, changed files
push @delete, $filename;
} elsif ($checksum eq $ltcheck) {
# A valid ltmain.sh, reverse patch
doit("patch", "-R", "-f", "--no-backup-if-mismatch", "-i",
"/usr/share/dh-autoreconf/ltmain-as-needed.diff",
$filename);
}
}
close(FILE);
# Cleanup
doit("rm", "-f", "--", @delete) if @delete;
doit("rm", "-f", "debian/autoreconf.before", "debian/autoreconf.after");
=head1 SEE ALSO
L<debhelper(7)>, L<dh_autoreconf(1)>, L<dh-autoreconf(7)>
=head1 AUTHOR
Julian Andres Klode <jak@debian.org>
=cut
|