crash log: No such pseudo-hash field "high_priority" at .../Stats.pm line 47

[Brad Fitzpatrick]

Ask,

Since you can reproduce this, could you add something like,

   unless (exists $be->{client}->{high_priority}) {
       warn "Our weird \$be->{client} is a $be->{client}!\n";
   }

Then see what it says in production?  I'm wondering if some wrong type is
getting assigned to that?


On Mon, 7 May 2007, Ask Bjørn Hansen wrote:

> Running from the latest SVN version.
>
> When I configure a reverse_proxy service with stats enabled "hanging
> off" a selector service perlbal crashes with
>
> 	crash log: No such pseudo-hash field "high_priority" at .../Stats.pm
> line 47
>
> I can't figure out how it happens (It only seemed to happen in
> production ...)
>
> This patch fixes it, but I don't know if it's just fixing the
> symptoms of something else so I didn't commit.
>
> Any ideas?
>
>
>     - ask
>
>
> --- lib/Perlbal/Plugin/Stats.pm (revision 670)
> +++ lib/Perlbal/Plugin/Stats.pm (working copy)
> @@ -44,7 +44,11 @@
>       $svc->register_hook('Stats', 'backend_client_assigned', sub {
>           my Perlbal::BackendHTTP $be = shift;
>           $sobj->{pending}->{"$be->{client}"} = [ gettimeofday() ];
> -        ($be->{client}->{high_priority} ? $sobj->
> {proxy_requests_highpri} : $sobj->{proxy_requests})++;
> +        (
> +         (exists $be->{client}->{high_priority} and $be->{client}->
> {high_priority})
> +           ? $sobj->{proxy_requests_highpri}
> +           : $sobj->{proxy_requests}
> +         )++;
>           return 0;
>       });
>       $svc->register_hook('Stats', 'backend_response_received', sub {
>
>