/usr/bin/dh_update_autotools_config is in debhelper 9.20160115ubuntu3.
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 | #!/usr/bin/perl
=head1 NAME
dh_update_autotools_config - Update autotools config files
=cut
use strict;
use warnings;
use Debian::Debhelper::Dh_Lib;
=head1 SYNOPSIS
B<dh_update_autotools_config> [S<I<debhelper options>>]
=head1 DESCRIPTION
B<dh_update_autotools_config> replaces all occurrences of B<config.sub>
and B<config.guess> in the source tree by the up-to-date versions
found in the autotools-dev package. The original files are backed up
and restored by B<dh_clean>.
=cut
init();
for my $basename (qw(config.guess config.sub)) {
my $new_version = "/usr/share/misc/$basename";
open(my $fd, '-|', 'find', '-mindepth', '1',
'(', '-type', 'd', '-name', '.*', '-prune', ')',
'-o', '-type', 'f', '-name', $basename, '-print')
or error("Cannot run find -type f -name $basename: $!");
while (my $filename = <$fd>) {
chomp($filename);
next if not is_autotools_config_file($filename);
restore_file_on_clean($filename);
doit('cp', '-f', $new_version, $filename);
}
close($fd);
}
sub is_autotools_config_file {
my ($file) = @_;
my ($saw_timestamp);
open(my $fd, '<', $file) or error("open $file for reading failed: $!");
while (my $line = <$fd>) {
chomp($line);
# This is the test lintian uses.
if ($line =~ m{^timestamp=['"]\d{4}-\d{2}-\d{2}['"]\s*$}) {
$saw_timestamp = 1;
last;
}
last if $. >= 10;
}
close($fd);
return $saw_timestamp;
}
=head1 SEE ALSO
L<debhelper(7)>
This program is a part of debhelper.
=head1 AUTHOR
Niels Thykier <niels@thykier.net>
=cut
# Local Variables:
# indent-tabs-mode: t
# tab-width: 4
# cperl-indent-level: 4
# End:
|