No strict refs when assigning to a glob

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@551 958fd67b-6ff1-0310-b445-bb7760255be9
smtpd · Oct 7, 2005 · 111afb9 · 111afb9
1 parent b808a13
commit 111afb9
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/plugins/tls b/plugins/tls
@@ -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";