perl_checker cleanups

1 files changed, 1 insertions, 1 deletions

diff --git a/iurt b/iurt
index a9300a7..4f2d7af 100755
--- a/iurt
+++ b/iurt
@@ -132,7 +132,7 @@ $run{todo} = [];
         sub { my ($tmp, @media) = @_; $tmp->[0]{media} = \@media; 1 }, "Limiting rebuild to the kernel in the given media regexp"], 
     ] , "[options] <media prefix>", 
     "Create urpmi media inside the chroot instead of using --root (media prefix is like http:///server.mandriva.com/dis/)",
-    sub { my ($opt, $media) = @_; $run{chrooted_urpmi} = $opt; 1 }, "Activating chroot media" ],
+    sub { my ($opt, $_media) = @_; $run{chrooted_urpmi} = $opt; 1 }, "Activating chroot media" ],
     [ "", "clean-all", 0, "", 
     "Clean all remaining chroots for all the users",
     sub { $run{clean_all} = 1 }, "Activating clean chroot flag" ],