mirror of
https://git.proxmox.com/git/proxmox-ve
synced 2025-04-28 21:30:52 +00:00
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:
parent
fbc2871267
commit
ddba61a15c
6
debian/apthook/pve-apt-hook
vendored
6
debian/apthook/pve-apt-hook
vendored
@ -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;
|
||||
};
|
||||
|
Loading…
Reference in New Issue
Block a user