X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_undocumented;h=03a4ea7ed7039a19f9d2d07eebac01590d792e7c;hb=18a0da8092ea9f3dc48bca92b36f592af25a608d;hp=ebde890499f98455cb835893e8fa921c97a92478;hpb=1e6dea44772a0c1f57e7cd50ff12e35a1cff0b96;p=debhelper.git

diff --git a/dh_undocumented b/dh_undocumented
index ebde890..03a4ea7 100755
--- a/dh_undocumented
+++ b/dh_undocumented
@@ -1,51 +1,38 @@
-#!/bin/sh -e
-#
-# Passed a list of undocumented man pages, generates symlinks to
-# undocumented.7 for those man pages.
-#
-# Also, it looks for debian/undocumented files for more lists of
-# undocumented man pages.
-
-PATH=debian:$PATH:/usr/lib/debhelper
-. dh_lib
-
-for PACKAGE in $DH_DOPACKAGES; do
-        TMP=`tmpdir $PACKAGE`
-	EXT=`pkgext $PACKAGE`
-
-	undoc=""
-
-	if [ -e debian/${EXT}undocumented ]; then
-		undoc=`tr "\n" " " < debian/${EXT}undocumented`
-	fi
-
-	if [ "$PACKAGE" = "$MAINPACKAGE" -a "$*" ]; then
-		undoc="$* $undoc"
-	fi
-
-	if [ "$undoc" ]; then
-		for file in $undoc; do
-			# Remove .gz extention from the filename, if present.
-			if [ `expr "$file" : '\(.*\).gz'` ]; then
-				file=`expr "$file" : '\(.*\).gz'`
-			fi
-
-			# Determine what directory the file belongs in,
-			# /usr/man, or /usr/X11R6/man.
-			section=`expr "$file" : '.*\.\([123456789]\)'`
-			if [ `expr "$file" : '.*\.[123456789]\(x\)'` ] ; then
-				dir=usr/X11R6/man/man$section
-				reldir=../../../man
-			else
-				dir=usr/man/man$section
-				reldir=..
-			fi
-
-			if [ ! -d debian/$TMP/$dir ]; then
-				doit "install -d debian/$TMP/$dir"
-			fi
-
-			doit ln -s $reldir/man7/undocumented.7.gz debian/$TMP/$dir/$file.gz
-		done
-	fi
-done
+#!/usr/bin/perl -w
+
+=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>
+
+=cut