diff --git a/pae2xml.pl b/pae2xml.pl index 1e2d2800d979081bc178477beab9d213491c66ad..7853b3b9a42ee55dcfe425738aeaad9808ce1b66 100755 --- a/pae2xml.pl +++ b/pae2xml.pl @@ -422,14 +422,12 @@ sub parse_notes { </notations> </note> '; - } - elsif ($notes =~ s/(\d+\.*)\(({?(g|q)?(\,|\')*(x|xx|b|bb|n)?\d*\.*(\-|A|B|C|D|E|F|G)t?\+?}?)\)/\($1$2\)/gs) { # pull duration into fermata parentheses + } elsif ($notes =~ s/(\d+\.*)\(({?(g|q)?(\,|\')*(x|xx|b|bb|n)?\d*\.*(\-|A|B|C|D|E|F|G)t?\+?}?)\)/\($1$2\)/gs) { # pull duration into fermata parentheses # print "after replacement: $notes\n"; exit; } elsif ($notes =~ /^ +(.*)$/) { $notes = $1; print("Invalid space encountered in notes before $notes\n"); - } - else { + } else { print_error("got stuck with $notes\n"); $notes = ""; }