Bug 21395: Make perlcritic happy

[koha-equinox.git] / t / db_dependent / LDAP / test_ldap_add.pl

diff --git a/t/db_dependent/LDAP/test_ldap_add.pl b/t/db_dependent/LDAP/test_ldap_add.pl
index 1a67748..c64186d 100755 (executable)
--- a/t/db_dependent/LDAP/test_ldap_add.pl
+++ b/t/db_dependent/LDAP/test_ldap_add.pl
@@ -46,7 +46,7 @@ sub hashup {
 }
 
 sub recursive_breakdown {
-       my $dse = shift or return undef;
+       my $dse = shift or return;
        if (ref($dse) =~ /HASH/) {
                return join "\n", map {"$_\t=> " . recursive_breakdown($dse->{$_})} keys %$dse;
        } elsif (ref($dse) =~ /ARRAY/) {