Bug #16513 for Class-DBI-Sweet: "Bizarre copy of HASH in leave"

Thu Dec 15 10:34:16 2005 Guest - Ticket created

Subject:

"Bizarre copy of HASH in leave"

Hi, Thanks for writing a great module. I've discovered a small bug. I haven't noticed it before, but we've moved to Apache2 + mod_perl 2 and code I've written before doesn't work now! The error message in the apache log is: [Thu Dec 15 15:22:04 2005] [error] Error executing run mode 'index': Bizarre copy of HASH in leave at /opt/csw/share/perl/site_perl/Class/DBI/Sweet.pm line 309.\n at /export/sites/cgi-bin/dudley.pl line 12\n Google revealed this link which explained why this message was happening: http://www.dbforums.com/showthread.php?mode=hybrid&t=1047580 I've removed the extra % (see below) and it seems to work. ##### Sweet.pm if ( $part eq 'sql' ) { ####push @sql_parts, join ' ', @{%$sql_parts}{qw/ where order_by limit/}; push @sql_parts, join ' ', @{$sql_parts}{qw/ where order_by limit/}; next; } ###### snip Sorry I can't be more insightful. Best wishes, David Morgan

Tue Mar 14 09:41:50 2006 Guest - Correspondence added

From:

fenLisesi [...] gmail.com

I had problems with this issue today and had to edit Sweet.pm 0.08 as suggested in the discussion below. I am surprised that this hasn't been fixed yet. --Ali ISIK On Thu Dec 15 10:34:16 2005, guest wrote: Show quoted text

> Hi, > Thanks for writing a great module. > I've discovered a small bug. I haven't noticed it before, but we've > moved to Apache2 + mod_perl 2 and code I've written before doesn't > work now! > > The error message in the apache log is: > > [Thu Dec 15 15:22:04 2005] [error] Error executing run mode 'index': > Bizarre copy of HASH in leave at > /opt/csw/share/perl/site_perl/Class/DBI/Sweet.pm line 309.\n at > /export/sites/cgi-bin/dudley.pl line 12\n > > Google revealed this link which explained why this message was > happening: > > http://www.dbforums.com/showthread.php?mode=hybrid&t=1047580 > > I've removed the extra % (see below) and it seems to work. > > > ##### Sweet.pm > if ( $part eq 'sql' ) { > ####push @sql_parts, join ' ', @{%$sql_parts}{qw/ where order_by > limit/}; > push @sql_parts, join ' ', @{$sql_parts}{qw/ where order_by > limit/}; > next; > } > ###### snip > > Sorry I can't be more insightful. > > Best wishes, > David Morgan >

Tue Mar 14 09:41:54 2006 The RT System itself - Status changed from 'new' to 'open'

Sun Jul 08 23:08:56 2007 perl-cpan [...] bereft.net - Correspondence added

From:

perl-cpan [...] bereft.net

See also perlbug #3420: http://rt.perl.org/rt3/Public/Bug/Display.html?id=3420 The fix is probably just removing the % in line 309: push @sql_parts, join ' ', @{%$sql_parts}{qw/ where order_by limit/};

Tue Jul 17 18:54:01 2007 rt-cpan [...] trout.me.uk - Correspondence added

This hasn't been fixed yet because Sweet is unmaintained in favour of the far more powerful and effective DBIx::Class. If anybody wants to take over this obsolete module, drop me a line.

Mon Dec 24 02:09:07 2007 PHRED [...] cpan.org - Correspondence added 15 min

This patch has been applied and the bug will be resolved as of 0.09, which should release in a few days.

Mon Dec 24 02:09:09 2007 PHRED [...] cpan.org - Status changed from 'open' to 'resolved'

Mon Dec 24 02:09:11 2007 PHRED [...] cpan.org - Given to PHRED