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 /scripts/Dpkg/Compression | |
| 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 'scripts/Dpkg/Compression')
| -rw-r--r-- | scripts/Dpkg/Compression/FileHandle.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/Dpkg/Compression/FileHandle.pm b/scripts/Dpkg/Compression/FileHandle.pm index b0aff7b35..e7c9082c1 100644 --- a/scripts/Dpkg/Compression/FileHandle.pm +++ b/scripts/Dpkg/Compression/FileHandle.pm @@ -228,7 +228,7 @@ sub CLOSE { sub FILENO { my ($self) = shift; return *$self->{"file"}->fileno(@_) if defined *$self->{"file"}; - return undef; + return; } sub EOF { @@ -252,7 +252,7 @@ sub TELL { sub BINMODE { my ($self) = shift; return *$self->{"file"}->binmode(@_) if defined *$self->{"file"}; - return undef; + return; } ## |