Index: mysql.pm
===================================================================
--- mysql.pm	(revision 2211)
+++ mysql.pm	(working copy)
@@ -97,7 +97,7 @@
 
     my @uniqs;
     my $keydata = $self->_mysql_table_get_keys($table);
-    foreach my $keyname (%$keydata) {
+    foreach my $keyname (keys %$keydata) {
         next if $keyname eq 'PRIMARY';
         push(@uniqs, [ $keyname => $keydata->{$keyname} ]);
     }