From daef3e6a75b97399465a0fafac10f331a8d8f129 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 19 Jul 2010 20:32:25 +0200
Subject: [PATCH] Fix longa duration
---
pae2xml.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/pae2xml.pl b/pae2xml.pl
index 56ab32b..8957a84 100755
--- a/pae2xml.pl
+++ b/pae2xml.pl
@@ -633,7 +633,7 @@ sub raw_notehead {
my ($duration, $dots) = @_;
my %du=("0", "long", "9", "breve", "1", "whole", "2", "half", "4", "quarter",
"8", "eighth", "6", "16th", "3", "32nd", "5", "64th", "7", "128th");
- if ($duration && $du{$duration}) {
+ if (($duration ne "") && $du{$duration}) {
my $res = " <type>$du{$duration}</type>\n";
$res .= repeat (" <dot/>\n", length ($dots));
return $res;
--
GitLab