From 454137cb3972d3365ee9b0e71cd97f32219e25be Mon Sep 17 00:00:00 2001
From: Roderich Schupp <roderich.schupp@gmail.com>
Date: Fri, 24 Apr 2015 01:47:29 +0200
Subject: Dpkg::Control::Info: Do not print on undef filehandle in output()

Closes: #781887
Signed-off-by: Guillem Jover <guillem@debian.org>
---
 scripts/Dpkg/Control/Info.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts/Dpkg/Control')

diff --git a/scripts/Dpkg/Control/Info.pm b/scripts/Dpkg/Control/Info.pm
index dd7b90a30..49cb272fd 100644
--- a/scripts/Dpkg/Control/Info.pm
+++ b/scripts/Dpkg/Control/Info.pm
@@ -193,7 +193,7 @@ sub output {
     my $str;
     $str .= $self->{source}->output($fh);
     foreach my $pkg (@{$self->{packages}}) {
-	print { $fh } "\n";
+	print { $fh } "\n" if defined $fh;
 	$str .= "\n" . $pkg->output($fh);
     }
     return $str;
-- 
cgit v1.2.3