From e995fffc05ef874ef9205631e3677130887dabd4 Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Wed, 1 Jul 2020 18:48:35 +0200
Subject: [PATCH] fix smth that used to work but not anymore
This is Perl mysticism, I have no clue why this stopped working
and why wrapping it in eval work, but eh, it does.
---
Irpg/Utils.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Irpg/Utils.pm b/Irpg/Utils.pm
index 157756f..725bdcb 100644
--- a/Irpg/Utils.pm
+++ b/Irpg/Utils.pm
@@ -305,7 +305,7 @@ sub loaddb { # load the players database
$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]}{class} = eval 'Irpg::Classes:Farmer->new($rps->{$i[0]}{stats})';
}
$rps->{$i[0]}{next_a} = ();
}
--
GitLab