Greetings All
I am having trouble using the Win32::TieRegistry's CreateKey
method
sample code is given below. It does not create the key.
Im not sure what Im missing here.
#========================================
use Win32::TieRegistry (Delimiter => "/",
SplitMultis => 1, AllowLoad => 1,
qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
KEY_READ KEY_WRITE KEY_ALL_ACCESS ),
);
if($Registry->CreateKey("LMachine/SOFTWARE/TestKey")) {
print "Reg Key created \n";
}
else {
print "Failed to create key \n";
}
#========================================
I can however create the key using (much easier syntax I know)
$Registry->{"LMachine/SOFTWARE/TestKey"} = {};
As always Thanks in Advance for your assistance
Tony B. Okusanya
"Live Life By Design And Not From Crisis to Crisis"
U.S. BANCORP made the following annotations
---------------------------------------------------------------------
Electronic Privacy Notice. This e-mail, and any attachments, contains
information that is, or may be, covered by electronic communications privacy
laws, and is also confidential and proprietary in nature. If you are not the
intended recipient, please be advised that you are legally prohibited from
retaining, using, copying, distributing, or otherwise disclosing this
information in any manner. Instead, please reply to the sender that you have
received this communication in error, and then immediately delete it. Thank you
in advance for your cooperation.
---------------------------------------------------------------------
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
