From a0e3892a6e4865a36ac3848d640198dc3a25d6c1 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Thu, 30 Aug 2007 04:27:10 +0000 Subject: Clean up all exception output when storing it in the error variable to remove the " at line" stuff added by Perl and the newlines so that the errors stored in objects are consistent. Fix various bugs in the base object, including a few more type vs. name inversions and use of object instead of name. Allow owners to be specified as ACL names instead of IDs, and change the ID to a name in show. Add a new test suite for the base object implementation. --- perl/Wallet/Object/Keytab.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl/Wallet/Object/Keytab.pm') diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm index f83949c..8635bee 100644 --- a/perl/Wallet/Object/Keytab.pm +++ b/perl/Wallet/Object/Keytab.pm @@ -166,7 +166,7 @@ sub get { local *KEYTAB; unless (open (KEYTAB, '<', $file)) { my $princ = $self->{name}; - $self->{error} = "error creating keytab for principal $princ: $!"; + $self->{error} = "error opening keytab for principal $princ: $!"; return undef; } local $/; @@ -174,7 +174,7 @@ sub get { my $data = ; if ($!) { my $princ = $self->{name}; - $self->{error} = "error creating keytab for principal $princ: $!"; + $self->{error} = "error reading keytab for principal $princ: $!"; return undef; } close KEYTAB; -- cgit v1.2.3