diff options
author | Thomas Radke <tradke@aei.mpg.de> | 2006-08-28 13:07:00 +0000 |
---|---|---|
committer | Thomas Radke <tradke@aei.mpg.de> | 2006-08-28 13:07:00 +0000 |
commit | f722e634a4ac97637dbd16424a04160fd99e310c (patch) | |
tree | 16abc0b97acc56acab5d514cb9e2da07c06b6edb /Carpet/CarpetIOASCII | |
parent | 4f9ae576e62289ee5d29acc100bfbbdddaeee46f (diff) |
CarpetIOASCII: forgot to print the iteration number comment line in mergeCarpetIOASCII.pl
darcs-hash:20060828130746-776a0-25e0c2bbbaf9ceb5bb4a18433544c73c127a0916.gz
Diffstat (limited to 'Carpet/CarpetIOASCII')
-rwxr-xr-x | Carpet/CarpetIOASCII/src/util/mergeCarpetIOASCII.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Carpet/CarpetIOASCII/src/util/mergeCarpetIOASCII.pl b/Carpet/CarpetIOASCII/src/util/mergeCarpetIOASCII.pl index 9439f0dba..6072832b2 100755 --- a/Carpet/CarpetIOASCII/src/util/mergeCarpetIOASCII.pl +++ b/Carpet/CarpetIOASCII/src/util/mergeCarpetIOASCII.pl @@ -74,6 +74,9 @@ while (<>) { # falls diese Zeile einen neuen Datensatz einleitet: if (/^# iteration (\d+)$/) { + # gib die aktuelle (Kommentar-)Zeile aus + print; + # ermittle die Iterationsnummer aus der aktuellen Zeile ... my $iteration = $1; |