Re: Apache::Registry - shared variable?

It appears as though this may be the issue

It isn't, not with the code you posted, it has no nested subs, it shares no variables (unless the code you haven't shown does that)

A problem is with CGI->Vars , you never want to use CGI->Vars, CGI->Vars is for perl4

Also , return from main, exit after main

main( @ARGV );
exit( 0 );
[download]

or exit main( @ARGV );

Comment on Re: Apache::Registry - shared variable? Select or Download Code

Replies are listed 'Best First'.
Re^2: Apache::Registry - shared variable? by DaisyLou (Sexton) on Jun 20, 2013 at 15:07 UTC
Thanks for the advice, and you're right -- there are no nested sub. I thought maybe mod-perl mangled it somehow to make one. I thought CGI stuff was made safe using Registry? What should be used in this case, instead, then?	[reply]
Re^3: Apache::Registry - shared variable? by Anonymous Monk on Jun 20, 2013 at 15:11 UTC
I thought CGI stuff was made safe using Registry? What should be used in this case, instead, then? use CGI->param not CGI->Vars , CGI->Vars has caveats	[reply]
Re^2: Apache::Registry - shared variable? by DaisyLou (Sexton) on Jun 20, 2013 at 15:11 UTC
... Made the changes suggested, but the problem persists.	[reply]
Re^3: Apache::Registry - shared variable? by Anonymous Monk on Jun 20, 2013 at 15:15 UTC
... Made the changes suggested, but the problem persists. :) If you want to solve this you will need to post real code that really shows the real problem oh? you say your code is too long? well you trim trim trim until the problem disappears, or you have short self contained compilable test case that shows the bug OTOH, what version of CGI.pm do you have installed?	[reply]
Re^4: Apache::Registry - shared variable? by DaisyLou (Sexton) on Jun 20, 2013 at 15:25 UTC
That is the real code, but I changed the names of the variables to protect the innocent and make it easier to understand/read in general. The only thing that's not included is the library code (other modules). If it's useful or helpful, let me know and I'll share the functions from those libraries. The SQL code returns two rows: `a,b,c d,e,f` [download] Quite often, and especially if run in rapid succession, the output of "list" will be: `a,b,c d,e,f a,b,c d,e,f` [download]	[reply] [d/l] [select]
Re^5: Apache::Registry - shared variable? by Anonymous Monk on Jun 20, 2013 at 15:40 UTC
Re^3: Apache::Registry - shared variable? by poj (Abbot) on Jun 20, 2013 at 15:23 UTC
You could try a single fetch statement `my $list = ""; my $ar = $hStmt->fetchall_arrayref(); for (@$ar){ $list .= (join ',',@$_).';'; } print $list;` [download] poj	[reply] [d/l]