diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-12-06 23:58:22 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-12-06 23:58:22 +0000 |
| commit | 4878c6af49ddc4ca7fb7dcef21da7d9ca28014de (patch) | |
| tree | dcc59895b4bd432476052fea08e47908ec2ae715 /perl/Wallet/Object/Keytab.pm | |
| parent | 4ee72e4149ca95e04381b434a13308022f9783cd (diff) | |
Fix the keytab principal validation regex to allow instances
containing periods. Otherwise, it's hard to manage host keytabs. Add
a missing test suite for that method.
Diffstat (limited to 'perl/Wallet/Object/Keytab.pm')
| -rw-r--r-- | perl/Wallet/Object/Keytab.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm index ed998aa..fcd427a 100644 --- a/perl/Wallet/Object/Keytab.pm +++ b/perl/Wallet/Object/Keytab.pm @@ -36,7 +36,7 @@ $VERSION = '0.03'; # realm information here. sub valid_principal { my ($self, $principal) = @_; - return scalar ($principal =~ m,^[\w-]+(/[\w_-]+)?\z,); + return scalar ($principal =~ m,^[\w-]+(/[\w_.-]+)?\z,); } # Run a kadmin command and capture the output. Returns the output, either as |