From c427f57d3cdddbf9c7da4e586753df6487965d9e Mon Sep 17 00:00:00 2001
From: Jonathan Steinert <hachi@kuiki.net>
Date: Thu, 4 Mar 2010 02:07:53 -0800
Subject: [PATCH] PAM::Constants holds the master list.

---
 constants.txt        | 32 --------------------------------
 lib/PAM/Constants.pm | 38 ++++++++++++++++++++++++++++++++++++--
 2 files changed, 36 insertions(+), 34 deletions(-)
 delete mode 100644 constants.txt

diff --git a/constants.txt b/constants.txt
deleted file mode 100644
index e36c4ee..0000000
--- a/constants.txt
+++ /dev/null
@@ -1,32 +0,0 @@
-PAM_SUCCESS
-PAM_OPEN_ERR
-PAM_SYMBOL_ERR
-PAM_SERVICE_ERR
-PAM_SYSTEM_ERR
-PAM_BUF_ERR
-PAM_PERM_DENIED
-PAM_AUTH_ERR
-PAM_CRED_INSUFFICIENT
-PAM_AUTHINFO_UNAVAIL
-PAM_USER_UNKNOWN
-PAM_MAXTRIES
-PAM_NEW_AUTHTOK_REQD
-PAM_ACCT_EXPIRED
-PAM_SESSION_ERR
-PAM_CRED_UNAVAIL
-PAM_CRED_EXPIRED
-PAM_CRED_ERR
-PAM_NO_MODULE_DATA
-PAM_CONV_ERR
-PAM_AUTHTOK_ERR
-PAM_AUTHTOK_RECOVERY_ERR
-PAM_AUTHTOK_LOCK_BUSY
-PAM_AUTHTOK_DISABLE_AGING
-PAM_TRY_AGAIN
-PAM_IGNORE
-PAM_ABORT
-PAM_AUTHTOK_EXPIRED
-PAM_MODULE_UNKNOWN
-PAM_BAD_ITEM
-PAM_CONV_AGAIN
-PAM_INCOMPLETE
diff --git a/lib/PAM/Constants.pm b/lib/PAM/Constants.pm
index dd0b6a7..aac5ccd 100644
--- a/lib/PAM/Constants.pm
+++ b/lib/PAM/Constants.pm
@@ -5,12 +5,44 @@ use warnings;
 
 use Carp qw(croak);
 use Exporter;
-use PAM;
 
 use base 'Exporter';
 
 our %EXPORT_TAGS = ( 'all' => [ qw(
-    PAM_SUCCESS
+PAM_SUCCESS
+PAM_OPEN_ERR
+PAM_SYMBOL_ERR
+PAM_SERVICE_ERR
+PAM_SYSTEM_ERR
+PAM_BUF_ERR
+PAM_PERM_DENIED
+PAM_AUTH_ERR
+PAM_CRED_INSUFFICIENT
+PAM_AUTHINFO_UNAVAIL
+PAM_USER_UNKNOWN
+PAM_MAXTRIES
+PAM_NEW_AUTHTOK_REQD
+PAM_ACCT_EXPIRED
+PAM_SESSION_ERR
+PAM_CRED_UNAVAIL
+PAM_CRED_EXPIRED
+PAM_CRED_ERR
+PAM_NO_MODULE_DATA
+PAM_CONV_ERR
+PAM_AUTHTOK_ERR
+PAM_AUTHTOK_RECOVERY_ERR
+PAM_AUTHTOK_LOCK_BUSY
+PAM_AUTHTOK_DISABLE_AGING
+PAM_TRY_AGAIN
+PAM_IGNORE
+PAM_ABORT
+PAM_AUTHTOK_EXPIRED
+PAM_MODULE_UNKNOWN
+PAM_BAD_ITEM
+PAM_CONV_AGAIN
+PAM_INCOMPLETE
+
+PAM_SERVICE
 ) ] );
 
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@@ -22,6 +54,8 @@ sub AUTOLOAD {
     # XS function.  If a constant is not found then control is passed
     # to the AUTOLOAD in AutoLoader.
 
+    require PAM;
+
     my $constname;
     our $AUTOLOAD;
     ($constname = $AUTOLOAD) =~ s/.*:://;