apt-hook: fix perlcritic warnings

Co-authored-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>
Signed-off-by: Stoiko Ivanov <s.ivanov@proxmox.com>
Reviewed-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>
Tested-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>
This commit is contained in:
Stoiko Ivanov 2022-02-11 16:15:45 +01:00 committed by Thomas Lamprecht
parent fbc2871267
commit ddba61a15c

View File

@ -20,14 +20,16 @@ if (!defined $fd || $fd == 0) {
exit 0;
}
open(my $fh, "<&=${fd}") or die "E: could not open APT_HOOK_INFO_FD (${fd}) - $!\n";
open(my $fh, "<&=", $fd) or die "E: could not open APT_HOOK_INFO_FD (${fd}) - $!\n";
my $cleanup = sub {
my ($rc, $confirm) = @_;
close($fh);
my $line = <STDIN> if $confirm;
if ($confirm) {
my $line = <STDIN>;
}
exit $rc;
};