diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-12-05 01:34:39 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-12-05 01:34:39 +0000 |
| commit | 5ad61b6ecd14adffa013ef5b0b8c2b8da8cca03b (patch) | |
| tree | fa3cc53424cb31c6d4306ca2ccb438e0e244806f /perl/Wallet/Object/Keytab.pm | |
| parent | c74e1824fe878d6289a6a0fa3b777d5c425e0a44 (diff) | |
Coding style improvements.
Diffstat (limited to 'perl/Wallet/Object/Keytab.pm')
| -rw-r--r-- | perl/Wallet/Object/Keytab.pm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm index c2f66d4..7aeb5da 100644 --- a/perl/Wallet/Object/Keytab.pm +++ b/perl/Wallet/Object/Keytab.pm @@ -24,7 +24,7 @@ use Wallet::Object::Base; # This version should be increased on any code change to this module. Always # use two digits for the minor version with a leading zero if necessary so # that it will sort properly. -$VERSION = '0.02'; +$VERSION = '0.03'; ############################################################################## # kadmin Interaction @@ -36,10 +36,7 @@ $VERSION = '0.02'; # realm information here. sub valid_principal { my ($self, $principal) = @_; - if ($principal !~ m,^[\w-]+(/[\w_-]+)?\z,) { - return undef; - } - return 1; + return scalar ($principal =~ m,^[\w-]+(/[\w_-]+)?\z,); } # Run a kadmin command and capture the output. Returns the output, either as |