Permalink
Browse files

Sub contents of regex for regex so this will compile again.

  • Loading branch information...
1 parent 4c19b22 commit 5645ddad5523a2fc95b2b68a1af31bd32c54cc96 @colomon colomon committed Jul 2, 2010
Showing with 2 additions and 1 deletion.
  1. +2 −1 lib/ABC.pm
View
@@ -80,7 +80,8 @@ sub key_signature($key_signature_name)
'Cb' => -7
);
- my $match = $key_signature_name ~~ m/ <ABC::basenote> ('#' | 'b')? \h* (\w*) /;
+ # <[a..g]+[A..G]> should be <ABC::basenote
+ my $match = $key_signature_name ~~ m/ <[a..g]+[A..G]> ('#' | 'b')? \h* (\w*) /;
die "Illegal key signature\n" unless $match ~~ Match;
my $lookup = [~] $match<ABC::basenote>.uc, $match[0];
my $sharps = %keys{$lookup};

0 comments on commit 5645dda

Please sign in to comment.