[Rt-commit] r9824 - rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt

[ruz at bestpractical.com]

Author: ruz
Date: Wed Dec  5 13:37:07 2007
New Revision: 9824

Modified:
   rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm

Log:
* minor

Modified: rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm	Wed Dec  5 13:37:07 2007
@@ -428,7 +428,7 @@
 
     my $entity = $args{'Entity'};
 
-    # handling passphrase in GnupGOptions
+    # handling passphrase in GnuPGOptions
     $args{'Passphrase'} = delete $opt{'passphrase'}
         if !defined $args{'Passphrase'};
 
@@ -770,7 +770,6 @@
     $entity->{'__store_tmp_handle_to_avoid_early_cleanup'} = $tmp_fh;
 
     return %res;
-
 }
 
 sub FindProtectedParts {
@@ -1609,10 +1608,7 @@
     return %res if $res{'exit_code'};
     return %res unless $res{'info'};
 
-    my @keys = @{ $res{'info'} };
-    $res{'info'} = [];
-
-    foreach my $key ( @keys ) {
+    foreach my $key ( splice @{ $res{'info'} } ) {
         # skip disabled keys
         next if $key->{'Capabilities'} =~ /D/;
         # skip keys not suitable for encryption