From b62535cf8c433153e47742b846c380caa3f4ebcc Mon Sep 17 00:00:00 2001 From: "Martin Helmling martin.helmling@octosoft.eu" Date: Thu, 24 Aug 2017 08:58:44 +0200 Subject: [PATCH] $self statt $_ eingebaut --- SL/DB/CustomVariable.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DB/CustomVariable.pm b/SL/DB/CustomVariable.pm index a34640518..cb6c83158 100644 --- a/SL/DB/CustomVariable.pm +++ b/SL/DB/CustomVariable.pm @@ -125,7 +125,7 @@ sub is_valid { require SL::DB::CustomVariableValidity; # only base level custom variables can be invalid. ovverloaded ones could potentially clash on trans_id, so disallow them - return 1 if $_->sub_module; + return 1 if $self->sub_module; $self->{is_valid} //= do { my $query = [config_id => $self->config_id, trans_id => $self->trans_id]; -- 2.20.1