From b2590e1ea176bf0c4d04fb855f66e324c8018bb1 Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Thu, 7 Nov 2013 06:32:28 +0100 Subject: perl: Surround FileHandles with braces in print calls Fixes InputOutput::RequireBracedFileHandleWithPrint. Warned-by: perlcritic --- scripts/dpkg-genchanges.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'scripts/dpkg-genchanges.pl') diff --git a/scripts/dpkg-genchanges.pl b/scripts/dpkg-genchanges.pl index dbc08f194..808218b4a 100755 --- a/scripts/dpkg-genchanges.pl +++ b/scripts/dpkg-genchanges.pl @@ -146,11 +146,11 @@ while (@ARGV) { } elsif (m/^-B$/) { usageerr(_g('cannot combine %s and %s'), $_, '-S') if is_sourceonly; $include = ARCH_DEP; - printf STDERR _g('%s: arch-specific upload - not including arch-independent packages') . "\n", $Dpkg::PROGNAME; + printf { *STDERR } _g('%s: arch-specific upload - not including arch-independent packages') . "\n", $Dpkg::PROGNAME; } elsif (m/^-A$/) { usageerr(_g('cannot combine %s and %s'), $_, '-S') if is_sourceonly; $include = ARCH_INDEP; - printf STDERR _g('%s: arch-indep upload - not including arch-specific packages') . "\n", $Dpkg::PROGNAME; + printf { *STDERR } _g('%s: arch-indep upload - not including arch-specific packages') . "\n", $Dpkg::PROGNAME; } elsif (m/^-S$/) { usageerr(_g('cannot combine %s and %s'), binary_opt, '-S') if is_binaryonly; @@ -447,7 +447,7 @@ if (!is_binaryonly) { $origsrcmsg= _g('binary-only upload - not including any source code'); } -print(STDERR "$Dpkg::PROGNAME: $origsrcmsg\n") +print { *STDERR } "$Dpkg::PROGNAME: $origsrcmsg\n" or syserr(_g('write original source message')) unless $quiet; $fields->{'Format'} = $substvars->get('Format'); -- cgit v1.2.3