blob: 0659c7ccb66320bdcf6f6d4e8e9e516f740fe41c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(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;
|
