aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorOlivier Blin <blino@mageia.org>2011-01-13 12:42:41 +0000
committerOlivier Blin <blino@mageia.org>2011-01-13 12:42:41 +0000
commite9fe96e5d2a9c3245aca5728ae62d54a1dea8ffa (patch)
treefc38602842f034bc3b53e898a7044b58f6ba1eda /lib
parent52c6bf712bc25b1dd318d3c485f847133f26243d (diff)
downloadiurt-e9fe96e5d2a9c3245aca5728ae62d54a1dea8ffa.tar
iurt-e9fe96e5d2a9c3245aca5728ae62d54a1dea8ffa.tar.gz
iurt-e9fe96e5d2a9c3245aca5728ae62d54a1dea8ffa.tar.bz2
iurt-e9fe96e5d2a9c3245aca5728ae62d54a1dea8ffa.tar.xz
iurt-e9fe96e5d2a9c3245aca5728ae62d54a1dea8ffa.zip
add missing parentheses in open calls
Diffstat (limited to 'lib')
-rw-r--r--lib/Iurt/Chroot.pm2
-rw-r--r--lib/Iurt/DKMS.pm2
-rw-r--r--lib/Iurt/Process.pm2
-rw-r--r--lib/Iurt/Urpmi.pm4
4 files changed, 5 insertions, 5 deletions
diff --git a/lib/Iurt/Chroot.pm b/lib/Iurt/Chroot.pm
index 6464f49..7b18acc 100644
--- a/lib/Iurt/Chroot.pm
+++ b/lib/Iurt/Chroot.pm
@@ -287,7 +287,7 @@ sub remove_chroot {
plog('DEBUG', "... dir $dir all $run->{clean_all} prefix $prefix");
if ($run->{clean_all}) {
- opendir my $chroot_dir, $dir;
+ opendir(my $chroot_dir, $dir);
foreach (readdir $chroot_dir) {
next if !-d "$dir/$_" || /\.{1,2}/;
plog("cleaning old chroot for $_ in $dir");
diff --git a/lib/Iurt/DKMS.pm b/lib/Iurt/DKMS.pm
index 39a3319..7410008 100644
--- a/lib/Iurt/DKMS.pm
+++ b/lib/Iurt/DKMS.pm
@@ -67,7 +67,7 @@ sub search_dkms {
my $media_ok = $run->{dkms}{media} ? $media =~ /$run->{dkms}{media}/ : 1;
my $kmedia_ok = $run->{dkms}{kmedia} ? $media =~ /$run->{dkms}{kmedia}/ : 1;
plog("searching in $path");
- opendir my $rpmdh, $path;
+ opendir(my $rpmdh, $path);
foreach my $rpm (readdir $rpmdh) {
if ($rpm =~ /^dkms-(.*)-([^-]+-[^-]+)\.[^.]+\.rpm/) {
# we only check for kernel or modules in this media
diff --git a/lib/Iurt/Process.pm b/lib/Iurt/Process.pm
index 9855b36..fa8883b 100644
--- a/lib/Iurt/Process.pm
+++ b/lib/Iurt/Process.pm
@@ -44,7 +44,7 @@ sub check_pid {
if (-f $pidfile) {
my (@stat) = stat $pidfile;
- open my $test_PID, $pidfile;
+ open(my $test_PID, $pidfile);
my $pid = <$test_PID>;
close $test_PID;
diff --git a/lib/Iurt/Urpmi.pm b/lib/Iurt/Urpmi.pm
index d8c58c6..2559287 100644
--- a/lib/Iurt/Urpmi.pm
+++ b/lib/Iurt/Urpmi.pm
@@ -157,7 +157,7 @@ sub urpmi_command {
if (-d $local_media) {
mkdir("$chroot_tmp/iurt_media/");
- opendir my $dir, $local_media;
+ opendir(my $dir, $local_media);
my $next;
foreach my $f (readdir $dir) {
$f =~ /(\.rpm|^hdlist.cz)$/ or next;
@@ -268,7 +268,7 @@ sub get_local_provides {
my $program_name = $run->{program_name};
my $local_media = $self->{local_media};
- opendir my $dir, $local_media;
+ opendir(my $dir, $local_media);
plog(1, "get local provides ($local_media)");
require URPM;
my $urpm = new URPM;