diff options
| author | Russ Allbery <rra@stanford.edu> | 2011-05-17 16:11:06 -0700 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2011-05-17 16:11:06 -0700 |
| commit | 4ee50d93cf99f55a503d0ca788e6c1a468eeacf6 (patch) | |
| tree | d03149c8148c682337f791b45b76226ed613f04f /perl/Wallet/Schema.pm | |
| parent | deaa5c140e85d8e1248d910f0721c9e00a46e439 (diff) | |
Add wallet-admin upgrade command to upgrade the database
Hook the new upgrade method of Wallet::Schema into Wallet::Admin
and the wallet-admin wrapper script.
Diffstat (limited to 'perl/Wallet/Schema.pm')
| -rw-r--r-- | perl/Wallet/Schema.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/Schema.pm b/perl/Wallet/Schema.pm index 911d7a9..0f6c53f 100644 --- a/perl/Wallet/Schema.pm +++ b/perl/Wallet/Schema.pm @@ -126,7 +126,7 @@ sub _schema_version { eval { my $sql = 'select md_version from metadata'; my $result = $dbh->selectrow_arrayref ($sql); - $version = $result->[0][0]; + $version = $result->[0]; }; if ($@) { $version = 0; |