Item12180: One more perlcritic issue - thanks George, sharp eyes!

git-svn-id: http://svn.foswiki.org/trunk@16228 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Dec 16, 2012 · 8653127 · 8653127
1 parent ae1e53d
commit 8653127
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/core/lib/Foswiki/Net.pm b/core/lib/Foswiki/Net.pm
@@ -550,7 +550,8 @@ sub _smimeSignMessage {
         && length $Foswiki::cfg{Email}{SmimeKeyPassword}
         && $key =~ /^-----BEGIN RSA PRIVATE KEY-----\n(?:(.*?\n)\n)?/s )
     {
-        my %h = map { split( /:\s*/, $_, 2 ) } split( /\n/, $1 )
+        my %h;
+        %h = map { split( /:\s*/, $_, 2 ) } split( /\n/, $1 )
           if ( defined $1 );
         if (   $h{'Proc-Type'}
             && $h{'Proc-Type'} eq '4,ENCRYPTED'