Refresh the root on '/'

This commit is contained in:
Neil Macneale IV
2023-11-27 11:54:57 -08:00
committed by Aaron Son
parent aa24a2f192
commit 2dc6fa7a8b

View File

@@ -14,8 +14,7 @@ print "Welcome to the splunk shell for exploring dolt repository storage.\n";
my $root = `noms root $noms_dir`;
my $message = "Currently examining root.\nUse numeric labels to navigate the tree\n.. to back up a level, / to return to root.\nType quit or exit to exit.\n";
my $message = "Currently examining root.\nUse numeric labels to navigate the tree\n.. to back up a level, / to return reload root and return there.\nType quit or exit to exit.\n";
my $hash = $root;
my @stack = ($root);
@@ -45,6 +44,7 @@ while (true) {
}
if ($input eq "/") {
$root = `noms root $noms_dir`;
$hash = $root;
@stack = ($root);
next;