(fast_open_urpmi_db,is_it_a_devel_distro) perl_checker cleanups

--- /usr/lib/perl5/vendor_perl/5.12.3/Rpmdrake/open_db.pm.tv8	2011-09-15 13:21:31.996304467 +0000
+++ /usr/lib/perl5/vendor_perl/5.12.3/Rpmdrake/open_db.pm	2011-09-15 13:24:12.932431234 +0000
@@ -81,7 +81,7 @@
     urpm::set_files($urpm, $::rpmdrake_options{'urpmi-root'}[0]) if $::rpmdrake_options{'urpmi-root'}[0];
     $::rpmdrake_options{'rpm-root'}[0] ||= $::rpmdrake_options{'urpmi-root'}[0];
     urpm::args::set_root($urpm, $::rpmdrake_options{'rpm-root'}[0]) if $::rpmdrake_options{'rpm-root'}[0];
-    urpm::args::set_debug($urpm) if $::rpmdrake_options{'debug'};
+    urpm::args::set_debug($urpm) if $::rpmdrake_options{debug};
     $urpm->get_global_options;
     my $error_happened;
     $urpm->{options}{wait_lock} = $::rpmdrake_options{'wait-lock'};
@@ -116,7 +116,7 @@
     $urpm;
 }
 
-sub is_it_a_devel_distro {
+sub is_it_a_devel_distro() {
     state $res;
     return $res if defined $res;