Attachment 103889 Details for Bug 25309 – Sandbox Error Trace Log

Sandbox Error Trace Log

SandboxErrorTrace (text/plain), 12.46 KB, created by David Roberts on 2020-04-28 22:16:50 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: David Roberts

Created: 2020-04-28 22:16:50 UTC

Size: 12.46 KB

patch

obsolete

>Can't call method "extended_attributes" on an undefined value at /kohadevbox/koha/members/memberentry.pl line 560
>in (eval) at /kohadevbox/koha/members/memberentry.pl line 560
>  557:         }
>  558: 
>  559:     if (C4::Context->preference('ExtendedPatronAttributes') and $input->param('setting_extended_patron_attributes')) {
>  560:         $patron->extended_attributes->filter_by_branch_limitations->delete;
>  561:         $patron->extended_attributes($extended_patron_attributes);
>  562:     }
>  563: 
>in CGI::Compile::ROOT::kohadevbox_koha_members_memberentry_2epl::__ANON__ at /kohadevbox/koha/members/memberentry.pl line 959
>  956: # tab-width: 8
>  957: # End:
>Show function arguments
>
>in CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Compile.pm line 139
>  136:             # this is necessary for MSWin32
>  137:             my $orig_warn = $SIG{__WARN__} || sub { warn(@_) };
>  138:             local $SIG{__WARN__} = sub { $orig_warn->(@_) unless $_[0] =~ /^No such signal/ };
>  139:             $code->($self, $data, $path, $dir, \@args)
>  140:         };
>  141:     };
>  142: 
>in CGI::Emulate::PSGI::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30
>   27:                 local *STDOUT = $stdout;
>   28:                 local *STDERR = $env->{'psgi.errors'};
>   29: 
>   30:                 $code->();
>   31:             }
>   32:         }
>   33: 
>Show function arguments
>
>in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 90
>   87: 
>   88: sub call {
>   89:     my($self, $env) = @_;
>   90:     $self->_app->($env);
>   91: }
>   92: 
>   93: 1;
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Plack::App::CGIBin::serve_path at /usr/share/perl5/Plack/App/CGIBin.pm line 50
>   47:     my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new(
>   48:         script => $file, execute => $self->would_exec($file),
>   49:     )->to_app;
>   50:     $app->($env);
>   51: }
>   52: 
>   53: 1;
>Show function arguments
>
>in Plack::App::File::call at /usr/share/perl5/Plack/App/File.pm line 34
>   31:         $env->{'plack.file.PATH_INFO'}   = '';
>   32:     }
>   33: 
>   34:     return $self->serve_path($env, $file);
>   35: }
>   36: 
>   37: sub locate_file {
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Plack::App::URLMap::call at /usr/share/perl5/Plack/App/URLMap.pm line 71
>   68:         return $self->response_cb($app->($env), sub {
>   69:             $env->{PATH_INFO} = $orig_path_info;
>   70:             $env->{SCRIPT_NAME} = $orig_script_name;
>   71:         });
>   72:     }
>   73: 
>   74:     DEBUG && warn "All matching failed.\n";
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Koha::Middleware::RealIP::call at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64
>   61:         }
>   62:     }
>   63: 
>   64:     return $self->app->($env);
>   65: }
>   66: 
>   67: =head2 get_real_ip
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Koha::Middleware::SetEnv::call at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104
>  101:         %setenvs
>  102:     };
>  103: 
>  104:     return $self->app->($env);
>  105: }
>  106: 
>  107: =head1 AUTHOR
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Plack::Middleware::Static::call at /usr/share/perl5/Plack/Middleware/Static.pm line 18
>   15:         return $res;
>   16:     }
>   17: 
>   18:     return $self->app->($env);
>   19: }
>   20: 
>   21: sub _handle_static {
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Plack::Middleware::ReverseProxy::call at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68
>   65:         }
>   66:     }
>   67: 
>   68:     $self->app->($env);
>   69: }
>   70: 
>   71: 1;
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Plack::Middleware::Lint::call at /usr/share/perl5/Plack/Middleware/Lint.pm line 24
>   21:     my $env = shift;
>   22: 
>   23:     $self->validate_env($env);
>   24:     my $res = $self->app->($env);
>   25:     return $self->validate_res($res);
>   26: }
>   27: 
>Show function arguments
>
>in Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>in (eval) at /usr/share/perl5/Try/Tiny.pm line 101
>   98:     if ( $wantarray ) {
>   99:       @ret = $try->();
>  100:     } elsif ( defined $wantarray ) {
>  101:       $ret[0] = $try->();
>  102:     } else {
>  103:       $try->();
>  104:     };
>in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 94
>   91: 
>   92:   # failed will be true if the eval dies, because 1 will not be returned
>   93:   # from the eval body
>   94:   my $failed = not eval {
>   95:     $@ = $prev_error;
>   96: 
>   97:     # evaluate the try block in the correct context
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in Plack::Middleware::AccessLog::call at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27
>   24:     my $self = shift;
>   25:     my($env) = @_;
>   26: 
>   27:     my $res = $self->app->($env);
>   28: 
>   29:     if ( ref($res) && ref($res) eq 'ARRAY' ) {
>   30:         my $content_length = Plack::Util::content_length($res->[2]);
>Show function arguments
>
>in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
>   47: sub to_app {
>   48:     my $self = shift;
>   49:     $self->prepare_app;
>   50:     return sub { $self->call(@_) };
>   51: }
>   52: 
>   53: 
>Show function arguments
>
>in (eval) at /usr/share/perl5/Plack/Util.pm line 145
>  142: sub run_app($$) {
>  143:     my($app, $env) = @_;
>  144: 
>  145:     return eval { $app->($env) } || do {
>  146:         my $body = "Internal Server Error";
>  147:         $env->{'psgi.errors'}->print($@);
>  148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
>in Plack::Util::run_app at /usr/share/perl5/Plack/Util.pm line 145
>  142: sub run_app($$) {
>  143:     my($app, $env) = @_;
>  144: 
>  145:     return eval { $app->($env) } || do {
>  146:         my $body = "Internal Server Error";
>  147:         $env->{'psgi.errors'}->print($@);
>  148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
>Show function arguments
>
>in Starman::Server::dispatch_request at /usr/share/perl5/Starman/Server.pm line 195
>  192:     my ($self, $env) = @_;
>  193: 
>  194:     # Run PSGI apps
>  195:     my $res = Plack::Util::run_app($self->{app}, $env);
>  196: 
>  197:     if (ref $res eq 'CODE') {
>  198:         $res->(sub { $self->_finalize_response($env, $_[0]) });
>Show function arguments
>
>in Starman::Server::process_request at /usr/share/perl5/Starman/Server.pm line 298
>  295: 
>  296:         $self->_prepare_env($env);
>  297: 
>  298:         $self->dispatch_request($env);
>  299: 
>  300:         DEBUG && warn "[$$] Request done\n";
>  301: 
>Show function arguments
>
>in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 74
>   71:     $self->post_accept_hook($c);    # user customizable hook
>   72: 
>   73:     my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info
>   74:     if ($ok) {
>   75:         $self->process_request($c);   # This is where the core functionality of a Net::Server should be.
>   76:     } else {
>   77:         $self->request_denied_hook($c);     # user customizable hook
>Show function arguments
>
>in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 229
>  226:         $prop->{'connected'} = 1;
>  227:         print $write "$$ processing\n";
>  228: 
>  229:         my $ok = eval { $self->run_client_connection; 1 };
>  230:         if (! $ok) {
>  231:             print $write "$$ exiting\n";
>  232:             die $@;
>in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 229
>  226:         $prop->{'connected'} = 1;
>  227:         print $write "$$ processing\n";
>  228: 
>  229:         my $ok = eval { $self->run_client_connection; 1 };
>  230:         if (! $ok) {
>  231:             print $write "$$ exiting\n";
>  232:             die $@;
>Show function arguments
>
>in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 187
>  184:             if ($prop->{'child_communication'}) {
>  185:                 $prop->{'parent_sock'} = $childsock;
>  186:             }
>  187:             $self->run_child;
>  188:         }
>  189:     }
>  190: }
>Show function arguments
>
>in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 111
>  108: 
>  109:     my $start = $prop->{'min_servers'};
>  110:     $self->log(3, "Beginning prefork ($start processes)");
>  111:     $self->run_n_children($start);
>  112: 
>  113:     $self->run_parent;
>  114: }
>Show function arguments
>
>in Net::Server::run at /usr/share/perl5/Net/Server.pm line 60
>   57:     $self->post_bind;           # allow for chrooting, becoming a different user and group
>   58: 
>   59:     $self->pre_loop_hook;       # user customizable hook
>   60:     $self->loop;                # repeat accept/process cycle
>   61: 
>   62:     $self->server_close;        # close the server and release the port
>   63: }
>Show function arguments
>
>in Starman::Server::run at /usr/share/perl5/Starman/Server.pm line 106
>  103:         max_requests        => $options->{max_requests}      || 1000,
>  104:         user                => $options->{user}              || $>,
>  105:         group               => $options->{group}             || $),
>  106:         listen              => $options->{backlog}           || 1024,
>  107:         check_for_waiting   => 1,
>  108:         no_client_stdout    => 1,
>  109:         %extra
>Show function arguments
>
>in Plack::Handler::Starman::run at /usr/share/perl5/Plack/Handler/Starman.pm line 25
>   22:     }
>   23:     $self->{net_server_args} = \%nsa if %nsa;
>   24: 
>   25:     Starman::Server->new->run($app, {%$self});
>   26: }
>   27: 
>   28: 1;
>Show function arguments
>
>in Plack::Loader::Delayed::run at /usr/share/perl5/Plack/Loader/Delayed.pm line 20
>   17:     };
>   18: 
>   19:     $server->{psgi_app_builder} = $self->{builder};
>   20:     $server->run($app);
>   21: }
>   22: 
>   23: 1;
>Show function arguments
>
>in Plack::Runner::run at /usr/share/perl5/Plack/Runner.pm line 277
>  274:     $loader->preload_app($app);
>  275: 
>  276:     my $server = $self->load_server($loader);
>  277:     $loader->run($server);
>  278: }
>  279: 
>  280: 1;
>Show function arguments
>
>at /usr/bin/starman line 38
>   35: }
>   36: 
>   37: $runner->set_options(argv => \@argv);
>   38: $runner->run;
>   39: 
>   40: __END__
>   41:

Actions: View

Attachments on bug 25309: 103889 | 103933 | 103956 | 104159