[Rt-commit] r10073 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Mon Dec 24 18:47:33 2007
New Revision: 10073

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm

Log:
 r9825 at cubic-pc (orig r9824):  ruz | 2007-12-05 21:37:07 +0300
 * minor


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	Mon Dec 24 18:47:33 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