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 e4cb00c..f83949c 100644 --- a/perl/Wallet/Object/Keytab.pm +++ b/perl/Wallet/Object/Keytab.pm @@ -141,12 +141,12 @@ sub _kadmin_delprinc { # great here since we don't have a way to communicate the error back to the # caller. sub create { - my ($class, $name, $type, $dbh, $creator, $host, $time) = @_; + my ($class, $type, $name, $dbh, $creator, $host, $time) = @_; if ($name !~ /\@/ && $Wallet::Config::KEYTAB_REALM) { $name .= '@' . $Wallet::Config::KEYTAB_REALM; } $class->_kadmin_addprinc ($name); - return $class->SUPER::create ($name, $type, $dbh, $creator, $host, $time); + return $class->SUPER::create ($type, $name, $dbh, $creator, $host, $time); } # Override destroy to delete the principal out of Kerberos as well. |