+debhelper (1.1.15) unstable; urgency=medium
+
+ * dh_installmanpages: the new perl version had a nasty habit of
+ installing .so.x library files as man pages. Fixed.
+ * dh_installmanpages: the code to exclude searching for man pages in
+ debian/tmp directories was broken. Fixed.
+
+ -- Joey Hess <joeyh@master.debian.org> Mon, 31 Aug 1998 00:05:17 -0700
+
debhelper (1.1.14) unstable; urgency=low
* Debhelper now has a web page at http://kitenet.net/programs/debhelper/
complex_doit "find $TMP/usr/man/ $TMP/usr/X11*/man/ -type f \
$FIND_OPTIONS -print0 2>/dev/null | xargs -0r chmod 644"
- # ..and so are executable shared libraries (and .la files from libtool)
+ # ..and so are executable shared and static libraries
+ # (and .la files from libtool)
complex_doit "find $TMP -perm -5 -type f \
- \( -name "*.so*" -or -name "*.la" \) $FIND_OPTIONS -print0 \
+ \( -name "*.so*" -or -name "*.la" -or -name "*.a" \) $FIND_OPTIONS -print0 \
2>/dev/null | xargs -0r chmod a-X"
done
# Check if a file is a man page, for use by File::Find.
my @manpages;
+my @allpackages;
sub find_man {
# Does its filename look like a man page?
# .ex files are examples installed by deb-make,
if (! (-f $_ && /^.*\.[1-9].*$/ && ! /\.(ex|in)$/)) {
return;
}
+
# It's not in a tmp directory is it?
if ($File::Find::dir=~m:debian/.*tmp.*:) {
return;
}
+ foreach $dir (@allpackages) {
+ if ($File::Find::dir=~m:debian/$dir:) {
+ return;
+ }
+ }
+
# And file does think it's a real man page?
- if (! `file $_`=~/roff/) {
+ my $type=`file $_`;
+ if ($type !~ m/:.*roff/) {
return;
}
# Find all filenames that look like man pages.
@manpages=();
+ @allpackages=GetPackages('');
find(\&find_man,'.'); # populates @manpages
foreach $page (@manpages) {