diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-08-30 00:30:34 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-08-30 00:30:34 +0000 |
| commit | 2e7b886b16e2e0adf723ac59efa715e15bb2e519 (patch) | |
| tree | 4492b4ca7ece95aa0c2b7779fe37f1b48e483586 /perl/Wallet/Object/Keytab.pm | |
| parent | 9c24f5325524066d98a600215246bf990313f0e3 (diff) | |
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.
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. |