diff options
author | Thierry Vignaud <tv@mandriva.org> | 2009-12-02 18:48:02 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2009-12-02 18:48:02 +0000 |
commit | 1a3de3d9cddc23c4040fd6cc804da397bc11c311 (patch) | |
tree | cf1a8efb57a936fe4638adc6aa4759c0b2e4e9cd /lib/Iurt/DKMS.pm | |
parent | 84b43ce2b4e8d239eb64f06d897f1d18ab856303 (diff) | |
download | iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar.gz iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar.bz2 iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar.xz iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.zip |
perl_checker cleanups
Diffstat (limited to 'lib/Iurt/DKMS.pm')
-rw-r--r-- | lib/Iurt/DKMS.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Iurt/DKMS.pm b/lib/Iurt/DKMS.pm index c18cd51..201e883 100644 --- a/lib/Iurt/DKMS.pm +++ b/lib/Iurt/DKMS.pm @@ -93,7 +93,6 @@ sub search_dkms { my $hdr = RPM4::Header->new("$path/$rpm"); my $files = $hdr->queryformat('[%{FILENAMES}\n]'); if ($version =~ /(.*)source-(.*)/ || $version =~ /(.*)devel-(.*)/) { - my $source = "$1$2"; my ($sourcedir) = $files =~ m,^/usr/src/([^/ ]+)$,m; plog('NOTIFY', "kernel source $version (sourcedir $sourcedir)"); $kernel_source{$version} = $sourcedir; @@ -198,8 +197,8 @@ sub dkms_compile { my $dkms_spool = "$local_spool/dkms/"; -d $dkms_spool or mkdir $dkms_spool; - for (my $i; $i < @{$run->{dkms_todo}}; $i++) { - my ($name, $version, $_modulesourcedir, $realname, $realversion, $file, $kernel, $modulesdir, $source, $sourcedir, $media) = @{$run->{dkms_todo}[$i]}; + foreach my $dkms_todo (@{$run->{dkms_todo}}) { + my ($name, $version, $_modulesourcedir, $realname, $realversion, $file, $kernel, $modulesdir, $source, $sourcedir, $media) = @$dkms_todo; $done++; $media = $run->{dkms}{umedia} if $run->{dkms}{umedia}; |