r122: Initial Import
authorjoey <joey>
Tue, 17 Aug 1999 05:01:13 +0000 (05:01 +0000)
committerjoey <joey>
Tue, 17 Aug 1999 05:01:13 +0000 (05:01 +0000)
debian/changelog
dh_fixperms
dh_installmanpages

index 651c20a57fb1e6656bb94fc3de1204aaf4dc966f..bb95dc097589ea10792554f4927e6260e704f10e 100644 (file)
@@ -1,3 +1,12 @@
+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/
index 0e845335cb8f6327cf44142f3c4347df92b1fc2c..b36f68c89d4b78e176f3bd29d6bd00aed5650ab1 100755 (executable)
@@ -42,8 +42,9 @@ for PACKAGE in $DH_DOPACKAGES; do
        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
index 34d332899a548d75c3bfef7b78a2c45d41b3d02b..24772e5d92762911fa3ae6b186a1c8ac9418ab85 100755 (executable)
@@ -13,6 +13,7 @@ init();
 
 # 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,
@@ -21,12 +22,20 @@ sub find_man {
        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;
        }
 
@@ -68,6 +77,7 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 
        # Find all filenames that look like man pages.
        @manpages=();
+       @allpackages=GetPackages('');
        find(\&find_man,'.'); # populates @manpages
        
        foreach $page (@manpages) {