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 ($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);
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue