Skip Menu |

This queue is for tickets about the Maypole CPAN distribution.

Report information
The Basics
Id: 16869
Status: resolved
Priority: 0/
Queue: Maypole
People
Owner: TEEJAY [...] cpan.org
Requestors: rt-cpan [...] trout.me.uk
Cc:
AdminCc:
Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: 2.11

History Show all quoted text
  Mon Jan 02 13:03:06 2006 Guest - Ticket created
Subject: Make Maypole->setup not force Model class onto ISA
for my $subclass ( @{ $config->classes } ) { no strict 'refs'; unshift @{ $subclass . "::ISA" }, $config->model; $config->model->adopt($subclass) if $config->model->can("adopt"); } if the above was altered to for my $subclass ( @{ $config->classes } ) { next if $subclass->isa("Maypole::Model::Base"); no strict 'refs'; unshift @{ $subclass . "::ISA" }, $config->model; $config->model->adopt($subclass) if $config->model->can("adopt"); } I'd be a very happy man :)
  Mon Jan 09 11:05:40 2006 TEEJAY [...] cpan.org - Correspondence added
[guest - Mon Jan 2 13:03:06 2006]: Show quoted text
> for my $subclass ( @{ $config->classes } ) { > no strict 'refs'; > unshift @{ $subclass . "::ISA" }, $config->model; > $config->model->adopt($subclass) > if $config->model->can("adopt"); > } > > if the above was altered to > > for my $subclass ( @{ $config->classes } ) { > next if $subclass->isa("Maypole::Model::Base"); > no strict 'refs'; > unshift @{ $subclass . "::ISA" }, $config->model; > $config->model->adopt($subclass) > if $config->model->can("adopt"); > } > > I'd be a very happy man :)
fixed in SVN revision 444
  Mon Jan 09 11:05:50 2006 TEEJAY [...] cpan.org - Status changed from 'new' to 'open'
  Mon Jan 09 11:05:53 2006 TEEJAY [...] cpan.org - Taken
  Wed Aug 02 11:18:07 2006 TEEJAY [...] cpan.org - Status changed from 'open' to 'resolved'
  Wed Aug 02 11:18:08 2006 TEEJAY [...] cpan.org - Fixed in 2.11 added