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

[mfinanz.git] / SL / MoreCommon.pm

diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm
index 6fbf87dc48f95984eae3f7a98433a4231f6775f4..dfc5a7d8002d63c7aa637efab70fc25f07b09824 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/\\$//;