diff options
author | Maat <maat-pub@mageia.biz> | 2021-03-31 20:08:28 +0200 |
---|---|---|
committer | Maat <maat-pub@mageia.biz> | 2021-03-31 20:08:28 +0200 |
commit | 5ce690fea246f316cad2ffd054aa798382f5df16 (patch) | |
tree | 36a5cf5dda1e33ac65343e7645b1eb35119ca7b7 /urpmi | |
parent | 77ded31b185b2fd80271155bb12a8c45c62b44b4 (diff) | |
download | urpmi-5ce690fea246f316cad2ffd054aa798382f5df16.tar urpmi-5ce690fea246f316cad2ffd054aa798382f5df16.tar.gz urpmi-5ce690fea246f316cad2ffd054aa798382f5df16.tar.bz2 urpmi-5ce690fea246f316cad2ffd054aa798382f5df16.tar.xz urpmi-5ce690fea246f316cad2ffd054aa798382f5df16.zip |
Automating dev mode
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; |