diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-08-30 19:22:39 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-08-30 19:22:39 +0000 |
| commit | 75ad7ed6bec2237d3944b926490076bb3d22bdc9 (patch) | |
| tree | e78cc7752adbd541118ff3dea6294214b8a18bed /perl | |
| parent | 608e1f0106ab41fb2c19b8b75b5a31eb537bde56 (diff) | |
Do not require (or allow) principals to be qualified with the realm.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Wallet/Object/Keytab.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm index 8635bee..37cc5d9 100644 --- a/perl/Wallet/Object/Keytab.pm +++ b/perl/Wallet/Object/Keytab.pm @@ -32,10 +32,11 @@ $VERSION = '0.01'; # Make sure that principals are well-formed and don't contain characters that # will cause us problems when talking to kadmin. Takes a principal and -# returns true if it's okay, false otherwise. +# returns true if it's okay, false otherwise. Note that we do not permit +# realm information here. sub _valid_principal { my ($self, $principal) = @_; - if ($principal !~ m,^[\w-]+(/[\w_-]+)?\@[\w._-]+,) { + if ($principal !~ m,^[\w-]+(/[\w_-]+)?,) { return undef; } return 1; |