perl -MWin32::WinError -le"print for $INC{'Win32/WinError.pm'}, $Win32
+::WinError::VERSION"
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";
#}
Comment out those lines as shown above.
|