From 2e9e955e93d1c5a6c8900ec3e9bdf0b5da5831ba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Lesimple?=
 <stephane.lesimple+bastion@ovhcloud.com>
Date: Thu, 17 Feb 2022 13:31:59 +0000
Subject: [PATCH] chore: interactive.inc: prepend internal funcs by _

---
 lib/perl/OVH/Bastion/interactive.inc | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/perl/OVH/Bastion/interactive.inc b/lib/perl/OVH/Bastion/interactive.inc
index 486131c..55ae93c 100644
--- a/lib/perl/OVH/Bastion/interactive.inc
+++ b/lib/perl/OVH/Bastion/interactive.inc
@@ -8,7 +8,7 @@ use POSIX ();
 # autocompletion rules
 my @rules;
 
-sub get_prompt {
+sub _get_prompt {
     my ($self, $bastionName, $slaveOrMaster) = @_;
     my $mfaOk = "";
     if ($ENV{'OSH_PROACTIVE_MFA'}) {
@@ -30,9 +30,9 @@ sub get_prompt {
     return $prompt;
 }
 
-sub get_prompt_non_readline {
+sub _get_prompt_non_readline {
     my %info                = @_;
-    my $prompt_non_readline = get_prompt(%info);
+    my $prompt_non_readline = _get_prompt(%info);
     $prompt_non_readline =~ s=\001|\002==g;
     return $prompt_non_readline;
 }
@@ -195,7 +195,7 @@ EOM
 
             # else, we just print stuff ourselves
             if ($item->{'pr'}) {
-                print "\n" . join("\n", @{$item->{'pr'}}) . "\n" . get_prompt_non_readline($self, $bastionName, $slaveOrMaster) . $line;
+                print "\n" . join("\n", @{$item->{'pr'}}) . "\n" . _get_prompt_non_readline($self, $bastionName, $slaveOrMaster) . $line;
                 return ();
             }
         }
@@ -218,7 +218,7 @@ EOM
 
     my $BASTION_USER = OVH::Bastion::get_user_from_env()->value;
     alarm($interactiveModeTimeout);
-    while (defined(my $line = $term->readline(get_prompt($self, $bastionName, $slaveOrMaster)))) {
+    while (defined(my $line = $term->readline(_get_prompt($self, $bastionName, $slaveOrMaster)))) {
         alarm(0);      # disable timeout
         $line =~ s/^\s+|\s+$//g;