improvment in Utils: fallback to Farmer class

if database has been corrupted and given class is rejected at loaddb(),
the default class Farmer is assigned

Irpg/Utils.pm

@@ -304,6 +304,9 @@ sub loaddb { # load the players database
         $classname =~ s/ /_/g;
         $rps->{$i[0]}{class} = eval 'Irpg::Classes::'.$classname.
                                     '->new($rps->{$i[0]}{stats})';
+        if (! defined($rps->{$i[0]}{class})) {
+            $rps->{$i[0]}{class} = Irpg::Classes:Farmer->new($rps->{$i[0]}{stats});
+        }
         $rps->{$i[0]}{next_a} = ();
     }
     close(RPS);