anaconda_wly has asked for the wisdom of the Perl Monks concerning the following question:

As suggested on net(see http://social.technet.microsoft.com/Forums/en/ITCG/thread/87867142-17e7-4c07-bfb7-2e333ff6e1b7), I added lines to TieRegistry to support 64 rgistry's accessing. I copied and rename the TieRegistry copy to TieRegistry64 in the same folder, as well as updating the package and the "use TieRegistry64". But I got an error not recognize the $Registry: Global symbol "$Registry" requires explicit package name. How ca I do?

in TieRegistry64: 
 package Win32::TieRegistry64Support;# change name
......
sub KEY_WOW64_64KEY () { 0x0100}
sub KEY_WOW64_32KEY () { 0x0200}
........
@$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}=
+ (
    "NONE", "", [], "\\", "\\",
    KEY_READ|KEY_WRITE|KEY_WOW64_64KEY|KEY_WOW64_32KEY, $Flag_HexDWord
+|$Flag_FixNulls, "${PACK}::_Roots" );

[download]
in my perl, change from: 
use Win32::TieRegistry;

[download]
to: 
use Win32::TieRegistry64;

[download]
I checked the path correct. Any suggestion?

Replies are listed 'Best First'.
Re: A problem when modify a pm
by Athanasius (Archbishop) on Dec 19, 2012 at 05:58 UTC

    I cannot reproduce your problem:

    1. Copied the module Win32::TieRegistry and renamed the copy as Win32::TieRegistry64.

    2. Changed package Win32::TieRegistry; to package Win32::TieRegistry64;.

    3. Changed

      BEGIN {
    $PACK    = 'Win32::TieRegistry';
    $VERSION = '0.26';
    @ISA     = 'Tie::Hash';
}

      [download]

      to

      BEGIN {
    $PACK    = 'Win32::TieRegistry64';
    $VERSION = '0.26';
    @ISA     = 'Tie::Hash';
}

      [download]

    4. Changed

      # Basic master Registry object:
$RegObj= {};
@$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}=
+ (
    "NONE", "", [], "\\", "\\",
    KEY_READ|KEY_WRITE, $Flag_HexDWord|$Flag_FixNulls, "${PACK}::_Root
+s" );

      [download]

      to

      # Basic master Registry object:
sub KEY_WOW64_64KEY () { 0x0100 }
sub KEY_WOW64_32KEY () { 0x0200 }
$RegObj= {};
@$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}=
+ (
    "NONE", "", [], "\\", "\\",
    KEY_READ|KEY_WRITE|KEY_WOW64_64KEY|KEY_WOW64_32KEY, $Flag_HexDWord
+|$Flag_FixNulls, "${PACK}::_Roots" );

      [download]

    The resulting module contains the variable $Registry (a blessed hash reference) which is still accessible:

    15:39 >perl -Mstrict -MWin32::TieRegistry64 -wE "say $Registry;"
Win32::TieRegistry64=HASH(0x17155bc)

15:55 >

    [download]

    Perhaps you missed one of the steps above? Or there’s something more you haven’t shown?

    Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]
      Yes, you're right! I missed step 3 as I thought it's just a string and may not affect the finding. The error missing now. I'll read document about things in Begin block. Thank you!
[reply]
Re: A problem when modify a pm
by bulk88 (Priest) on Dec 19, 2012 at 04:35 UTC
    I don't understand what you are doing, and you aren't showing enough code. the "use Some::Thing;" goes by file on your disk, never what is inside the file. It has no connection to the packages declared in that file. Usually a Perl module file's name will be identical to the package statement in the that module for sanity reasons.
[reply]

      OK, it's like this: to solve a problem, I have to make changes to the TieRegistry module. But to be safe, I didn't change on it directly. Instead, I made a copy and change the copied one and renamed it as TieRegistry64 in the same Perl lib folder as TieRegistry. But error mentioned happens and I didn't know how to fix at the moment.

[reply]

        The TieRegistry is a standard module of Perl. In normal time when I "use Win32:TieRegistry", I can use $Registry directly without error. I found one line in TieRegistry:

        use vars qw( $RegObj %_Roots %RegHash $Registry );
[reply]

Back to Seekers of Perl Wisdom