mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

virt-win-reg: Don't use implicit $_ in map_path_to_hive function.

Browse Source
This commit is contained in:
Richard W.M. Jones
2011-05-17 13:15:25 +01:00
parent 3b4bb214c3
commit 4443cfab8b
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
tools/virt-win-reg
View File

@@ -367,36 +367,36 @@ sub import_mapper
sub map_path_to_hive
{
local $_ = shift;
my ($hiveshortname, $hivefile, $prefix);
my ($hiveshortname, $hivefile, $path, $prefix);
if (/^\\?(?:HKEY_LOCAL_MACHINE|HKLM)\\SAM(\\.*)?$/i) {
$hiveshortname = "sam";
$hivefile = "$systemroot/system32/config/$hiveshortname";
$_ = defined $1 ? $1 : "\\";
$path = defined $1 ? $1 : "\\";
$prefix = "HKEY_LOCAL_MACHINE\\SAM";
}
elsif (/^\\?(?:HKEY_LOCAL_MACHINE|HKLM)\\SECURITY(\\.*)?$/i) {
$hiveshortname = "security";
$hivefile = "$systemroot/system32/config/$hiveshortname";
$_ = defined $1 ? $1 : "\\";
$path = defined $1 ? $1 : "\\";
$prefix = "HKEY_LOCAL_MACHINE\\SECURITY";
}
elsif (/^\\?(?:HKEY_LOCAL_MACHINE|HKLM)\\SOFTWARE(\\.*)?$/i) {
$hiveshortname = "software";
$hivefile = "$systemroot/system32/config/$hiveshortname";
$_ = defined $1 ? $1 : "\\";
$path = defined $1 ? $1 : "\\";
$prefix = "HKEY_LOCAL_MACHINE\\SOFTWARE";
}
elsif (/^\\?(?:HKEY_LOCAL_MACHINE|HKLM)\\SYSTEM(\\.*)?$/i) {
$hiveshortname = "system";
$hivefile = "$systemroot/system32/config/$hiveshortname";
$_ = defined $1 ? $1 : "\\";
$path = defined $1 ? $1 : "\\";
$prefix = "HKEY_LOCAL_MACHINE\\SYSTEM";
}
elsif (/^\\?(?:HKEY_USERS|HKU)\\.DEFAULT(\\.*)?$/i) {
$hiveshortname = "default";
$hivefile = "$systemroot/system32/config/$hiveshortname";
$_ = defined $1 ? $1 : "\\";
$path = defined $1 ? $1 : "\\";
$prefix = "HKEY_LOCAL_MACHINE\\.DEFAULT";
}
else {
@@ -404,7 +404,7 @@ sub map_path_to_hive
p => $_)
}
return ($hiveshortname, $hivefile, $_, $prefix);
return ($hiveshortname, $hivefile, $path, $prefix);
}
# Download a named hive file. Die on failure.