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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#!/usr/bin/perl
=head1 NAME
dh_installinfo - install info files
=cut
use strict;
use warnings;
use Debian::Debhelper::Dh_Lib;
our $VERSION = DH_BUILTIN_VERSION;
=head1 SYNOPSIS
B<dh_installinfo> [S<I<debhelper options>>] [B<-A>] [S<I<file> ...>]
=head1 DESCRIPTION
B<dh_installinfo> is a debhelper program that is responsible for installing
info files into F<usr/share/info> in the package build directory.
=head1 FILES
=over 4
=item debian/I<package>.info
List info files to be installed.
=back
=head1 OPTIONS
=over 4
=item B<-A>, B<--all>
Install all files specified by command line parameters in ALL packages
acted on.
=item B<--sourcedir=>I<dir>
Look in the specified directory for files to be installed. This option
requires compat 11 or later (it is silently ignored in compat 10 or earlier).
Note that this is not the same as the B<--sourcedirectory> option used
by the B<dh_auto_>I<*> commands. You rarely need to use this option, since
B<dh_installinfo> automatically looks for files in F<debian/tmp> in debhelper
compatibility level 11 and above.
=item I<file> ...
Install these info files into the first package acted on. (Or in
all packages if B<-A> is specified).
=back
=cut
init();
# PROMISE: DH NOOP WITHOUT info
my @search_dirs = ('.');
my $error_handler = compat(10) ? \&glob_expand_error_handler_warn_and_discard : \&glob_expand_error_handler_reject;
my $nodocs = is_build_profile_active('nodoc') ? 1 : 0;
# We cannot assume documentation is built under nodoc, but if it is we must flag it as handled
# or dh_missing might make noise.
$error_handler = \&glob_expand_error_handler_silently_ignore if $nodocs;
@search_dirs = ($dh{SOURCEDIR} // '.', 'debian/tmp') if not compat(10);
foreach my $package (getpackages()) {
my $tmp=tmpdir($package);
my $file=pkgfile($package,"info");
my @info;
if ($file) {
@info = filearray($file, \@search_dirs, $error_handler) if $file;
}
if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
# The split is for bug-backwards compatibility (#867866).
push(@info, map { split } @ARGV);
}
next if not process_pkg($package) or $nodocs;
if (@info) {
install_dir("$tmp/usr/share/info");
xargs(\@info, "cp", '--reflink=auto', XARGS_INSERT_PARAMS_HERE, "$tmp/usr/share/info");
doit("chmod","-R", "go=rX","$tmp/usr/share/info/");
doit("chmod","-R", "u+rw","$tmp/usr/share/info/");
}
}
=head1 SEE ALSO
L<debhelper(7)>
This program is a part of debhelper.
=head1 AUTHOR
Joey Hess <joeyh@debian.org>
=cut
|
