From f6208073b33afe0df0720d9a329e0c3477d2122c Mon Sep 17 00:00:00 2001
From: Gene Boggs <gene@ology.net>
Date: Fri, 29 Jan 2021 07:37:52 -0800
Subject: [PATCH] Use latest M::U

---
 random-selection | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/random-selection b/random-selection
index f71f1c6b..c605d6f0 100644
--- 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;