From 26a4d1df1119da0a8601b27198086086f9f3249f Mon Sep 17 00:00:00 2001
From: Guillem Jover <guillem@debian.org>
Date: Sat, 29 Dec 2012 23:59:06 +0100
Subject: 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
---
 scripts/Dpkg/Compression/FileHandle.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts/Dpkg/Compression')

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;
 }
 
 ##
-- 
cgit v1.2.3