fix bug with comma on french Windows OS (#1175)

This commit is contained in:
Stéphane Duret 2018-10-19 09:51:04 +02:00 committed by Colin Gagnaire
parent a3527417a7
commit 0d5c0b1da6
1 changed files with 4 additions and 2 deletions

View File

@ -118,7 +118,9 @@ sub manage_selection {
my ($name, $status, $note, $content) = ($1, $2, $3, $4); my ($name, $status, $note, $content) = ($1, $2, $3, $4);
my %chkpt = (backing => -1, snapshot => -1); my %chkpt = (backing => -1, snapshot => -1);
while ($content =~ /\[checkpointCreationTime=\s*(.*?)\s*\]\[type=\s*(.*?)\s*\]/msig) { while ($content =~ /\[checkpointCreationTime=\s*(.*?)\s*\]\[type=\s*(.*?)\s*\]/msig) {
$chkpt{$2} = $1 if ($chkpt{$2} == -1 || $chkpt{$2} > $1); my ($timestamp, $type) = ($1, $2);
$timestamp =~ s/,/\./g;
$chkpt{$type} = $timestamp if ($chkpt{$type} == -1 || $chkpt{$type} > $timestamp);
} }
next if ($chkpt{backing} == -1 && $chkpt{snapshot} == -1); next if ($chkpt{backing} == -1 && $chkpt{snapshot} == -1);