diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:01 +0000 |
| commit | de5d12f2abb91f335cabf8fb8c039155adaa80c2 (patch) | |
| tree | 1a010204c2071ee258ee4f0a45e8e806651722c4 | |
| parent | ae5842185fc56ed17aa036975d687e1b13c1356a (diff) | |
| download | urpmi-de5d12f2abb91f335cabf8fb8c039155adaa80c2.tar urpmi-de5d12f2abb91f335cabf8fb8c039155adaa80c2.tar.gz urpmi-de5d12f2abb91f335cabf8fb8c039155adaa80c2.tar.bz2 urpmi-de5d12f2abb91f335cabf8fb8c039155adaa80c2.tar.xz urpmi-de5d12f2abb91f335cabf8fb8c039155adaa80c2.zip | |
perl_checker cleanup
| -rwxr-xr-x | urpmi | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -25,7 +25,7 @@ use urpm::args; use urpm::msg; use urpm::media; use urpm::select; -use urpm::util qw(untaint difference2 member partition cat_); +use urpm::util qw(untaint difference2 find member partition cat_); use urpm::main_loop; #- default options. @@ -637,7 +637,7 @@ my $exit_code = urpm::main_loop::run($urpm, $state, my $msg = N("Please insert the medium named \"%s\"", $_[0]); if ($ENV{DISPLAY} && $::gui) { #- probably run from a drak tool - (my $gmessage) = grep { -x $_ } '/usr/X11R6/bin/gmessage', '/usr/bin/gmessage'; + (my $gmessage) = find { -x $_ } '/usr/X11R6/bin/gmessage', '/usr/bin/gmessage'; if ($gmessage) { return system($gmessage, '-buttons', N("Ok") . ':1,' . N("Cancel") . ':0', "\n$msg\n"); } |