[svn:qpsmtpd] r551 - branches/0.31/plugins

[email protected] 7 Oct 2005 14:30:11 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Fri Oct  7 07:30:10 2005
New Revision: 551

Modified:
   branches/0.31/plugins/tls
Log:
No strict refs when assigning to a glob


Modified: branches/0.31/plugins/tls
==============================================================================
--- branches/0.31/plugins/tls	(original)
+++ branches/0.31/plugins/tls	Fri Oct  7 07:30:10 2005
@@ -44,6 +44,7 @@ sub init {
     
     # Check for possible AUTH mechanisms
 HOOK: foreach my $hook ( keys %{$qp->{hooks}} ) {
+        no strict 'refs';
         if ( $hook =~ m/^auth-?(.+)?$/ ) {
             if ( defined $1 ) {
                 my $hooksub = "hook_$hook";