iterator muss resettet werden
authorSven Schöling <s.schoeling@linet-services.de>
Thu, 15 Sep 2011 09:44:03 +0000 (11:44 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Thu, 15 Sep 2011 09:48:52 +0000 (11:48 +0200)
SL/DB/Helper/CustomVariables.pm

index 6b7a531..2519c36 100644 (file)
@@ -122,6 +122,7 @@ sub _all_configs {
 sub _overload_by_module {
   my ($module, %params) = @_;
 
+  keys %{ $params{overloads} }; # reset each iterator
   while (my ($fk, $class) = each %{ $params{overloads} }) {
     return ($fk, $class) if $class->meta->{META_CVARS()}->{module} eq $module;
   }