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.