Bug correction in 'getsnaps'

getsnaps not working when snapshot name contains 'creation'
This commit is contained in:
ZakMcKraken 2017-01-17 17:38:35 +01:00 committed by GitHub
parent c121305b9d
commit 8534369204
1 changed files with 2 additions and 4 deletions

View File

@ -798,11 +798,9 @@ sub getsnaps() {
if ($line =~ /$fs\@/) {
chomp $line;
my $ctime = $line;
$ctime =~ s/^.*creation\s*//;
$ctime =~ s/\s*-$//;
$ctime =~ s/^.*\screation\s*(\d*).*/$1/;
my $snap = $line;
$snap =~ s/\s*creation.*$//;
$snap =~ s/^\S*\@//;
$snap =~ s/^\S*\@(\S*)\s*creation.*$/$1/;
$snaps{$type}{$snap}{'ctime'}=$ctime;
}
}