On Tue, Nov 18, 2003 at 09:11:36AM +0000, Ged Haywood wrote:
...
> What happens if you just say
>
> print STDERR "\$r = [$r]\n";
>
> after the assignment to $r?
This problem only seems to occur on our production site. Maybe I can
reproduce it on a staging server by hammering it with requests, in
which case I'll add the debug you requested. Otherwise, I'll have to
wait a few weeks before I can push code to the production site.
...
> > Transaction2: rclass1='' rclass='' r=$VAR1 = 'PrintMe::Transaction2';
> > [Thu Nov 13 21:04:55 2003] [error] Can't locate object method "header_in" via
> > package "PrintMe::Transaction2" (perhaps you forgot to load
> > "PrintMe::Transaction2"?) at /home/www/www/Libs/PrintMe/Transaction2.pm line 35.
>
> I see only one error here. What's on line 35?
Here it is, in context:
26 # check for intermittent error where r seems to be wrong class
27
28 my $rclass = ref $r;
29 if($rclass ne 'Apache') {
30 print STDERR "Transaction2: rclass1='$rclass1' rclass='$rclass' r="
. Dumper($r);
31 }
32
33 # Read in the XML message:
34
35 my $cl = $r->header_in('Content-length') or return banner();
--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
