Permalink
Browse files

Clean up left-over debugging "say" statements.

  • Loading branch information...
1 parent c6e0e71 commit 3986c308e6efc1ddd279ff09a7b0b1e8e751edea @colomon committed Mar 2, 2013
Showing with 1 addition and 2 deletions.
  1. +1 −2 lib/ABC/Utils.pm
View
3 lib/ABC/Utils.pm
@@ -38,7 +38,7 @@ package ABC::Utils {
# say :$match.perl;
die "Illegal key signature\n" unless $match;
fail unless $match<key-def>;
- say $match<key-def>.perl;
+ # say $match<key-def>.perl;
my $lookup = $match<key-def><basenote>.uc;
# say :$lookup.perl;
my $sharps = %keys{$match<key-def><basenote>.uc};
@@ -74,7 +74,6 @@ package ABC::Utils {
if $match<key-def><global-accidental> {
for $match<key-def><global-accidental> -> $ga {
- say $ga<basenote>.uc, " huh ", ~$ga<accidental>;
%hash{$ga<basenote>.uc} = ~$ga<accidental>;
}
}

0 comments on commit 3986c30

Please sign in to comment.