diff options
author | Thomas Radke (AEI) <tradke@peyoteb.aei.mpg.de> | 2008-03-25 16:10:05 +0100 |
---|---|---|
committer | Thomas Radke (AEI) <tradke@peyoteb.aei.mpg.de> | 2008-03-25 16:10:05 +0100 |
commit | 5d1020178aa53e4d47738fcacfc24efeb45de235 (patch) | |
tree | 3870a9ce5b15b1206d57818c62511ec3f65409c9 /Carpet/CarpetIOScalar | |
parent | c9e733b12813514f54b36a769e0d8b04c709cee3 (diff) |
bugfix to correct the parsing of cctk_time values without a decimal comma
Diffstat (limited to 'Carpet/CarpetIOScalar')
-rwxr-xr-x | Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl b/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl index 5e9702715..2b24086b9 100755 --- a/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl +++ b/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl @@ -45,7 +45,7 @@ while (<>) { # falls diese Zeile eine Datenzeile ist: # merke den Datensatz mit seinem Zeitschritt - $timesteps{$1} = $_ if (/^(\d+(.\d+)?)\s/); + $timesteps{$1} = $_ if (/^(\d+)\s+/); } # stelle die Liste aller Eingabe-Dateien wieder her @@ -54,7 +54,7 @@ while (<>) { # lies zeilenweise alle Eingabe-Dateien while (<>) { # gib alle Zeilen bis zur ersten Datenzeile aus - last if (/^(\d+(.\d+)?)\s/); + last if (/^\d+\s+/); print; } |