> The following script:
>
> require Win32::EventLog;
> my $Registry;
> use Win32::TieRegistry 0.24 (
> TiedRef => \$Registry, Delimiter => "/",
You are hitting a bug in Perl here, that gets exposed by PerlApp. The
$Registry lexical is "leaked" into the Win32::TieRegistry file scope, so all
accesses to its own $Registry package variable actually modify your lexical.
I could reproduce your problem with ActivePerl 5.6.1.635, but it didn't happen
with ActivePerl 5.8.2.808.
As a workaround, you can simply rename your variable like this:
my $MyRegistry;
use Win32::TieRegistry 0.24 (
TiedRef => \$MyRegistry, Delimiter => "/",
And your code should work inside PerlApp even with Perl 5.6.1.
Cheers,
-Jan
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
