aboutsummaryrefslogtreecommitdiffstats
path: root/Rpmdrake/pkg.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Rpmdrake/pkg.pm')
-rw-r--r--Rpmdrake/pkg.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 74bde389..e3f2dc92 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -49,6 +49,7 @@ use urpm::args qw();
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(
+ $priority_up_alread_warned
download_callback
extract_header
find_installed_version
@@ -62,6 +63,9 @@ use ugtk2 qw(:all);
use Gtk2::Pango;
use Gtk2::Gdk::Keysyms;
+our $priority_up_alread_warned;
+
+
sub run_rpm {
foreach (qw(LANG LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES LC_PAPER LC_NAME LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT LC_IDENTIFICATION LC_ALL)) {
local $ENV{$_} = $ENV{$_} . '.UTF-8' if $ENV{$_} && $ENV{$_} !~ /UTF-8/;
@@ -359,6 +363,8 @@ sub get_pkgs {
my $_drop_lock = before_leaving { undef $urpm->{lock} };
+ $priority_up_alread_warned = 0;
+
# update media list in case warn_about_media() added some:
@update_medias = get_update_medias($urpm);