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
2005-10-07 14:30:10 +00:00 · 2005-10-07 14:30:10 +00:00 · 111afb91db
commit 111afb91db
parent b808a139cf
1 changed files with 1 additions and 0 deletions
--- 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";