[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";