diff options
-rw-r--r-- | Makefile.PL | 1 | ||||
-rw-r--r-- | urpm/msg.pm | 6 | ||||
-rwxr-xr-x | urpmi | 16 |
3 files changed, 22 insertions, 1 deletions
diff --git a/Makefile.PL b/Makefile.PL index 29694c19..8d7491f0 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -155,6 +155,7 @@ WriteMakefile( 'XML::LibXML' => '0', 'XML::LibXML::Reader' => '0', 'Term::ANSIColor' => '0', + 'Cwd' => '0', }, 'TEST_REQUIRES' => { 'Expect' => '0', diff --git a/urpm/msg.pm b/urpm/msg.pm index ca81d9fe..50910b90 100644 --- a/urpm/msg.pm +++ b/urpm/msg.pm @@ -27,7 +27,11 @@ foreach my $domain (@textdomains) { Locale::gettext::bind_textdomain_codeset($domain, 'UTF-8'); } URPM::bind_rpm_textdomain_codeset(); - +if ( $::devmode ) { + foreach my $domain (@textdomains) { + bindtextdomain($domain, $::devdir."/locale"); + } +} our $no_translation; sub from_locale_encoding { @@ -20,6 +20,22 @@ #- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. use strict; + +# Detect dev mode +use File::Basename; +use Cwd; +BEGIN { + our $devdir = dirname(Cwd::abs_path(__FILE__)); + our $devmode=0; + if ($devdir ne '/usr/sbin') { + print "We are in dev mode !"."\n"; + $ENV{PERL5LIB} = $devdir; + $ENV{TEXTDOMAINDIR} = $devdir."/locale"; + $devmode=1; + unshift(@INC, $devdir); + } +} + use urpm; use urpm::args; use urpm::msg; |