===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/02/19 03:33:56	1.32
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/02/21 01:26:07	1.33
@@ -1,5 +1,5 @@
 package Palm::Keyring;
-# $RedRiver: Keyring.pm,v 1.31 2007/02/19 02:55:35 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.32 2007/02/19 03:33:56 andrew Exp $
 ########################################################################
 # Keyring.pm *** Perl class for Keyring for Palm OS databases.
 #
@@ -791,7 +791,7 @@
 
     my $digest = md5($msg);
 
-    if (! $data eq $salt . $digest ) {
+    if ($data ne $salt . $digest ) {
         return;
     }