From 4878c6af49ddc4ca7fb7dcef21da7d9ca28014de Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Thu, 6 Dec 2007 23:58:22 +0000 Subject: 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. --- perl/Wallet/Object/Keytab.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl/Wallet/Object') 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 -- cgit v1.2.3