I Can't modify options later
Here are things that I tried to solve the problem with that did not work:
#---- 1 ----
BEGIN {
my %Gettext = (
Path => './lang',
Export => 'maketext', # maketext() instead of loc()
Decode => 1, # decode entries to unicode-strings
Encoding => 'locale' # but encode lexicons in current locale
);
require Locale::Maketext::Simple;
Locale::Maketext::Simple->import(\%Gettext);
}
#use Locale::Maketext::Simple (\%Gettext);
#---- 1 (Snip) ----
#---- 2 ----
=begin comment
BEGIN {
package Locale::Maketext::Simple;
#sub main::lang_path {
$Locale::Maketext::Simple::args{Path} = \$main::ENV{'YaTC_CONFIG_DIR'};
# print $Locale::Maketext::Simple::args{Path};
# return $Locale::Maketext::Simple::args{Path};
#}
}
=cut
#---- 2 (Snip) ----
#---- 3 ----
use Locale::Maketext::Simple (
Path => \$somevar,
#Style => 'gettext', # %1 instead of [_1]
Export => 'maketext', # maketext() instead of loc()
Decode => 1, # decode entries to unicode-strings
Encoding => 'locale', # but encode lexicons in current locale
);
#---- 3 (Snip) ----
Perl info:
Summary of my perl5 (revision 5 version 12 subversion 1) configuration:
Platform:
osname=linux, osvers=2.6.32, archname=i586-linux-thread-multi
uname='linux build34 2.6.32 #1 smp 2011-01-07 00:20:37 +0100 i686
athlon i386 gnulinux '
config_args='-ds -e -Dprefix=/usr -Dvendorprefix=/usr
-Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm
-Duseshrplib=true -Doptimize=-fomit-frame-pointer -fmessage-length=0 -O2
-Wall -D_FORTIFY_SOURCE=2 -fstack-protector -funwind-tables
-fasynchronous-unwind-tables -g -Wall -pipe
-Accflags=-DPERL_USE_SAFE_PUTENV'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=undef, use64bitall=undef, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DPERL_USE_SAFE_PUTENV
-DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-fomit-frame-pointer -fmessage-length=0 -O2 -Wall
-D_FORTIFY_SOURCE=2 -fstack-protector -funwind-tables
-fasynchronous-unwind-tables -g -Wall -pipe',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DPERL_USE_SAFE_PUTENV
-DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector'
ccversion='', gccversion='4.5.0 20100604 [gcc-4_5-branch revision
160292]', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -fstack-protector'
libpth=/lib /usr/lib /usr/local/lib
libs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=/lib/libc-2.11.2.so, so=so, useshrplib=true, libperl=libperl.so
gnulibc_version='2.11.2'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E
-Wl,-rpath,/usr/lib/perl5/5.12.1/i586-linux-thread-multi/CORE'
cccdlflags='-fPIC', lddlflags='-shared -fomit-frame-pointer
-fmessage-length=0 -O2 -Wall -D_FORTIFY_SOURCE=2 -fstack-protector
-funwind-tables -fasynchronous-unwind-tables -g -Wall -pipe'
Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING MULTIPLICITY PERL_DONT_CREATE_GVSV
PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
PERL_TRACK_MEMPOOL PERL_USE_SAFE_PUTENV USE_ITHREADS
USE_LARGE_FILES USE_PERLIO USE_PERL_ATOF
USE_REENTRANT_API
Built under linux
Compiled at Jan 12 2011 17:47:04
@INC:
/usr/lib/perl5/site_perl/5.12.1/i586-linux-thread-multi
/usr/lib/perl5/site_perl/5.12.1
/usr/lib/perl5/vendor_perl/5.12.1/i586-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.12.1
/usr/lib/perl5/5.12.1/i586-linux-thread-multi
/usr/lib/perl5/5.12.1
.
uname-a: Linux MitchPC.WORKGROUP 2.6.34.7-0.7-default #1 SMP 2010-12-13
11:13:53 +0100 i686 i686 i386 GNU/Linux
Thanks, Linuxrules