proxmox-mirrors/dab
1
0
Fork 0
mirror of https://git.proxmox.com/git/dab synced 2025-10-04 17:59:46 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

code style: fix some perl critic errors

Browse Source 
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2022-09-21 09:01:15 +02:00
parent ef0e24f1b1
commit 985f0aa823
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
DAB.pm
View File

@ -367,7 +367,7 @@ sub run_command {
print $writer $input if defined $input;
close $writer;
my $select = new IO::Select;
my $select = IO::Select->new();
$select->add ($reader);
$select->add ($error);
@ -915,11 +915,11 @@ sub read_installed {
my $pkgfilelist = "$rootdir/var/lib/dpkg/status";
local $/ = '';
open (PKGLST, "<$pkgfilelist") or die "unable to open '$pkgfilelist' - $!";
open(my $PKGLST, '<', $pkgfilelist) or die "unable to open '$pkgfilelist' - $!";
my $pkglist = {};
while (my $rec = <PKGLST>) {
while (my $rec = <$PKGLST>) {
chomp $rec;
$rec =~ s/\n\s+/ /g;
$rec .= "\n";
@ -939,7 +939,7 @@ sub read_installed {
}
}
close (PKGLST);
close ($PKGLST);
return $pkglist;
}
@ -1116,10 +1116,9 @@ sub __parse_packages {
my ($pkginfo, $filename, $src) = @_;
local $/ = '';
open (PKGLST, "<$filename") ||
die "unable to open '$filename'";
open(my $PKGLST, '<', $filename) or die "unable to open '$filename' - $!";
while (my $rec = <PKGLST>) {
while (my $rec = <$PKGLST>) {
$rec =~ s/\n\s+/ /g;
chomp $rec;
$rec .= "\n";
@ -1148,7 +1147,7 @@ sub __parse_packages {
}
}
close (PKGLST);
close ($PKGLST);
}
sub pkginfo {