summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/standalone.pm2
-rw-r--r--perl-install/ugtk2.pm3
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index c035019cc..bc78debea 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -4,7 +4,6 @@ use c;
use strict;
use common qw(N N_ if_);
use Config;
-use lang;
#- for sanity (if a use standalone is made during install, MANY problems will happen)
require 'log.pm'; #- "require log" causes some pb, perl thinking that "log" is the log() function
@@ -139,7 +138,6 @@ foreach (@ARGV) {
@ARGV = @new_ARGV;
-$::o = { locale => { lang => lang::read()->{lang} } };
sub version {
print STDERR "Drakxtools version 9.1.0
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index c20888cdb..4e251bd10 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -3,6 +3,9 @@ package ugtk2;
use diagnostics;
use strict;
use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus $force_position $grab $pop_it $border); #- leave it on one line, for automatic removal of the line at package creation
+use lang;
+
+$::o = { locale => lang::read() } if !$::isInstall;
@ISA = qw(Exporter);
%EXPORT_TAGS = (