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 /dselect/methods | |
| 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 'dselect/methods')
| -rw-r--r-- | dselect/methods/Dselect/Ftp.pm | 2 | ||||
| -rwxr-xr-x | dselect/methods/ftp/install | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/dselect/methods/Dselect/Ftp.pm b/dselect/methods/Dselect/Ftp.pm index 38c2c5499..6818ac0a7 100644 --- a/dselect/methods/Dselect/Ftp.pm +++ b/dselect/methods/Dselect/Ftp.pm @@ -74,7 +74,7 @@ sub store_config { open(my $vars_fh, '>', $vars) or die "couldn't open $vars in write mode: $!\n"; - print $vars_fh Dumper(\%CONFIG); + print { $vars_fh } Dumper(\%CONFIG); close $vars_fh; } diff --git a/dselect/methods/ftp/install b/dselect/methods/ftp/install index 2d539f574..5277a651c 100755 --- a/dselect/methods/ftp/install +++ b/dselect/methods/ftp/install @@ -628,7 +628,7 @@ foreach (keys %md5sums) { } open(my $md5sums_fh, '>', "$methdir/md5sums") or die "can't open $methdir/md5sums in write mode: $!\n"; -print $md5sums_fh Dumper(\%md5sums); +print { $md5sums_fh } Dumper(\%md5sums); close $md5sums_fh; exit $exit; |