[mb-commits] branch, master, updated. Commiting local changes to ShowDBDefs and default DBDefs from astro

The branch, master has been updated
       via  http://git.musicbrainz.org/gitweb/?p=musicbrainz-server/core.git;a=commit;h=f862b74455551ef66831582eb303941bbeed6173 (commit)
      from  http://git.musicbrainz.org/gitweb/?p=musicbrainz-server/core.git;a=commit;h=041642df3759db24305825938cf9999973c8db50 (commit)

Summary of changes:
 admin/ShowDBDefs      |    8 ++++----
 lib/DBDefs/Default.pm |    2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit f862b74455551ef66831582eb303941bbeed6173
Author: Oliver Charles <[email protected]>
Date:   Mon Dec 10 10:53:05 2012 +0000

    Commiting local changes to ShowDBDefs and default DBDefs from astro

diff --git a/admin/ShowDBDefs b/admin/ShowDBDefs
index 31fa38c..86c9942 100755
--- a/admin/ShowDBDefs
+++ b/admin/ShowDBDefs
@@ -35,14 +35,14 @@ use warnings;
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 
+use Class::MOP;
 use DBDefs;
-use Package::Stash;
 use String::ShellQuote;
 
-my $export = Package::Stash->new('DBDefs')->get_all_symbols('CODE');
+my $export = { map { $_->name => $_ } Class::MOP::Class->initialize('DBDefs')->get_all_methods('CODE') };
 
 my %exclude = map { $_ => 1 }
-    qw ( COVER_ART_ARCHIVE_UPLOAD_PREFIXER );
+    qw ( COVER_ART_ARCHIVE_UPLOAD_PREFIXER DOES );
 
-printf "export %s=%s\n", $_, shell_quote($export->{$_}->() || '')
+printf "export %s=%s\n", $_, shell_quote($export->{$_}->body->('DBDefs') || '')
     for (grep { !exists $exclude{$_} } grep { /^[A-Z]+(_[A-Z]+)*$/ } keys %$export)
diff --git a/lib/DBDefs/Default.pm b/lib/DBDefs/Default.pm
index e160034..87c9e48 100644
--- a/lib/DBDefs/Default.pm
+++ b/lib/DBDefs/Default.pm
@@ -36,7 +36,7 @@ use Cwd qw( abs_path );
 
 # The server root, i.e. the parent directory of admin, bin, lib, root, etc.
 sub MB_SERVER_ROOT {
-    my @splitfilename = splitdir(abs_path('./' . __FILE__));
+    my @splitfilename = splitdir(abs_path(__FILE__));
     my @parentdir = @splitfilename[0..(scalar @splitfilename - 4)];
     return catdir(@parentdir);
 }

-----------------------------------------------------------------------


hooks/post-receive
-- 
mb_server