aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rwxr-xr-xlib/Fripost/Password.pm4
-rwxr-xr-xlib/Fripost/Prompt.pm10
2 files changed, 7 insertions, 7 deletions
diff --git a/lib/Fripost/Password.pm b/lib/Fripost/Password.pm
index 53a10f7..fc1f7ce 100755
--- a/lib/Fripost/Password.pm
+++ b/lib/Fripost/Password.pm
@@ -33,9 +33,9 @@ our @ISA = qw(Exporter);
# CRYPT - since it requires salt).
# If `$salt' is `undef', the salt is automatically generated, using the
# subroutine `&make_salt' below.
-sub hash ($$$) {
+sub hash {
- my ($h, $salt, $pw) = @_;
+ my ($pw, $h, $salt) = @_;
$h //= SHA1;
# Treat the schemes that don't use Digest::.. separetely.
diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm
index 95ea7ea..07a1c0b 100755
--- a/lib/Fripost/Prompt.pm
+++ b/lib/Fripost/Prompt.pm
@@ -14,7 +14,7 @@ our $VERSION = '0.01';
use Data::Dumper;
use Email::Valid;
use Exporter;
-use IO::Prompt;
+use IO::Prompter;
use Fripost::Password qw/mkpasswd/;
our @EXPORT = qw(confirm confirm_or_abort fix_username prompt_email prompt_password);
@@ -23,13 +23,13 @@ our @ISA = qw(Exporter);
sub confirm {
my ($msg) = @_;
$msg //= "Is this OK? [no will abort] ";
- return prompt $msg, -ynt;
+ return prompt $msg, -yn;
}
sub confirm_or_abort {
my ($msg) = @_;
$msg //= "Is this OK? [no will abort] ";
- my $confirmed = prompt $msg, -ynt;
+ my $confirmed = prompt $msg, -yn;
unless ($confirmed) {
say "User aborted";
exit 1;
@@ -72,8 +72,8 @@ sub prompt_password {
my $password;
do {
- $password = prompt $msg, -e => '*';
- my $confirm = prompt $msg2, -e => '*';
+ $password = prompt $msg, -echo => '*';
+ my $confirm = prompt $msg2, -echo => '*';
unless ($password eq $confirm) {
undef $password;
say "Passwords do not match";