prefix prompt_yn with an underscore

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/App/annex_review_unused.pm b/lib/App/annex_review_unused.pm
index 5c5e5a7..eae6cd0 100644
--- a/lib/App/annex_review_unused.pm
+++ b/lib/App/annex_review_unused.pm
@@ -173,7 +173,7 @@ sub main {
         _say_spaced_bullet("Will dropunused with --force:");
         say "@to_drop\n";
         $annex->annex->dropunused(\%dropunused_args, "--force", @to_drop)
-          if prompt_yn("Go ahead with this?");
+          if _prompt_yn("Go ahead with this?");
     }
 
     # exit value represents whether or not there are any unused files left
@@ -191,7 +191,7 @@ sub _say_bullet { _say_bold(" • ", @_) }
 
 sub _say_spaced_bullet { _say_bold("\n", " • ", @_, "\n") }
 
-sub prompt_yn {
+sub _prompt_yn {
     my $prompt = shift;
     local $| = 1;
     my $response;