X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_undocumented;h=03a4ea7ed7039a19f9d2d07eebac01590d792e7c;hb=fb8f18f4a98669c3b85e1bd7920fbabfc00b886e;hp=93328ad05bfbf086b0f0f0db6b75e085f2ec650d;hpb=67b74298f08a3e2b30e43cbcd7cdaccc2e1b1614;p=debhelper.git

diff --git a/dh_undocumented b/dh_undocumented
index 93328ad..03a4ea7 100755
--- a/dh_undocumented
+++ b/dh_undocumented
@@ -1,53 +1,38 @@
 #!/usr/bin/perl -w
-#
-# Passed a list of undocumented man pages, generates symlinks to
-# undocumented.7.gz for those man pages.
-#
-# Also, it looks for debian/undocumented files for more lists of
-# undocumented man pages.
 
+=head1 NAME
+
+dh_undocumented - undocumented.7 symlink program (deprecated no-op)
+
+=cut
+
+use strict;
 use Debian::Debhelper::Dh_Lib;
+
+=head1 SYNOPSIS
+
+Do not run!
+
+=head1 DESCRIPTION
+
+This program used to make symlinks to the F<undocumented.7> man page for man
+pages not present in a package. Debian policy now frowns on use of the
+F<undocumented.7> man page, and so this program does nothing, and should not
+be used.
+
+=cut
+
 init();
+warning("This program does nothing and should no longer be used.");
+
+=head1 SEE ALSO
+
+L<debhelper(7)>
+
+This program is a part of debhelper.
+
+=head1 AUTHOR
+
+Joey Hess <joeyh@debian.org>
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-	$TMP=tmpdir($PACKAGE);
-	$undocumented=pkgfile($PACKAGE,"undocumented");
-
-	@undoc=();
-	if ($undocumented) {
-		@undoc=filearray($undocumented);
-	}
-
-	if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
-		push @undoc, @ARGV;
-	}	
-
-	foreach $file (@undoc) {
-		$file=~s/.gz$//; # .gz extension is optional in input.
-
-		# Determine what directory the file belongs in,
-		# /usr/share/man, or /usr/X11R6/man, and how the link to
-		# the undocuemtned.7 man page will look.
-		($section)=$file=~m/^.*\.(\d)/;
-		if (!$section) {
-			error("\"$file\" does not have an extension.");
-		}	
-		if ($file=~/.*\.\dx/) {
-			$dir="usr/X11R6/man/man$section";
-			$reldir="../../../share/man/man7/";
-		}
-		elsif ($section != 7) {
-			$dir="usr/share/man/man$section";
-			$reldir="../man7/";
-		}
-		else {
-			$dir="usr/share/man/man$section";
-			$reldir="";
-		}
-
-		if (! -d "$TMP/$dir") {
-			doit("install","-d","$TMP/$dir");
-		}
-		doit("ln","-sf","${reldir}undocumented.7.gz","$TMP/$dir/$file.gz");
-	}
-}
+=cut