diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-23 11:55:29 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-23 11:55:29 -0700 |
commit | 9b579adba92e8b01ff31542ef69b4cad735115f9 (patch) | |
tree | 675612929565b2775d30c73628b70e879bf46420 | |
parent | 767057768a49e73f523939c2f43da0f65f684638 (diff) | |
download | p5-Git-Annex-9b579adba92e8b01ff31542ef69b4cad735115f9.tar.gz |
prefix prompt_yn with an underscore
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | lib/App/annex_review_unused.pm | 4 |
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; |