I got exactly the same error, but I would expect it since I do not have an ActivePerl1 key. If I replace the ActivePerl1 with ActivePerl then it works for me - sort of.

Your "error" traces look for an error even when there is none. You should only call regLastError when a function fails, that is returns false. You are calling in some cases without testing the return code.