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 %chkpt = (backing => -1, snapshot => -1);
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);
@ -204,4 +206,4 @@ Can be: 'snapshot' (in seconds), 'backing' (in seconds).
=back
=cut
=cut