Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

JendaRex and Perl 5.10

5 views
Skip to first unread message

Axtens

unread,
Feb 19, 2008, 1:27:21 AM2/19/08
to begi...@perl.org
G'day everyone

I've been trying unsuccessfully to re-compile JendaRex.pm, using the
latest PDK (7.1) and the latest Perl (5.10).

Everything seems to compile okay, whether I use PerlCtrl as is, or
with Jenda's own PDKcompile, and the resulting DLL seems to register
okay with RegSvr32.

After that, nothing works. This VBScript code
Set re = CreateObject("Jenda.Rex")
gives me
Microsoft VBScript runtime error: ActiveX component can't
create object: 'Jenda.Rex'

I get a similar report from VB.

Has anyone got any idea why? I tried giving it a new GUID but to no
avail. Is it that I'm doomed to comb through perldelta for some change
in Perl syntax?

Please, anyone, help!

Kind regards,
Bruce.

Jenda Krynicky

unread,
Feb 20, 2008, 7:40:54 AM2/20/08
to begi...@perl.org
From: axtens <Bruce....@gmail.com>

I don't think it's a change in Perl syntax. I think it's again the
problem with the Win32::Registry. Namely that you do not have the
patch that I submitted several years ago and was told it will become
the new official release again several years ago. Either install the
patch from http://jenda.krynicky.cz/#Win32::Registry2 or replace

$SystemEncoding = 'cp' .
(Win32::Registry::GetValue('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSe
t\Control\NLS\CodePage', 'ACP') || '1252');

by

{
my $r;
$::HKEY_LOCAL_MACHINE-
>Open('SYSTEM\CurrentControlSet\Control\NLS\CodePage', $r)
or die "Can't open
HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\NLS\\CodePage:
$^E\n";
$r->GetValue('ACP', $SystemEncoding);
$SystemEncoding = '1252' unless $SystemEncoding;
$SystemEncoding = 'cp' . $SystemEncoding;
}

near the top of the JendaRex.pm

Jenda
===== Je...@Krynicky.cz === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery

Axtens

unread,
Feb 20, 2008, 8:59:41 PM2/20/08
to begi...@perl.org
Jenda

Thank you! Very much!

Kind regards,
Bruce.

0 new messages