diff options
author | Guillem Jover <guillem@debian.org> | 2012-12-29 23:59:06 +0100 |
---|---|---|
committer | Guillem Jover <guillem@debian.org> | 2013-04-19 05:34:04 +0200 |
commit | 26a4d1df1119da0a8601b27198086086f9f3249f (patch) | |
tree | 3596d485e27f1bf47baf393dd78351cee4882578 /dselect | |
parent | 0baef9061f7736f6179446d9f1f8e372ce98515b (diff) | |
download | dpkg-26a4d1df1119da0a8601b27198086086f9f3249f.tar.gz |
Use just 'return' instead of 'return undef' in perl code
This makes sure the functions always return the appropriate value
independent of the context.
Fixes Subroutines::ProhibitExplicitReturnUndef.
Warned-by: perlcritic
Diffstat (limited to 'dselect')
-rw-r--r-- | dselect/methods/Debian/Dselect/Ftp.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dselect/methods/Debian/Dselect/Ftp.pm b/dselect/methods/Debian/Dselect/Ftp.pm index 37fe896f7..f750b42ab 100644 --- a/dselect/methods/Debian/Dselect/Ftp.pm +++ b/dselect/methods/Debian/Dselect/Ftp.pm @@ -311,7 +311,7 @@ sub do_mdtm { ) { $has_mdtm = 0; } elsif (!$ftp->ok()) { - return undef; + return; } #} @@ -320,7 +320,7 @@ sub do_mdtm { my @files = $ftp->dir($file); if (($#files == -1) || ($ftp->code == 550)) { # No such file or directory - return undef; + return; } # my $code=$ftp->code(); my $message=$ftp->message(); |