TimeSig: Better warnings

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) {