Merge pull request #66 from ZmK/patch-1

Bug correction in 'getsnaps'
This commit is contained in:
Jim Salter 2017-05-03 15:14:41 -04:00 committed by GitHub
commit ab12e59485
1 changed files with 2 additions and 4 deletions

View File

@ -848,11 +848,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;
}
}