diff options
Diffstat (limited to 'Rpmdrake/pkg.pm')
| -rw-r--r-- | Rpmdrake/pkg.pm | 6 |
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); |