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" );
in my perl, change from:
use Win32::TieRegistry;
to:
use Win32::TieRegistry64;
I checked the path correct. Any suggestion?