uri_decode: nur "undef" abfangen, nicht auch andere im Perl-Sinne "0"-Werte

Fixt #2182.

diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm
index 6fbf87d..dfc5a7d 100644 (file)
--- a/SL/MoreCommon.pm
+++ b/SL/MoreCommon.pm
@@ -171,7 +171,7 @@ sub uri_encode {
 }
 
 sub uri_decode {
-  my $str = $_[0] || '';
+  my $str = $_[0] // '';
 
   $str =~ tr/+/ /;
   $str =~ s/\\$//;