From 2e7b886b16e2e0adf723ac59efa715e15bb2e519 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Thu, 30 Aug 2007 00:30:34 +0000 Subject: Fix all the interfaces so that objects are identified as type, name, not name, type, and fix the schema for the places where I'd renamed name to object for no good reason. I don't know what I was thinking originally. --- 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 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. -- cgit v1.2.3