=cut
-
$prompt ||= 'Password';
- my $password;
+ my $password = '';
local $| = 1;
last;
} # if
- print '*';
+ # Handle backspaces
+ if ($key eq chr(127)) {
+ unless ($password eq '') {
+ chop $password;
+
+ print "\b \b";
+ } # unless
+ } else {
+ print '*';
- $password .= $key;
+ $password .= $key;
+ } # if
} # while
ReadMode 'restore'; # Reset tty mode before exiting.
# TODO: Make it work on Windows...
return if $^O =~ /win/i;
- open my $loadAvg, '/proc/loadavg'
+ open my $loadAvg, '<', '/proc/loadavg'
or croak "Unable to open /proc/loadavg\n";
my $load = <$loadAvg>;