Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: A problem when modify a pm

by Athanasius (Monsignor)
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
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 rifling through the Monastery: (10)
As of 2014-10-01 21:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (38 votes), past polls