[Jifty-commit] r6127 - in Net-Jifty/trunk: .
Jifty commits
jifty-commit at lists.jifty.org
Tue Dec 16 22:45:59 EST 2008
Author: sartak
Date: Tue Dec 16 22:45:59 2008
New Revision: 6127
Modified:
Net-Jifty/trunk/ (props changed)
Net-Jifty/trunk/Makefile.PL
Net-Jifty/trunk/lib/Net/Jifty.pm
Log:
r77613 at onn: sartak | 2008-12-16 22:45:53 -0500
Make Term::ReadKey more optional
Modified: Net-Jifty/trunk/Makefile.PL
==============================================================================
--- Net-Jifty/trunk/Makefile.PL (original)
+++ Net-Jifty/trunk/Makefile.PL Tue Dec 16 22:45:59 2008
@@ -7,8 +7,6 @@
requires 'LWP::UserAgent';
requires 'YAML';
requires 'URI';
-requires 'Encode';
-requires 'Term::ReadKey';
build_requires 'Test::More';
build_requires 'Test::MockObject';
@@ -28,6 +26,10 @@
-default => 0,
recommends('Email::Address'),
],
+ 'Hiding password entry' => [
+ -default => 0,
+ recommends('Term::ReadKey'),
+ ],
);
WriteAll;
Modified: Net-Jifty/trunk/lib/Net/Jifty.pm
==============================================================================
--- Net-Jifty/trunk/lib/Net/Jifty.pm (original)
+++ Net-Jifty/trunk/lib/Net/Jifty.pm Tue Dec 16 22:45:59 2008
@@ -602,12 +602,16 @@
$self->config->{email} = <STDIN>;
chomp($self->config->{email});
- require Term::ReadKey;
+ my $read_mode = eval {
+ require Term::ReadKey;
+ \&Term::ReadKey::ReadMode;
+ } || sub {};
+
print "And your password? ";
- Term::ReadKey::ReadMode('noecho');
+ $read_mode->('noecho');
$self->config->{password} = <STDIN>;
chomp($self->config->{password});
- Term::ReadKey::ReadMode('restore');
+ $read_mode->('restore');
print "\n";
More information about the Jifty-commit
mailing list