diff options
| author | Roderich Schupp <roderich.schupp@gmail.com> | 2015-04-24 01:47:29 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2015-05-09 05:15:25 +0200 |
| commit | 454137cb3972d3365ee9b0e71cd97f32219e25be (patch) | |
| tree | f04dd6925b7e4270504918ace526619eab6d5650 /scripts/Dpkg/Control | |
| parent | 7e85106707c5ddea3381bc985e0c916507915bcc (diff) | |
| download | dpkg-454137cb3972d3365ee9b0e71cd97f32219e25be.tar.gz | |
Dpkg::Control::Info: Do not print on undef filehandle in output()
Closes: #781887
Signed-off-by: Guillem Jover <guillem@debian.org>
Diffstat (limited to 'scripts/Dpkg/Control')
| -rw-r--r-- | scripts/Dpkg/Control/Info.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |