Re^2: Win32::TieRegistry Error (or is it me?) (leads)

I was pretty sure that it wasn't the upgrade but that was the only that changed.

Here's what I did:

eval { @regValues = $fieldKey->ValueNames; };
print "\$\^E: $^E\nregLastError: " . Win32API::Registry::regLastError(
+) ."\n\n";
[download]

The program did not die and here's what was printed:

$^E: 
regLastError: No more data is available
[download]

Without the eval:

@regValues = $fieldKey->ValueNames;
print "\$\^E: $^E\nregLastError: " . Win32API::Registry::regLastError(
+) ."\n\n";
[download]

the program dies and prints this:

$^E: No more data is available
regLastError: No more data is available

Can't use an undefined value as an ARRAY reference at C:/Perl/site/lib
+/Win32/TieRegistry.pm line 684, <DATA> line 164.
[download]

However, I may not have used eval correctly or as you intended. If not let me know and I'll do it again.

Thanks,
Chris

Comment on Re^2: Win32::TieRegistry Error (or is it me?) (leads) Select or Download Code

Replies are listed 'Best First'.
Re^3: Win32::TieRegistry Error (or is it me?) (leads) by tye (Sage) on Sep 27, 2005 at 03:01 UTC
Okay, that makes it look like Win32::WinError got changed. What does this produce? `perl -MWin32::WinError -le"print Win32::WinError::constant("ERROR_NO_M +ORE_ITEMS",0)" perl -MWin32::WinError=999 -e0` [download] - tye	[reply] [d/l]
Re^4: Win32::TieRegistry Error (or is it me?) (leads) by ChrisR (Hermit) on Sep 27, 2005 at 03:11 UTC
`perl -MWin32::WinError -le"print Win32::WinError::constant("ERROR_NO_M +ORE_ITEMS",0)"` [download] Prints `0` `perl -MWin32::WinError=999 -e0` [download] Prints nothing.	[reply] [d/l] [select]
Re^5: Win32::TieRegistry Error (or is it me?) (leads) by tye (Sage) on Sep 27, 2005 at 03:30 UTC
That looks very broken. Can you investigate Win32::WinError? What changed about it? For example: `perl -MWin32::WinError -le"print for $INC{'Win32/WinError.pm'}, $Win32 +::WinError::VERSION"` [download] In the mean time, you can edit TieRegistry.pm to make it no longer rely on Win32::WinError: `#if( eval { require Win32::WinError } ) { # $_NoMoreItems= Win32::WinError::constant("ERROR_NO_MORE_ITEMS",0) +; # $_FileNotFound= Win32::WinError::constant("ERROR_FILE_NOT_FOUND", +0); # $_TooSmall= Win32::WinError::constant("ERROR_INSUFFICIENT_BUFFER" +,0); # $_MoreData= Win32::WinError::constant("ERROR_MORE_DATA",0); #} else { $_NoMoreItems= "^No more data"; $_FileNotFound= "cannot find the file"; $_TooSmall= " data area passed to "; $_MoreData= "^more data is avail"; #}` [download] Comment out those lines as shown above. - tye	[reply] [d/l] [select]
Re^6: Win32::TieRegistry Error (or is it me?) (leads) by ChrisR (Hermit) on Sep 27, 2005 at 03:46 UTC
Re^6: Win32::TieRegistry Error (or is it me?) (leads) by ChrisR (Hermit) on Sep 27, 2005 at 19:55 UTC
Re^7: Win32::TieRegistry Error (or is it me?) (ends) by tye (Sage) on Oct 04, 2005 at 03:56 UTC


Syntactic Confectionery Delight
	PerlMonks