crash log: No such pseudo-hash field "high_priority" at /usr/lib/perl5/site_perl/5.8.5/Perlbal/Plugin/Stats.pm line 47.

Jonty jonty.wareing at gmail.com
Tue Jan 22 17:01:45 UTC 2008


Entertainingly, I submitted an almost identical patch for the same bug
back in March 07, but it was never committed.
I always wondered if I was the only one experiencing it and it was
never committed as it couldn't be reproduced - it's nice to know that
I'm not going mad.

http://lists.danga.com/pipermail/perlbal/2007-March/000406.html

I hope it makes it into trunk this time around...

Jonty Wareing
--
Developer
Last.fm


On Jan 21, 2008 5:15 PM, Eamon Daly <edaly at nextwavemedia.com> wrote:
> [Possible repost, as I'd sent the patch and test as an
> attachment previously.]
>
> If I define a Vpaths selector and fire a request through it
> while the Stats plugin is active in the destination service,
> I get a crash:
>
> crash log: No such pseudo-hash field "high_priority" at
> /usr/lib/perl5/site_perl/5.8.5/Perlbal/Plugin/Stats.pm line 47.
>
> Not quite sure what's to blame, but this fixes it:
>
> diff -Naur Perlbal-1.60/lib/Perlbal/Plugin/Stats.pm
> Perlbal-1.60-patch/lib/Perlbal/Plugin/Stats.pm
> --- Perlbal-1.60/lib/Perlbal/Plugin/Stats.pm 2007-07-30
> 14:04:41.000000000 -0500
> +++ Perlbal-1.60-patch/lib/Perlbal/Plugin/Stats.pm 2008-01-16
> 11:31:17.000000000 -0600
> @@ -43,10 +43,12 @@
>      # more complicated statistics
>      $svc->register_hook('Stats', 'backend_client_assigned', sub {
>          my Perlbal::BackendHTTP $be = shift;
> +        my Perlbal::ClientProxy $obj = $be->{client};
>          $sobj->{pending}->{"$be->{client}"} = [ gettimeofday() ];
> -        ($be->{client}->{high_priority} ? $sobj->{proxy_requests_highpri} :
> $sobj->{proxy_requests})++;
> +        ($obj->{high_priority} ? $sobj->{proxy_requests_highpri} :
> $sobj->{proxy_requests})++;
>          return 0;
>      });
> +
>      $svc->register_hook('Stats', 'backend_response_received', sub {
>          my Perlbal::BackendHTTP $be = shift;
>          my Perlbal::ClientProxy $obj = $be->{client};
>
> The patch and a test for the Stats plugin can be found here:
>
> http://www.eamondaly.com/perl/Perlbal/stats.patch
>
> ____________________________________________________________
> Eamon Daly
>
>
>
>


More information about the perlbal mailing list