From 0bd2b1386aa46b03e553610808d244572d7ac03f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= <bernd@kivitendo-premium.de>
Date: Fri, 25 Jun 2021 16:30:25 +0200
Subject: [PATCH] S:P:MaterialComponents: delete auf $hash{k}, nicht %hash{k}
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Gibt sonst einen Fehler zumindest bei älteren Perl-Versionen.
---
 SL/Presenter/MaterialComponents.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Presenter/MaterialComponents.pm b/SL/Presenter/MaterialComponents.pm
index 7b2a737e3..30123b719 100644
--- a/SL/Presenter/MaterialComponents.pm
+++ b/SL/Presenter/MaterialComponents.pm
@@ -212,7 +212,7 @@ sub input_tag {
 
   _set_id_attribute(\%attributes, $attributes{name});
 
-  my $class = delete %attributes{class};
+  my $class = delete $attributes{class};
   my $icon  = $attributes{icon}
     ? icon(delete $attributes{icon}, class => 'prefix')
     : '';
-- 
2.20.1