diff options
| author | Russ Allbery <rra@stanford.edu> | 2010-02-08 15:47:04 -0800 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2010-02-08 15:47:04 -0800 |
| commit | 346660359be7666e8629c14b2d12cebf794f6f26 (patch) | |
| tree | 9d05f0b347d82be4ac42af9a4e8edfe33025ec95 /perl/t/keytab.t | |
| parent | 04b875599b1d4559dbcd356726035416081c6b48 (diff) | |
Coding style and whitespace fixes
Combine a long series of eval blocks into a single block and a single
error check. Remove trailing whitespace, and in some cases remove
trailing () on method calls where the parens aren't useful.
Diffstat (limited to 'perl/t/keytab.t')
| -rwxr-xr-x | perl/t/keytab.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/t/keytab.t b/perl/t/keytab.t index ab5b19d..d1d5ba6 100755 --- a/perl/t/keytab.t +++ b/perl/t/keytab.t @@ -220,7 +220,7 @@ SKIP: { if ($Wallet::Config::KEYTAB_KRBTYPE eq 'MIT') { is ($@, "invalid principal name wallet\nf\n", ' with the right error'); } elsif ($Wallet::Config::KEYTAB_KRBTYPE eq 'Heimdal') { - like ($@, qr/^error adding principal wallet\nf/, + like ($@, qr/^error adding principal wallet\nf/, ' with the right error'); } $object = eval { |