From ec121c716a9e9fe078b32def9ecbbeb3522d7f3c Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sat, 17 Jul 2010 19:21:14 +0200
Subject: [PATCH] Remove unnedded commented code
---
pae2xml.pl | 6 ------
1 file changed, 6 deletions(-)
diff --git a/pae2xml.pl b/pae2xml.pl
index 929a576..7f82c91 100755
--- a/pae2xml.pl
+++ b/pae2xml.pl
@@ -246,12 +246,6 @@ sub parse_notes {
$notes =~ s/(xx|x|bb|b|n)\(/\($1/gs; # pull accidentals into tuplets or fermatas:
$notes =~ s/(\d+)(xx|x|bb|b|n)(A|B|C|D|E|F|G)/$2$1$3/gs; # accidentals first, then duration
-# $notes =~ s/x\(/\(x/gs; # pull accidentals into tuplets or fermatas
-# $notes =~ s/bb\(/\(bb/gs; # pull accidentals into tuplets or fermatas
-# $notes =~ s/b\(/\(b/gs; # pull accidentals into tuplets or fermatas
-# $notes =~ s/n\(/\(n/gs; # pull accidentals into tuplets or fermatas
- # $notes =~ s/(\'+|\,+)\(/\($1/g; # pull octave marks into tuplets or fermatas
-
$notes =~ s/(\.|\d|\,|\')qq/qq$1/gs; # pull beginning mark of group of grace notes in front of corresponding notes
$notes =~ s/(xx|x|bb|b|n)qq/qq$1/gs; # qq first, then parts of notes
--
GitLab