diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-04-03 16:54:40 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-04-03 16:54:40 +0200 |
| commit | 3f2a49b697a6eb5ff8db78c05c65070b46bb75a6 (patch) | |
| tree | 3c8597bbd372ec704d96c28f31935a6c733acfcd /lib/App/Raps2/UI.pm | |
| parent | c9b94ac51383501ea80e0485cba4f891dbcce3fa (diff) | |
Use confess instead of return undef, Test::Exception for App::Raps2::Password test
Diffstat (limited to 'lib/App/Raps2/UI.pm')
| -rw-r--r-- | lib/App/Raps2/UI.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/App/Raps2/UI.pm b/lib/App/Raps2/UI.pm index 43abf29..427270c 100644 --- a/lib/App/Raps2/UI.pm +++ b/lib/App/Raps2/UI.pm @@ -7,6 +7,7 @@ use 5.010; use base 'Exporter'; +use Carp qw(confess); use POSIX; our @EXPORT_OK = (); @@ -63,7 +64,7 @@ sub read_pw { $term->setattr(0, POSIX::TCSANOW); if ($verify and $in1 ne $in2) { - return undef; + confess('Input lines did not match'); } chomp $in1; |