Use latest M::U

szr8 · Jan 29, 2021 · f620807 · f620807
1 parent 030de37
commit f620807
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/random-selection b/random-selection
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use lib '/Users/gene/sandbox/MIDI-Util/lib';
-use MIDI::Util;
+use MIDI::Util qw(setup_score);
 use MIDI::Simple;
 use Music::AtonalUtil;
 use Text::Levenshtein qw(distance);
@@ -55,7 +55,7 @@ my %name = int2name(@notes);
 my @pitches = map { $name{$_} } @sample;
 print "@pitches\n";
 
-my $score = MIDI::Util::setup_score( patch => 0 );
+my $score = setup_score( patch => 0 );
 
 $score->n( 'qn', $_ ) for @pitches;