diff options
| author | Guillem Jover <guillem@debian.org> | 2013-11-07 06:32:28 +0100 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2013-12-04 07:09:43 +0100 |
| commit | b2590e1ea176bf0c4d04fb855f66e324c8018bb1 (patch) | |
| tree | f15fe219fa700c639b42678c69746bfaccdd3179 /scripts/Dpkg/Control/HashCore.pm | |
| parent | 38d22e9477c3120081c73553138d7f26288a7682 (diff) | |
| download | dpkg-b2590e1ea176bf0c4d04fb855f66e324c8018bb1.tar.gz | |
perl: Surround FileHandles with braces in print calls
Fixes InputOutput::RequireBracedFileHandleWithPrint.
Warned-by: perlcritic
Diffstat (limited to 'scripts/Dpkg/Control/HashCore.pm')
| -rw-r--r-- | scripts/Dpkg/Control/HashCore.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/Dpkg/Control/HashCore.pm b/scripts/Dpkg/Control/HashCore.pm index 816b100d0..ffb87c1d7 100644 --- a/scripts/Dpkg/Control/HashCore.pm +++ b/scripts/Dpkg/Control/HashCore.pm @@ -349,7 +349,7 @@ sub output { } # Print it out if ($fh) { - print $fh "$key: $value\n" + print { $fh } "$key: $value\n" or syserr(_g('write error on control data')); } $str .= "$key: $value\n" if defined wantarray; |