From a6bd894f302df904588df739f79f1b17b329a0e4 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Thu, 3 May 2012 19:47:20 +0200
Subject: Adding debug messages.

---
 lib/Fripost/Prompt.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lib/Fripost/Prompt.pm')

diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm
index 07a1c0b..4f71faf 100755
--- a/lib/Fripost/Prompt.pm
+++ b/lib/Fripost/Prompt.pm
@@ -23,13 +23,13 @@ our @ISA = qw(Exporter);
 sub confirm {
     my ($msg) = @_;
     $msg //= "Is this OK? [no will abort] ";
-    return prompt $msg, -yn;
+    return prompt -in => \*STDIN, -out => \*STDOUT, $msg, -yn;
 }
 
 sub confirm_or_abort {
     my ($msg) = @_;
     $msg //= "Is this OK? [no will abort] ";
-    my $confirmed = prompt $msg, -yn;
+    my $confirmed = prompt -in => \*STDIN, -out => \*STDOUT, $msg, -yn;
     unless ($confirmed) {
         say "User aborted";
         exit 1;
@@ -50,7 +50,7 @@ sub prompt_email {
     $msg //= "Enter email: ";
     my $email;
     do {
-        $email = prompt $msg;
+        $email = prompt -in => \*STDIN, -out => \*STDOUT, $msg;
 
         if ($is_username) {
             $email = fix_username($email);
@@ -72,8 +72,8 @@ sub prompt_password {
 
     my $password;
     do {
-        $password   = prompt $msg,  -echo => '*';
-        my $confirm = prompt $msg2, -echo => '*';
+        $password   = prompt -in => \*STDIN, -out => \*STDOUT, $msg,  -echo => '*';
+        my $confirm = prompt -in => \*STDIN, -out => \*STDOUT, $msg2, -echo => '*';
         unless ($password eq $confirm) {
             undef $password;
             say "Passwords do not match";
@@ -83,7 +83,7 @@ sub prompt_password {
 
     if ($password eq '') {
         $password = mkpasswd();
-        say "Using password: $password";    
+        say "Using password: $password";
     }
     return $password;
 }
-- 
cgit v1.2.3