debian/patches/106_fix-_column_info-clash.diff

   1 --- maypole.orig/lib/Maypole/Model/CDBI.pm
   2 +++ maypole/lib/Maypole/Model/CDBI.pm
   3 @@ -503,7 +503,7 @@
   4
   5  # Thanks to dave baird --  form builder for these private functions
   6  # sub _column_info {
   7 -sub _column_info {
   8 +sub _init_column_info {
   9    my $self = shift;
  10    my $dbh = $self->db_Main;
  11
  12 @@ -615,7 +615,7 @@
  13  sub column_type {
  14    my $class = shift;
  15    my $colname = shift or die "Need a column for column_type";
  16 -  $class->_column_info() unless (ref $class->COLUMN_INFO);
  17 +  $class->_init_column_info() unless (ref $class->COLUMN_INFO);
  18
  19    if ($class->_isa_class($colname)) {
  20      return $class->_isa_class($colname)->column_type($colname);
  21 @@ -646,7 +646,7 @@
  22
  23  sub required_columns {
  24    my ($class, $columns) = @_;
  25 -  $class->_column_info() unless ref $class->COLUMN_INFO;
  26 +  $class->_init_column_info() unless ref $class->COLUMN_INFO;
  27    my $column_info = $class->COLUMN_INFO;
  28
  29    if ($columns) {
  30 @@ -683,7 +683,7 @@
  31  sub column_required {
  32    my ($class, $colname) = @_;
  33    $colname or $class->_croak( "Need a column for column_nullable" );
  34 -  $class->_column_info() unless ref $class->COLUMN_INFO;
  35 +  $class->_init_column_info() unless ref $class->COLUMN_INFO;
  36    if ($class->_isa_class($colname)) {
  37      return $class->_isa_class($colname)->column_required($colname);
  38    }
  39 @@ -714,7 +714,7 @@
  40      my $class = shift;
  41      my $colname = shift or $class->_croak( "Need a column for column_nullable" );
  42
  43 -  $class->_column_info() unless ref $class->COLUMN_INFO;
  44 +  $class->_init_column_info() unless ref $class->COLUMN_INFO;
  45    if ($class->_isa_class($colname)) {
  46      return $class->_isa_class($colname)->column_nullable($colname);
  47    }
  48 @@ -737,7 +737,7 @@
  49  sub column_default {
  50    my $class = shift;
  51    my $colname = shift or $class->_croak( "Need a column for column_default");
  52 -  $class->_column_info() unless (ref $class->COLUMN_INFO);
  53 +  $class->_init_column_info() unless (ref $class->COLUMN_INFO);
  54    if ($class->_isa_class($colname)) {
  55      return $class->_isa_class($colname)->column_default($colname);
  56    }
  57 @@ -770,7 +770,7 @@
  58      $res{moniker}       = $class->moniker;
  59      $res{plural}        = $class->plural_moniker;
  60      $res{table}         = $class->table;
  61 -    $res{column_metadata} = (ref $class->COLUMN_INFO) ? $class->COLUMN_INFO : $class->_column_info() ;
  62 +    $res{column_metadata} = (ref $class->COLUMN_INFO) ? $class->COLUMN_INFO : $class->_init_column_info() ;
  63      return \%res;
  64  }
  65