diff options
Diffstat (limited to 'perl/Wallet/Object/Keytab.pm')
| -rw-r--r-- | perl/Wallet/Object/Keytab.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 = <KEYTAB>; 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; |