diff options
| -rw-r--r-- | lib/ManaTools/Rpmdragora/open_db.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/ManaTools/Rpmdragora/open_db.pm b/lib/ManaTools/Rpmdragora/open_db.pm index 7bfa7bf..74cc206 100644 --- a/lib/ManaTools/Rpmdragora/open_db.pm +++ b/lib/ManaTools/Rpmdragora/open_db.pm @@ -39,6 +39,9 @@ use urpm::select; use urpm::media; use urpm::mirrors; use feature 'state'; +use Carp; # deprecating module + +carp __PACKAGE__. " is deprecated use Rpmdragora::DB instead\n"; use Exporter; our @ISA = qw(Exporter); @@ -57,6 +60,8 @@ my $loc = ManaTools::rpmdragora::locale(); # because rpm blocks some signals when rpm DB is opened, we don't keep open around: sub open_rpm_db { my ($o_force) = @_; + carp "open_rpm_db is deprecated use Rpmdragora::DB instead\n"; + my $host; Sys::Syslog::syslog('info|local1', "opening the RPM database"); if ($::rpmdragora_options{parallel} && ((undef, $host) = @{$::rpmdragora_options{parallel}})) { @@ -86,6 +91,8 @@ sub open_rpm_db { # do not pay the urpm::media::configure() heavy cost: sub fast_open_urpmi_db() { + carp "fast_open_urpmi_db is deprecated use Rpmdragora::DB instead\n"; + my $urpm = urpm->new; my $error_happened; $urpm->{fatal} = sub { @@ -126,6 +133,8 @@ sub fast_open_urpmi_db() { } sub is_it_a_devel_distro() { + carp "is_it_a_devel_distro is deprecated use Rpmdragora::DB instead\n"; + state $res; return $res if defined $res; @@ -137,17 +146,26 @@ sub is_it_a_devel_distro() { sub get_backport_media { my ($urpm) = @_; + + carp "get_backport_media is deprecated use Rpmdragora::DB instead\n"; + grep { $_->{name} =~ /backport/i && $_->{name} !~ /debug|sources|testing/i } @{$urpm->{media}}; } sub get_inactive_backport_media { my ($urpm) = @_; + + carp "get_inactive_backport_media is deprecated use Rpmdragora::DB instead\n"; + map { $_->{name} } grep { $_->{ignore} } get_backport_media($urpm); } sub get_update_medias { my ($urpm) = @_; + + carp "get_update_medias is deprecated use Rpmdragora::DB instead\n"; + if (is_it_a_devel_distro()) { grep { !$_->{ignore} } @{$urpm->{media}}; } else { @@ -157,6 +175,9 @@ sub get_update_medias { sub open_urpmi_db { my (%urpmi_options) = @_; + + carp "open_urpmi_db is deprecated use Rpmdragora::DB instead\n"; + my $urpm = fast_open_urpmi_db(); my $media = ref $::rpmdragora_options{media} ? join(',', @{$::rpmdragora_options{media}}) : ''; |