===================================================================
RCS file: /cvs/palm/Palm-Keyring/t/keyring5.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- palm/Palm-Keyring/t/keyring5.t	2008/09/18 02:47:37	1.10
+++ palm/Palm-Keyring/t/keyring5.t	2008/09/18 02:50:25	1.11
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-# $RedRiver: keyring5.t,v 1.9 2007/09/13 15:44:39 andrew Exp $
+# $RedRiver: keyring5.t,v 1.10 2008/09/18 01:47:37 andrew Exp $
 use strict;
 use warnings;
 
@@ -14,22 +14,6 @@
 my $password     = '12345';
 my $new_password = '54321';
 
-foreach my $cipher ( 0 .. 3 ) {
-
-    #next unless $cipher == 0;
-    my $pdb;
-    my @recs;
-    my $record;
-    my $decrypted;
-
-    my $crypt = Palm::Keyring::crypts($cipher);
-
-    my $options = {
-        version  => 5,
-        password => $password,
-        cipher   => $cipher,
-    };
-
     my $original_accts = [
         {   0 => {
                 'label_id' => 0,
@@ -107,6 +91,22 @@
             }
         }
     ];
+
+foreach my $cipher ( 0 .. 3 ) {
+
+    #next unless $cipher == 0;
+    my $pdb;
+    my @recs;
+    my $record;
+    my $decrypted;
+
+    my $crypt = Palm::Keyring::crypts($cipher);
+
+    my $options = {
+        version  => 5,
+        password => $password,
+        cipher   => $cipher,
+    };
 
     my $Num_Tests_Left = 34;
 SKIP: {