fix bug with comma on french Windows OS (#1175)
This commit is contained in:
parent
a3527417a7
commit
0d5c0b1da6
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue