Subject: [PATCH] Actually chomp the field, by restoring the input delimiter

From: Raphael Geissert <[email-masked]>
Date: Wed, 28 Jan 2009 00:54:29 -0600

Signed-off-by: Raphael Geissert <[email-masked]>
---
 lib/Lintian/Collect/Source.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Lintian/Collect/Source.pm b/lib/Lintian/Collect/Source.pm
index bc6980f..3d5dc91 100644
--- a/lib/Lintian/Collect/Source.pm
+++ b/lib/Lintian/Collect/Source.pm
@@ -94,8 +94,8 @@ sub binary_field {
 
     my $value = '';
     if (open FIELD, "<", "control/$binpkg/$field") {
-        local $/;
-        $value = <FIELD>;
+        { local $/;
+        $value = <FIELD>; }
         chomp $value;
         close FIELD;
     }