http://qs1969.pair.com?node_id=909050


in reply to Re^9: Is there a way to make Prima widgets accept double byte characters?
in thread Is there a way to make Prima widgets accept double byte characters?

I forgot to post this "patch" for Prima/Makefile.PL, because Prima::codecs::win32 ends up at unexpected place
sub setup_codecs { # see if Prima::codecs:: is installed my ( $prereq, $have_binary_prereq); $prereq = 'win32' if $Win32 and not $cygwin; $prereq = 'win64' if $Win64 and not $cygwin; $prereq = 'os2' if $OS2; if ( $prereq) { print "Checking for Prima::codecs::$prereq... "; eval "use Prima::codecs::$prereq;"; unless ( $@) { print "yes\n"; $have_binary_prereq++; push @LIBPATH, qd("$Config{installsitearch}/Prima/codecs/$ +prereq/lib"); push @INCPATH, qd("$Config{installsitearch}/Prima/codecs/$ +prereq/include"); if( $prereq =~ /win32/ ){ my $f = $INC{'Prima/codecs/win32.pm'}; $f =~ s/.pm$//; #~ push @LIBPATH, qd("$f/lib"); #~ push @INCPATH, qd("$f/include"); $LIBPATH[-1]=qd("$f/lib"); $INCPATH[-1]=qd("$f/include"); print "$_\n" for $f,@LIBPATH, @INCPATH ; } } else { print "no\n"; } }
FWIW, Prima::codecs::win32, should have two class methods, INCPATH and LIBPATH which return the correct path