From 9b579adba92e8b01ff31542ef69b4cad735115f9 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 23 Mar 2020 11:55:29 -0700 Subject: prefix prompt_yn with an underscore Signed-off-by: Sean Whitton --- lib/App/annex_review_unused.pm | 4 ++-- 1 file 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; -- cgit v1.2.3