Win32::Security::NamedObject::SE_REGISTRY_KEY does not work for remote
registry paths because of the mistake corrected bellow:
--- Win32\Security\NamedObject.pm-broken Fri Jan 25 14:00:09 2008
+++ Win32\Security\NamedObject.pm Fri Jan 25 13:59:36 2008
@@ -407,7 +407,7 @@
$key = $mappings->{$key} || $key;
$objectName = $key.$rest;
} elsif ($objectName =~ /^(\\\\[^\\]+\\)([^\\]+)(\\[^\\].*)?$/) {
- my($first, $key, $rest) = ($1, $2);
+ my($first, $key, $rest) = ($1, $2, $3);
$key = $mappings->{$key} || $key;
$objectName = $first.$key.$rest;
}