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

Reply via email to