proxmox-mirrors/dab
1
0
Fork 0
mirror of https://git.proxmox.com/git/dab synced 2025-10-04 21:29:59 +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; print $writer $input if defined $input;
close $writer; close $writer;
my $select = new IO::Select; my $select = IO::Select->new();
$select->add ($reader); $select->add ($reader);
$select->add ($error); $select->add ($error);
@ -915,11 +915,11 @@ sub read_installed {
my $pkgfilelist = "$rootdir/var/lib/dpkg/status"; my $pkgfilelist = "$rootdir/var/lib/dpkg/status";
local $/ = ''; local $/ = '';
open (PKGLST, "<$pkgfilelist") or die "unable to open '$pkgfilelist' - $!"; open(my $PKGLST, '<', $pkgfilelist) or die "unable to open '$pkgfilelist' - $!";
my $pkglist = {}; my $pkglist = {};
while (my $rec = <PKGLST>) { while (my $rec = <$PKGLST>) {
chomp $rec; chomp $rec;
$rec =~ s/\n\s+/ /g; $rec =~ s/\n\s+/ /g;
$rec .= "\n"; $rec .= "\n";
@ -939,7 +939,7 @@ sub read_installed {
} }
} }
close (PKGLST); close ($PKGLST);
return $pkglist; return $pkglist;
} }
@ -1116,10 +1116,9 @@ sub __parse_packages {
my ($pkginfo, $filename, $src) = @_; my ($pkginfo, $filename, $src) = @_;
local $/ = ''; local $/ = '';
open (PKGLST, "<$filename") || open(my $PKGLST, '<', $filename) or die "unable to open '$filename' - $!";
die "unable to open '$filename'";
while (my $rec = <PKGLST>) { while (my $rec = <$PKGLST>) {
$rec =~ s/\n\s+/ /g; $rec =~ s/\n\s+/ /g;
chomp $rec; chomp $rec;
$rec .= "\n"; $rec .= "\n";
@ -1148,7 +1147,7 @@ sub __parse_packages {
} }
} }
close (PKGLST); close ($PKGLST);
} }
sub pkginfo { sub pkginfo {