diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-07-20 22:57:01 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-07-20 22:57:01 +0200 |
| commit | 7e948f4248953e135ba9824e15801b313f69c9da (patch) | |
| tree | ecfd531eabb4b9221ad945e5eaa37e516981f087 /lib | |
| parent | 11492c5d7ece59a11b80db5f882fc3f5dabc7e87 (diff) | |
Fix pwgen usage, release v0.520.52
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/App/Raps2.pm | 8 | ||||
| -rw-r--r-- | lib/App/Raps2/Password.pm | 4 | ||||
| -rw-r--r-- | lib/App/Raps2/UI.pm | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/lib/App/Raps2.pm b/lib/App/Raps2.pm index 1d18d79..d13aaed 100644 --- a/lib/App/Raps2.pm +++ b/lib/App/Raps2.pm @@ -12,7 +12,7 @@ use File::BaseDir qw(config_home data_home); use File::Path qw(make_path); use File::Slurp qw(slurp write_file); -our $VERSION = '0.51'; +our $VERSION = '0.52'; sub new { my ( $class, %opt ) = @_; @@ -186,7 +186,7 @@ sub generate_password { my ($self) = @_; open( my $pwgen, q{-|}, $self->conf('pwgen_cmd') ) or return; - my $password = <$pwgen>; + my $password = ( split( / /, <$pwgen> ) )[0]; close($pwgen) or cluck("Cannot close pwgen pipe: $!"); chomp $password; @@ -299,7 +299,7 @@ B<App::Raps2> is the backend for B<raps2>, a simple commandline password safe. =head1 VERSION -This manual documents App::Raps2 version 0.51 +This manual documents App::Raps2 version 0.52 =head1 METHODS @@ -394,7 +394,7 @@ from the defaults config file. =item $raps2->generate_password() Runs B<pwgen_cmd> (as specified in B<new> or the config file) and returns its -first line of output, without the trailing newline. +first word of output, without trailing newlines / whitespaces. =back diff --git a/lib/App/Raps2/Password.pm b/lib/App/Raps2/Password.pm index 6b5be02..9eeb875 100644 --- a/lib/App/Raps2/Password.pm +++ b/lib/App/Raps2/Password.pm @@ -9,7 +9,7 @@ use Crypt::CBC; use Crypt::Eksblowfish; use Crypt::Eksblowfish::Bcrypt qw(bcrypt_hash en_base64 de_base64); -our $VERSION = '0.51'; +our $VERSION = '0.52'; sub new { my ( $obj, %conf ) = @_; @@ -135,7 +135,7 @@ App::Raps2::Password - Password class for App::Raps2 =head1 VERSION -This manual documents B<App::Raps2::Password> version 0.51 +This manual documents B<App::Raps2::Password> version 0.52 =head1 DESCRIPTION diff --git a/lib/App/Raps2/UI.pm b/lib/App/Raps2/UI.pm index c8b34c0..4914b71 100644 --- a/lib/App/Raps2/UI.pm +++ b/lib/App/Raps2/UI.pm @@ -8,7 +8,7 @@ use Carp qw(cluck confess); use POSIX; use Term::ReadLine; -our $VERSION = '0.51'; +our $VERSION = '0.52'; sub new { my ($obj) = @_; @@ -132,7 +132,7 @@ App::Raps2::UI - App::Raps2 User Interface =head1 VERSION -This manual documents B<App::Raps2::UI> version 0.51 +This manual documents B<App::Raps2::UI> version 0.52 =head1 DESCRIPTION |