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.

2 files changed, 4 insertions, 4 deletions

diff --git a/perl/t/kadmin.t b/perl/t/kadmin.t
index 96b249b..18d452e 100755
--- a/perl/t/kadmin.t
+++ b/perl/t/kadmin.t
@@ -29,7 +29,7 @@ use Util;
 
 # We test a Wallet::Kadmin::* module's actual workings in the keytab.t tests.
 # The only things we want to test here are that each module is found, that
-# Wallet::Kadmin itself delegates to them, and that the private MIT principal 
+# Wallet::Kadmin itself delegates to them, and that the private MIT principal
 # validation works as it should.
 for my $bad (qw{service\* = host/foo+bar host/foo/bar /bar bar/
                 rcmd.foo}) {
@@ -44,7 +44,7 @@ for my $good (qw{service service/foo bar foo/bar host/example.org
 
 # Test creating an MIT object and seeing if the callback works.
 $Wallet::Config::KEYTAB_KRBTYPE = 'MIT';
-my $kadmin = Wallet::Kadmin->new ();
+my $kadmin = Wallet::Kadmin->new;
 ok (defined ($kadmin), 'MIT kadmin object created');
 my $callback = sub { return 1 };
 $kadmin->fork_callback ($callback);
@@ -64,6 +64,6 @@ SKIP: {
     undef $Wallet::Config::KEYTAB_REALM;
     undef $kadmin;
     $Wallet::Config::KEYTAB_KRBTYPE = 'Heimdal';
-    $kadmin = eval { Wallet::Kadmin->new () };
+    $kadmin = eval { Wallet::Kadmin->new };
     is ($kadmin, undef, 'Heimdal fails properly.');
 }
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 {