Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: A problem when modify a pm

by Athanasius (Abbot)
on Dec 19, 2012 at 05:58 UTC ( #1009501=note: print w/ replies, xml ) Need Help??


in reply to A problem when modify a pm

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'; }

    to

    BEGIN { $PACK = 'Win32::TieRegistry64'; $VERSION = '0.26'; @ISA = 'Tie::Hash'; }
  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" );

    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" );

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 >

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,


Comment on Re: A problem when modify a pm
Select or Download Code
Replies are listed 'Best First'.
Re^2: A problem when modify a pm
by anaconda_wly (Scribe) on Dec 19, 2012 at 06:21 UTC
    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!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1009501]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (9)
As of 2015-07-29 20:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (268 votes), past polls