diff options
Diffstat (limited to 'urpmi')
-rwxr-xr-x | urpmi | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -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; |