Automating dev mode

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 {
diff --git a/urpmi b/urpmi
index 4ea3fa3a..2a93c366 100755
--- a/urpmi
+++ b/urpmi
@@ -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;