RegistryCommands: fix `regfind`

This commit is contained in:
Pragmatic Software 2020-01-17 23:00:55 -08:00
parent fc851a069d
commit 20f767e2f2
1 changed files with 2 additions and 2 deletions

View File

@ -210,7 +210,7 @@ sub regfind {
my ($section, $showvalues);
$section = $1 if $arguments =~ s/-section\s+([^\b\s]+)//i;
$showvalues = 1 if $arguments =~ s/-showvalues//i;
$showvalues = 1 if $arguments =~ s/-showvalues?//i;
$arguments =~ s/^\s+//;
$arguments =~ s/\s+$//;
@ -220,7 +220,7 @@ sub regfind {
return $usage;
}
$section = lc $section;
$section = lc $section if defined $section;;
my ($text, $last_item, $last_section, $i);
$last_section = "";