X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_installpam;h=065263d50428d368d248b7ee00c5d9af74a4a056;hb=5221e81cc5f195b32758617409cdc39e12277b82;hp=72f8d7ddd6f22877364e68b704579ec6e2ad67f3;hpb=67b74298f08a3e2b30e43cbcd7cdaccc2e1b1614;p=debhelper.git

diff --git a/dh_installpam b/dh_installpam
index 72f8d7d..065263d 100755
--- a/dh_installpam
+++ b/dh_installpam
@@ -1,20 +1,50 @@
 #!/usr/bin/perl -w
-#
-# Integration with debian pam system:
-#
-# If debian/pam file exists, save it to $TMP/etc/pam.d/$PACKAGE
 
+=head1 NAME
+
+dh_installpam - install pam support files
+
+=cut
+
+use strict;
 use Debian::Debhelper::Dh_Lib;
+
+=head1 SYNOPSIS
+
+B<dh_installpam> [S<I<debhelper options>>] [B<-n>]
+
+=head1 DESCRIPTION
+
+dh_installpam is a debhelper program that is responsible for installing
+files used by PAM into package build directories.
+
+If a file named debian/package.pam exists, then it is installed into
+etc/pam.d/package in the package build directory.
+
+=cut
+
 init();
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-	$TMP=tmpdir($PACKAGE);
-	$pam=pkgfile($PACKAGE,"pam");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+	my $tmp=tmpdir($package);
+	my $pam=pkgfile($package,"pam");
 	
 	if ($pam ne '') {
-		if (! -d "$TMP/etc/pam.d") {
-			doit("install","-d","$TMP/etc/pam.d");
+		if (! -d "$tmp/etc/pam.d") {
+			doit("install","-d","$tmp/etc/pam.d");
 		}
-		doit("install","-p","-m644",$pam,"$TMP/etc/pam.d/$PACKAGE");
+		doit("install","-p","-m644",$pam,"$tmp/etc/pam.d/$package");
 	}
 }
+
+=head1 SEE ALSO
+
+L<debhelper(1)>
+
+This program is a part of debhelper.
+
+=head1 AUTHOR
+
+Joey Hess <joeyh@debian.org>
+
+=cut