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

[ruz at bestpractical.com]

Author: ruz
Date: Sat Apr 21 11:43:18 2007
New Revision: 7600

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

Log:
 r5042 at cubic-pc:  cubic | 2007-04-21 17:30:33 +0400
 * change element of an array with index '-1' only when the array is not empty


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	Sat Apr 21 11:43:18 2007
@@ -998,7 +998,7 @@
             $RT::Logger->warning("Keyword $keyword is unknown");
             next;
         }
-        $res[-1]{'Keyword'} = $keyword unless $res[-1]{'Keyword'};
+        $res[-1]{'Keyword'} = $keyword if @res && !$res[-1]{'Keyword'};
     }
     return @res;
 }