diff --git a/pae2xml.pl b/pae2xml.pl index e38fe27152884bd5a59f995fefaa723fa0be3479..c99c0aa3b5123ccf8b7c49739a2a02e8926bed11 100755 --- a/pae2xml.pl +++ b/pae2xml.pl @@ -795,10 +795,9 @@ sub timesignature { print "Alternating time signature \"$timesig\" not supported by MusicXML, falling back to $1.\n"; $timesig = $1; } - # TODO: if ($timesig =~ /^c((\d+)(\/(\d+))?)$/gs) { print "Time signature \"$timesig\" not supported by MusicXML, falling back to $1.\n"; - $timesig = "$1"; # it would be better to show the "C". Example: 451.023.814 + $timesig = "$1"; # TODO: it would be better to show the "C". Example: 451.023.814 } # For missing timesignature, fall back to "c" @@ -814,7 +813,7 @@ sub timesignature { $symbol = "single-number"; ($beats, $beattype) = ($1,2); } else { - print_error("Time signature '$timesig' looks strange.\n"); + print_error("Time signature '$timesig' looks strange, falling back to 4/4.\n"); ($beats, $beattype) = (4,4); } if ($symbol) {