Skip Menu |

This queue is for tickets about the Catalyst-Plugin-AutoCRUD CPAN distribution.

Report information
The Basics
Id: 71357
Status: resolved
Priority: 0/
Queue: Catalyst-Plugin-AutoCRUD

People
Owner: OLIVER [...] cpan.org
Requestors: perl [...] okko.net
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 1.110730
Fixed in: (no value)



Subject: Exceptions after updating to most recent version
# Caught exception in MyApp::Controller::AutoCRUD::Root->do_meta "Use of uninitialized value in string eq at perl5/Catalyst/Plugin/AutoCRUD/Controller/Root.pm line 118 - if ($c->stash->{site_conf}->{$db}->{hidden} eq 'yes') { + if (defined($c->stash->{site_conf}->{$db}->{hidden}) and $c->stash- Show quoted text
>{site_conf}->{$db}->{hidden} eq 'yes') {
# Caught exception in MyApp::Controller::AutoCRUD::Root->do_meta "Use of uninitialized value in string eq at perl5/Catalyst/Plugin/AutoCRUD/Controller/Root.pm line 126 - if ($c->stash->{site_conf}->{$db}->{$table}->{hidden} eq 'yes') { + if (defined($c->stash->{site_conf}->{$db}->{$table}->{hidden}) and $c->stash->{site_conf}->{$db}->{$table}->{hidden} eq 'yes') { # Use of uninitialized value $sort in pattern match (m//) at perl5/lib/perl5/Catalyst/Plugin/AutoCRUD/Model/Backend/DBIC.pm line 123 - $sort = $info->{pk} if $sort !~ m/^[\w ]+$/ or !exists $info-> {cols}->{$sort}; + $sort = $info->{pk} if (!defined($sort) or $sort !~ m/^[\w ]+$/ or !exists $info->{cols}->{$sort});
Hi Okku, Okay, this (and your TT View patch) will be applied and released to CPAN shortly. Many thanks for the bug reports, I do appreciate them :-) On Fri Sep 30 06:36:30 2011, Okko wrote: Show quoted text
> # Caught exception in MyApp::Controller::AutoCRUD::Root->do_meta "Use of > uninitialized value in string eq at > perl5/Catalyst/Plugin/AutoCRUD/Controller/Root.pm line 118 > > > - if ($c->stash->{site_conf}->{$db}->{hidden} eq 'yes') { > + if (defined($c->stash->{site_conf}->{$db}->{hidden}) and $c->stash-
> >{site_conf}->{$db}->{hidden} eq 'yes') {
> > > > # Caught exception in MyApp::Controller::AutoCRUD::Root->do_meta "Use of > uninitialized value in string eq at > perl5/Catalyst/Plugin/AutoCRUD/Controller/Root.pm line 126 > > > - if ($c->stash->{site_conf}->{$db}->{$table}->{hidden} eq 'yes') { > + if (defined($c->stash->{site_conf}->{$db}->{$table}->{hidden}) and > $c->stash->{site_conf}->{$db}->{$table}->{hidden} eq 'yes') { > > > > # Use of uninitialized value $sort in pattern match (m//) at > perl5/lib/perl5/Catalyst/Plugin/AutoCRUD/Model/Backend/DBIC.pm line 123 > > - $sort = $info->{pk} if $sort !~ m/^[\w ]+$/ or !exists $info-> > {cols}->{$sort}; > + $sort = $info->{pk} if (!defined($sort) or $sort !~ m/^[\w ]+$/ or > !exists $info->{cols}->{$sort});
-- regards, oliver.