Bugzilla – Attachment 105445 Details for
Bug 22690
Merging records with many items too slow (Elasticsearch)
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
error
bug22690-error.html (text/html), 45.23 KB, created by
Victor Grousset/tuxayo
on 2020-05-31 15:59:58 UTC
(
hide
)
Description:
error
Filename:
MIME Type:
Creator:
Victor Grousset/tuxayo
Created:
2020-05-31 15:59:58 UTC
Size:
45.23 KB
patch
obsolete
><!DOCTYPE html> ><html><head> ><meta http-equiv="content-type" content="text/html; charset=UTF-8"><title>Error: > The method Koha::Biblio->adopt_items_from_biblio is not covered by >tests! > >Trace begun at /kohadevbox/koha/Koha/Object.pm line 744 >Koha::Object::AUTOLOAD('Koha::Biblio=HASH(0x55b5d1888718)', >'Koha::Biblio=HASH(0x55b5d1bbac00)') called at >/kohadevbox/koha/cataloguing/merge.pl line 93 >eval {...} at /kohadevbox/koha/cataloguing/merge.pl line 2 >CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__('CGI::Compile=HASH(0x55b5d224f408)', > '', '/kohadevbox/koha/cataloguing/merge.pl', >'/kohadevbox/koha/cataloguing', 'ARRAY(0x55b5d22986e0)') called at >/usr/share/perl5/CGI/Compile.pm line 139 >CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30 >CGI::Emulate::PSGI::__ANON__('HASH(0x55b5d1819190)') called at >/usr/share/perl5/Plack/App/WrapCGI.pm line 95 >Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x55b5d03e24c8)', >'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at >/usr/share/perl5/Plack/App/CGIBin.pm line 50 >Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', > 'HASH(0x55b5d1819190)', '/kohadevbox/koha/cataloguing/merge.pl') called > at /usr/share/perl5/Plack/App/File.pm line 34 >Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', >'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at >/usr/share/perl5/Plack/App/URLMap.pm line 71 >Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b5ca643748)', >'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at >/kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 >Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)', > 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at >/kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104 >Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)', > 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at >/usr/share/perl5/Plack/Middleware/Static.pm line 18 >Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b5cb6a2d60)', > 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at >/usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 >Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)', > 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at >/usr/share/perl5/Plack/Middleware/Lint.pm line 24 >Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b5c3e1c748)', > 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at >/usr/share/perl5/Plack/Middleware/StackTrace.pm line 38 >Plack::Middleware::StackTrace::try {...} at >/usr/share/perl5/Try/Tiny.pm line 100 >eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 >Try::Tiny::try('CODE(0x55b5d19a4718)', >'Try::Tiny::Catch=REF(0x55b5d1b09538)') called at >/usr/share/perl5/Plack/Middleware/StackTrace.pm line 42 >Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)', > 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at >/usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 >Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b5ca584728)', > 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm >line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at >/usr/share/perl5/Plack/Util.pm line 145 >eval {...} at /usr/share/perl5/Plack/Util.pm line 145 >Plack::Util::run_app('CODE(0x55b5ca6587d8)', 'HASH(0x55b5d2879960)') >called at /usr/share/perl5/Starman/Server.pm line 195 >Starman::Server::dispatch_request('Starman::Server=HASH(0x55b5c378f0b8)', > 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm >line 298 >Starman::Server::process_request('Starman::Server=HASH(0x55b5c378f0b8)', > 'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)') called at >/usr/share/perl5/Net/Server.pm line 72 >Net::Server::run_client_connection('Starman::Server=HASH(0x55b5c378f0b8)') > called at /usr/share/perl5/Net/Server/PreFork.pm line 225 >eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 225 >Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b5c378f0b8)') >called at /usr/share/perl5/Net/Server/PreFork.pm line 183 >Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b5c378f0b8)', > 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 >Net::Server::PreFork::loop('Starman::Server=HASH(0x55b5c378f0b8)') >called at /usr/share/perl5/Net/Server.pm line 58 >Net::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'port', >'ARRAY(0x55b5c3d97390)', 'host', '*', 'proto', 'tcp', 'serialize', >'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', >1, 'max_servers', 2, 'max_requests', 50, 'user', 'kohadev-koha', >'group', 'kohadev-koha', 'listen', 1024, 'check_for_waiting', 1, >'no_client_stdout', 1, 'log_file', >'/var/log/koha/kohadev/plack-error.log', 'background', 1, 'setsid', 1, >'pid_file', '/var/run/koha/kohadev/plack.pid') called at >/usr/share/perl5/Starman/Server.pm line 106 >Starman::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', >'CODE(0x55b5c378ef68)', 'HASH(0x55b5c378ed10)') called at >/usr/share/perl5/Plack/Handler/Starman.pm line 25 >Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b5c378ef80)', > 'CODE(0x55b5c378ef68)') called at >/usr/share/perl5/Plack/Loader/Delayed.pm line 20 >Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b5c34f6408)', > 'Plack::Handler::Starman=HASH(0x55b5c378ef80)') called at >/usr/share/perl5/Plack/Runner.pm line 277 >Plack::Runner::run('Plack::Runner=HASH(0x55b5c349a408)') called at >/usr/bin/starman line 38 > at /usr/share/perl5/Exception/Class/Base.pm line 88</title><style type="text/css">a.toggle { color: #444 } >body { margin: 0; padding: 0; background: #fff; color: #000; } >h1 { margin: 0 0 .5em; padding: .25em .5em .1em 1.5em; border-bottom: thick solid #002; background: #444; color: #eee; font-size: x-large; } >pre.message { margin: .5em 1em; } >li.frame { font-size: small; margin-top: 3em } >li.frame:nth-child(1) { margin-top: 0 } >pre.context { border: 1px solid #aaa; padding: 0.2em 0; background: #fff; color: #444; font-size: medium; } >pre .match { color: #000;background-color: #f99; font-weight: bold } >pre.vardump { margin:0 } >pre code strong { color: #000; background: #f88; } > >table.lexicals, table.arguments { border-collapse: collapse } >table.lexicals td, table.arguments td { border: 1px solid #000; margin: 0; padding: .3em } >table.lexicals tr:nth-child(2n) { background: #DDDDFF } >table.arguments tr:nth-child(2n) { background: #DDFFDD } >.lexicals, .arguments { display: none } >.variable, .value { font-family: monospace; white-space: pre } >td.variable { vertical-align: top } ></style><script language="JavaScript" type="text/javascript"> >function toggleThing(ref, type, hideMsg, showMsg) { > var css = document.getElementById(type+'-'+ref).style; > css.display = css.display == 'block' ? 'none' : 'block'; > > var hyperlink = document.getElementById('toggle-'+ref); > hyperlink.textContent = css.display == 'block' ? hideMsg : showMsg; >} > >function toggleArguments(ref) { > toggleThing(ref, 'arguments', 'Hide function arguments', 'Show function arguments'); >} > >function toggleLexicals(ref) { > toggleThing(ref, 'lexicals', 'Hide lexical variables', 'Show lexical variables'); >} ></script> ></head> ><body> ><h1>Error trace</h1><pre class="message">The method Koha::Biblio->adopt_items_from_biblio is not covered by tests! > >Trace begun at /kohadevbox/koha/Koha/Object.pm line 744 >Koha::Object::AUTOLOAD('Koha::Biblio=HASH(0x55b5d1888718)', 'Koha::Biblio=HASH(0x55b5d1bbac00)') called at /kohadevbox/koha/cataloguing/merge.pl line 93 >eval {...} at /kohadevbox/koha/cataloguing/merge.pl line 2 >CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__('CGI::Compile=HASH(0x55b5d224f408)', '', '/kohadevbox/koha/cataloguing/merge.pl', '/kohadevbox/koha/cataloguing', 'ARRAY(0x55b5d22986e0)') called at /usr/share/perl5/CGI/Compile.pm line 139 >CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30 >CGI::Emulate::PSGI::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 95 >Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x55b5d03e24c8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50 >Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)', '/kohadevbox/koha/cataloguing/merge.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 >Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 >Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b5ca643748)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 >Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104 >Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 >Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b5cb6a2d60)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 >Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 >Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b5c3e1c748)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 38 >Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 >eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 >Try::Tiny::try('CODE(0x55b5d19a4718)', 'Try::Tiny::Catch=REF(0x55b5d1b09538)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 42 >Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 >Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b5ca584728)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Util.pm line 145 >eval {...} at /usr/share/perl5/Plack/Util.pm line 145 >Plack::Util::run_app('CODE(0x55b5ca6587d8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 195 >Starman::Server::dispatch_request('Starman::Server=HASH(0x55b5c378f0b8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 298 >Starman::Server::process_request('Starman::Server=HASH(0x55b5c378f0b8)', 'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)') called at /usr/share/perl5/Net/Server.pm line 72 >Net::Server::run_client_connection('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 225 >eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 225 >Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 183 >Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b5c378f0b8)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 >Net::Server::PreFork::loop('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server.pm line 58 >Net::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'port', 'ARRAY(0x55b5c3d97390)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'kohadev-koha', 'group', 'kohadev-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/kohadev/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/kohadev/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 >Starman::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'CODE(0x55b5c378ef68)', 'HASH(0x55b5c378ed10)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 >Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b5c378ef80)', 'CODE(0x55b5c378ef68)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 >Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b5c34f6408)', 'Plack::Handler::Starman=HASH(0x55b5c378ef80)') called at /usr/share/perl5/Plack/Runner.pm line 277 >Plack::Runner::run('Plack::Runner=HASH(0x55b5c349a408)') called at /usr/bin/starman line 38 > at /usr/share/perl5/Exception/Class/Base.pm line 88</pre><ol> ><li class="frame">in Exception::Class::Base::throw at /usr/share/perl5/Exception/Class/Base.pm line 88<pre class="context"><code> 85: > 86: $proto->rethrow if ref $proto; > 87: ><strong class="match"> 88: die $proto->new(@_); ></strong> 89: } > 90: > 91: sub rethrow { ></code></pre><p><a class="toggle" id="toggle-arg-1" href="javascript:toggleArguments('arg-1')">Show function arguments</a></p><table class="arguments" id="arguments-arg-1"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Exceptions::Object::MethodNotCoveredByTests'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'error'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'The method Koha::Biblio->adopt_items_from_biblio is not covered by tests!'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'show_trace'</td></tr><tr><td class="variable">$_[4]</td><td class="value">1</td></tr></tbody></table></li><li class="frame">in Koha::Object::AUTOLOAD at /kohadevbox/koha/Koha/Object.pm line 744<pre class="context"><code> 741: Koha::Exceptions::Object::MethodNotCoveredByTests->throw( > 742: error => sprintf("The method %s->%s is not covered by tests!", ref($self), $method), > 743: show_trace => 1 ><strong class="match"> 744: ) unless grep { $_ eq $method } @known_methods; ></strong> 745: > 746: > 747: my $r = eval { $self->_result->$method(@_) }; ></code></pre><p><a class="toggle" id="toggle-arg-2" href="javascript:toggleArguments('arg-2')">Show function arguments</a></p><table class="arguments" id="arguments-arg-2"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Biblio=HASH(0x55b5d1888718)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Koha::Biblio=HASH(0x55b5d1bbac00)'</td></tr></tbody></table></li><li class="frame">in (eval) at /kohadevbox/koha/cataloguing/merge.pl line 93<pre class="context"><code> 90: my $biblio = Koha::Biblios->find($ref_biblionumber); > 91: foreach my $biblionumber (@biblionumbers) { > 92: my $from_biblio = Koha::Biblios->find($biblionumber); ><strong class="match"> 93: $biblio->adopt_items_from_biblio($from_biblio); ></strong> 94: $from_biblio->article_requests->update({ biblionumber => $ref_biblionumber }, { no_triggers => 1 }); > 95: } > 96: ></code></pre></li><li class="frame">in CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__ at /kohadevbox/koha/cataloguing/merge.pl line 2<pre class="context"><code> 1: #!/usr/bin/perl ><strong class="match"> 2: ></strong> 3: # Copyright 2009 BibLibre > 4: # Parts Copyright Catalyst IT 2011 > 5: # ></code></pre><p><a class="toggle" id="toggle-arg-4" href="javascript:toggleArguments('arg-4')">Show function arguments</a></p><table class="arguments" id="arguments-arg-4"><tbody><tr><td class="variable">$_[0]</td><td class="value">'CGI::Compile=HASH(0x55b5d224f408)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">''</td></tr><tr><td class="variable">$_[2]</td><td class="value">'/kohadevbox/koha/cataloguing/merge.pl'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'/kohadevbox/koha/cataloguing'</td></tr><tr><td class="variable">$_[4]</td><td class="value">'ARRAY(0x55b5d22986e0)'</td></tr></tbody></table></li><li class="frame">in CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Compile.pm line 139<pre class="context"><code> 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/ }; ><strong class="match"> 139: $code->($self, $data, $path, $dir, \@args) ></strong> 140: }; > 141: }; > 142: ></code></pre></li><li class="frame">in CGI::Emulate::PSGI::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30<pre class="context"><code> 27: local *STDOUT = $stdout; > 28: local *STDERR = $env->{'psgi.errors'}; > 29: ><strong class="match"> 30: $code->(); ></strong> 31: } > 32: } > 33: ></code></pre><p><a class="toggle" id="toggle-arg-6" href="javascript:toggleArguments('arg-6')">Show function arguments</a></p><table class="arguments" id="arguments-arg-6"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 95<pre class="context"><code> 92: > 93: sub call { > 94: my($self, $env) = @_; ><strong class="match"> 95: $self->_app->($env); ></strong> 96: } > 97: > 98: 1; ></code></pre><p><a class="toggle" id="toggle-arg-7" href="javascript:toggleArguments('arg-7')">Show function arguments</a></p><table class="arguments" id="arguments-arg-7"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::WrapCGI=HASH(0x55b5d03e24c8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-8" href="javascript:toggleArguments('arg-8')">Show function arguments</a></p><table class="arguments" id="arguments-arg-8"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::App::CGIBin::serve_path at /usr/share/perl5/Plack/App/CGIBin.pm line 50<pre class="context"><code> 47: my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new( > 48: script => $file, execute => $self->would_exec($file), > 49: )->to_app; ><strong class="match"> 50: $app->($env); ></strong> 51: } > 52: > 53: 1; ></code></pre><p><a class="toggle" id="toggle-arg-9" href="javascript:toggleArguments('arg-9')">Show function arguments</a></p><table class="arguments" id="arguments-arg-9"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::CGIBin=HASH(0x55b5c3e1c958)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'/kohadevbox/koha/cataloguing/merge.pl'</td></tr></tbody></table></li><li class="frame">in Plack::App::File::call at /usr/share/perl5/Plack/App/File.pm line 34<pre class="context"><code> 31: $env->{'plack.file.PATH_INFO'} = ''; > 32: } > 33: ><strong class="match"> 34: return $self->serve_path($env, $file); ></strong> 35: } > 36: > 37: sub locate_file { ></code></pre><p><a class="toggle" id="toggle-arg-10" href="javascript:toggleArguments('arg-10')">Show function arguments</a></p><table class="arguments" id="arguments-arg-10"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::CGIBin=HASH(0x55b5c3e1c958)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-11" href="javascript:toggleArguments('arg-11')">Show function arguments</a></p><table class="arguments" id="arguments-arg-11"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::App::URLMap::call at /usr/share/perl5/Plack/App/URLMap.pm line 71<pre class="context"><code> 68: return $self->response_cb($app->($env), sub { > 69: $env->{PATH_INFO} = $orig_path_info; > 70: $env->{SCRIPT_NAME} = $orig_script_name; ><strong class="match"> 71: }); ></strong> 72: } > 73: > 74: DEBUG && warn "All matching failed.\n"; ></code></pre><p><a class="toggle" id="toggle-arg-12" href="javascript:toggleArguments('arg-12')">Show function arguments</a></p><table class="arguments" id="arguments-arg-12"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::URLMap=HASH(0x55b5ca643748)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-13" href="javascript:toggleArguments('arg-13')">Show function arguments</a></p><table class="arguments" id="arguments-arg-13"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Koha::Middleware::RealIP::call at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64<pre class="context"><code> 61: } > 62: } > 63: ><strong class="match"> 64: return $self->app->($env); ></strong> 65: } > 66: > 67: =head2 get_real_ip ></code></pre><p><a class="toggle" id="toggle-arg-14" href="javascript:toggleArguments('arg-14')">Show function arguments</a></p><table class="arguments" id="arguments-arg-14"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-15" href="javascript:toggleArguments('arg-15')">Show function arguments</a></p><table class="arguments" id="arguments-arg-15"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Koha::Middleware::SetEnv::call at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104<pre class="context"><code> 101: %setenvs > 102: }; > 103: ><strong class="match"> 104: return $self->app->($env); ></strong> 105: } > 106: > 107: =head1 AUTHOR ></code></pre><p><a class="toggle" id="toggle-arg-16" href="javascript:toggleArguments('arg-16')">Show function arguments</a></p><table class="arguments" id="arguments-arg-16"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-17" href="javascript:toggleArguments('arg-17')">Show function arguments</a></p><table class="arguments" id="arguments-arg-17"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::Static::call at /usr/share/perl5/Plack/Middleware/Static.pm line 18<pre class="context"><code> 15: return $res; > 16: } > 17: ><strong class="match"> 18: return $self->app->($env); ></strong> 19: } > 20: > 21: sub _handle_static { ></code></pre><p><a class="toggle" id="toggle-arg-18" href="javascript:toggleArguments('arg-18')">Show function arguments</a></p><table class="arguments" id="arguments-arg-18"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::Static=HASH(0x55b5cb6a2d60)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-19" href="javascript:toggleArguments('arg-19')">Show function arguments</a></p><table class="arguments" id="arguments-arg-19"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::ReverseProxy::call at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68<pre class="context"><code> 65: } > 66: } > 67: ><strong class="match"> 68: $self->app->($env); ></strong> 69: } > 70: > 71: 1; ></code></pre><p><a class="toggle" id="toggle-arg-20" href="javascript:toggleArguments('arg-20')">Show function arguments</a></p><table class="arguments" id="arguments-arg-20"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-21" href="javascript:toggleArguments('arg-21')">Show function arguments</a></p><table class="arguments" id="arguments-arg-21"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::Lint::call at /usr/share/perl5/Plack/Middleware/Lint.pm line 24<pre class="context"><code> 21: my $env = shift; > 22: > 23: $self->validate_env($env); ><strong class="match"> 24: my $res = $self->app->($env); ></strong> 25: return $self->validate_res($res); > 26: } > 27: ></code></pre><p><a class="toggle" id="toggle-arg-22" href="javascript:toggleArguments('arg-22')">Show function arguments</a></p><table class="arguments" id="arguments-arg-22"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::Lint=HASH(0x55b5c3e1c748)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre></li><li class="frame">in (eval) at /usr/share/perl5/Try/Tiny.pm line 100<pre class="context"><code> 97: if ( $wantarray ) { > 98: @ret = $try->(); > 99: } elsif ( defined $wantarray ) { ><strong class="match"> 100: $ret[0] = $try->(); ></strong> 101: } else { > 102: $try->(); > 103: }; ></code></pre></li><li class="frame">in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 93<pre class="context"><code> 90: > 91: # failed will be true if the eval dies, because 1 will not be returned > 92: # from the eval body ><strong class="match"> 93: my $failed = not eval { ></strong> 94: $@ = $prev_error; > 95: > 96: # evaluate the try block in the correct context ></code></pre><p><a class="toggle" id="toggle-arg-25" href="javascript:toggleArguments('arg-25')">Show function arguments</a></p><table class="arguments" id="arguments-arg-25"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-26" href="javascript:toggleArguments('arg-26')">Show function arguments</a></p><table class="arguments" id="arguments-arg-26"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::AccessLog::call at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27<pre class="context"><code> 24: my $self = shift; > 25: my($env) = @_; > 26: ><strong class="match"> 27: my $res = $self->app->($env); ></strong> 28: > 29: if ( ref($res) && ref($res) eq 'ARRAY' ) { > 30: my $content_length = Plack::Util::content_length($res->[2]); ></code></pre><p><a class="toggle" id="toggle-arg-27" href="javascript:toggleArguments('arg-27')">Show function arguments</a></p><table class="arguments" id="arguments-arg-27"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::AccessLog=HASH(0x55b5ca584728)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; ><strong class="match"> 50: return sub { $self->call(@_) }; ></strong> 51: } > 52: > 53: ></code></pre><p><a class="toggle" id="toggle-arg-28" href="javascript:toggleArguments('arg-28')">Show function arguments</a></p><table class="arguments" id="arguments-arg-28"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in (eval) at /usr/share/perl5/Plack/Util.pm line 145<pre class="context"><code> 142: sub run_app($$) { > 143: my($app, $env) = @_; > 144: ><strong class="match"> 145: return eval { $app->($env) } || do { ></strong> 146: my $body = "Internal Server Error"; > 147: $env->{'psgi.errors'}->print($@); > 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ]; ></code></pre></li><li class="frame">in Plack::Util::run_app at /usr/share/perl5/Plack/Util.pm line 145<pre class="context"><code> 142: sub run_app($$) { > 143: my($app, $env) = @_; > 144: ><strong class="match"> 145: return eval { $app->($env) } || do { ></strong> 146: my $body = "Internal Server Error"; > 147: $env->{'psgi.errors'}->print($@); > 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ]; ></code></pre><p><a class="toggle" id="toggle-arg-30" href="javascript:toggleArguments('arg-30')">Show function arguments</a></p><table class="arguments" id="arguments-arg-30"><tbody><tr><td class="variable">$_[0]</td><td class="value">'CODE(0x55b5ca6587d8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Starman::Server::dispatch_request at /usr/share/perl5/Starman/Server.pm line 195<pre class="context"><code> 192: my ($self, $env) = @_; > 193: > 194: # Run PSGI apps ><strong class="match"> 195: my $res = Plack::Util::run_app($self->{app}, $env); ></strong> 196: > 197: if (ref $res eq 'CODE') { > 198: $res->(sub { $self->_finalize_response($env, $_[0]) }); ></code></pre><p><a class="toggle" id="toggle-arg-31" href="javascript:toggleArguments('arg-31')">Show function arguments</a></p><table class="arguments" id="arguments-arg-31"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Starman::Server::process_request at /usr/share/perl5/Starman/Server.pm line 298<pre class="context"><code> 295: > 296: $self->_prepare_env($env); > 297: ><strong class="match"> 298: $self->dispatch_request($env); ></strong> 299: > 300: DEBUG && warn "[$$] Request done\n"; > 301: ></code></pre><p><a class="toggle" id="toggle-arg-32" href="javascript:toggleArguments('arg-32')">Show function arguments</a></p><table class="arguments" id="arguments-arg-32"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)'</td></tr></tbody></table></li><li class="frame">in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 72<pre class="context"><code> 69: $self->post_accept_hook($c); # user customizable hook > 70: > 71: my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info ><strong class="match"> 72: if ($ok) { ></strong> 73: $self->process_request($c); # This is where the core functionality of a Net::Server should be. > 74: } else { > 75: $self->request_denied_hook($c); # user customizable hook ></code></pre><p><a class="toggle" id="toggle-arg-33" href="javascript:toggleArguments('arg-33')">Show function arguments</a></p><table class="arguments" id="arguments-arg-33"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr></tbody></table></li><li class="frame">in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 225<pre class="context"><code> 222: $prop->{'connected'} = 1; > 223: print $write "$$ processing\n"; > 224: ><strong class="match"> 225: my $ok = eval { $self->run_client_connection; 1 }; ></strong> 226: if (! $ok) { > 227: print $write "$$ exiting\n"; > 228: die $@; ></code></pre></li><li class="frame">in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 225<pre class="context"><code> 222: $prop->{'connected'} = 1; > 223: print $write "$$ processing\n"; > 224: ><strong class="match"> 225: my $ok = eval { $self->run_client_connection; 1 }; ></strong> 226: if (! $ok) { > 227: print $write "$$ exiting\n"; > 228: die $@; ></code></pre><p><a class="toggle" id="toggle-arg-35" href="javascript:toggleArguments('arg-35')">Show function arguments</a></p><table class="arguments" id="arguments-arg-35"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr></tbody></table></li><li class="frame">in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 183<pre class="context"><code> 180: if ($prop->{'child_communication'}) { > 181: $prop->{'parent_sock'} = $childsock; > 182: } ><strong class="match"> 183: $self->run_child; ></strong> 184: } > 185: } > 186: } ></code></pre><p><a class="toggle" id="toggle-arg-36" href="javascript:toggleArguments('arg-36')">Show function arguments</a></p><table class="arguments" id="arguments-arg-36"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">2</td></tr></tbody></table></li><li class="frame">in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 107<pre class="context"><code> 104: > 105: my $start = $prop->{'min_servers'}; > 106: $self->log(3, "Beginning prefork ($start processes)"); ><strong class="match"> 107: $self->run_n_children($start); ></strong> 108: > 109: $self->run_parent; > 110: } ></code></pre><p><a class="toggle" id="toggle-arg-37" href="javascript:toggleArguments('arg-37')">Show function arguments</a></p><table class="arguments" id="arguments-arg-37"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr></tbody></table></li><li class="frame">in Net::Server::run at /usr/share/perl5/Net/Server.pm line 58<pre class="context"><code> 55: $self->post_bind; # allow for chrooting, becoming a different user and group > 56: > 57: $self->pre_loop_hook; # user customizable hook ><strong class="match"> 58: $self->loop; # repeat accept/process cycle ></strong> 59: > 60: $self->server_close; # close the server and release the port > 61: } ></code></pre><p><a class="toggle" id="toggle-arg-38" href="javascript:toggleArguments('arg-38')">Show function arguments</a></p><table class="arguments" id="arguments-arg-38"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'port'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'ARRAY(0x55b5c3d97390)'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'host'</td></tr><tr><td class="variable">$_[4]</td><td class="value">'*'</td></tr><tr><td class="variable">$_[5]</td><td class="value">'proto'</td></tr><tr><td class="variable">$_[6]</td><td class="value">'tcp'</td></tr><tr><td class="variable">$_[7]</td><td class="value">'serialize'</td></tr><tr><td class="variable">$_[8]</td><td class="value">'none'</td></tr><tr><td class="variable">$_[9]</td><td class="value">'min_servers'</td></tr><tr><td class="variable">$_[10]</td><td class="value">2</td></tr><tr><td class="variable">$_[11]</td><td class="value">'min_spare_servers'</td></tr><tr><td class="variable">$_[12]</td><td class="value">1</td></tr><tr><td class="variable">$_[13]</td><td class="value">'max_spare_servers'</td></tr><tr><td class="variable">$_[14]</td><td class="value">1</td></tr><tr><td class="variable">$_[15]</td><td class="value">'max_servers'</td></tr><tr><td class="variable">$_[16]</td><td class="value">2</td></tr><tr><td class="variable">$_[17]</td><td class="value">'max_requests'</td></tr><tr><td class="variable">$_[18]</td><td class="value">'50'</td></tr><tr><td class="variable">$_[19]</td><td class="value">'user'</td></tr><tr><td class="variable">$_[20]</td><td class="value">'kohadev-koha'</td></tr><tr><td class="variable">$_[21]</td><td class="value">'group'</td></tr><tr><td class="variable">$_[22]</td><td class="value">'kohadev-koha'</td></tr><tr><td class="variable">$_[23]</td><td class="value">'listen'</td></tr><tr><td class="variable">$_[24]</td><td class="value">1024</td></tr><tr><td class="variable">$_[25]</td><td class="value">'check_for_waiting'</td></tr><tr><td class="variable">$_[26]</td><td class="value">1</td></tr><tr><td class="variable">$_[27]</td><td class="value">'no_client_stdout'</td></tr><tr><td class="variable">$_[28]</td><td class="value">1</td></tr><tr><td class="variable">$_[29]</td><td class="value">'log_file'</td></tr><tr><td class="variable">$_[30]</td><td class="value">'/var/log/koha/kohadev/plack-error.log'</td></tr><tr><td class="variable">$_[31]</td><td class="value">'background'</td></tr><tr><td class="variable">$_[32]</td><td class="value">1</td></tr><tr><td class="variable">$_[33]</td><td class="value">'setsid'</td></tr><tr><td class="variable">$_[34]</td><td class="value">1</td></tr><tr><td class="variable">$_[35]</td><td class="value">'pid_file'</td></tr><tr><td class="variable">$_[36]</td><td class="value">'/var/run/koha/kohadev/plack.pid'</td></tr></tbody></table></li><li class="frame">in Starman::Server::run at /usr/share/perl5/Starman/Server.pm line 106<pre class="context"><code> 103: max_requests => $options->{max_requests} || 1000, > 104: user => $options->{user} || $>, > 105: group => $options->{group} || $), ><strong class="match"> 106: listen => $options->{backlog} || 1024, ></strong> 107: check_for_waiting => 1, > 108: no_client_stdout => 1, > 109: %extra ></code></pre><p><a class="toggle" id="toggle-arg-39" href="javascript:toggleArguments('arg-39')">Show function arguments</a></p><table class="arguments" id="arguments-arg-39"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'CODE(0x55b5c378ef68)'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'HASH(0x55b5c378ed10)'</td></tr></tbody></table></li><li class="frame">in Plack::Handler::Starman::run at /usr/share/perl5/Plack/Handler/Starman.pm line 25<pre class="context"><code> 22: } > 23: $self->{net_server_args} = \%nsa if %nsa; > 24: ><strong class="match"> 25: Starman::Server->new->run($app, {%$self}); ></strong> 26: } > 27: > 28: 1; ></code></pre><p><a class="toggle" id="toggle-arg-40" href="javascript:toggleArguments('arg-40')">Show function arguments</a></p><table class="arguments" id="arguments-arg-40"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Handler::Starman=HASH(0x55b5c378ef80)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'CODE(0x55b5c378ef68)'</td></tr></tbody></table></li><li class="frame">in Plack::Loader::Delayed::run at /usr/share/perl5/Plack/Loader/Delayed.pm line 20<pre class="context"><code> 17: }; > 18: > 19: $server->{psgi_app_builder} = $self->{builder}; ><strong class="match"> 20: $server->run($app); ></strong> 21: } > 22: > 23: 1; ></code></pre><p><a class="toggle" id="toggle-arg-41" href="javascript:toggleArguments('arg-41')">Show function arguments</a></p><table class="arguments" id="arguments-arg-41"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Loader::Delayed=HASH(0x55b5c34f6408)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Plack::Handler::Starman=HASH(0x55b5c378ef80)'</td></tr></tbody></table></li><li class="frame">in Plack::Runner::run at /usr/share/perl5/Plack/Runner.pm line 277<pre class="context"><code> 274: $loader->preload_app($app); > 275: > 276: my $server = $self->load_server($loader); ><strong class="match"> 277: $loader->run($server); ></strong> 278: } > 279: > 280: 1; ></code></pre><p><a class="toggle" id="toggle-arg-42" href="javascript:toggleArguments('arg-42')">Show function arguments</a></p><table class="arguments" id="arguments-arg-42"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Runner=HASH(0x55b5c349a408)'</td></tr></tbody></table></li><li class="frame"> at /usr/bin/starman line 38<pre class="context"><code> 35: } > 36: > 37: $runner->set_options(argv => \@argv); ><strong class="match"> 38: $runner->run; ></strong> 39: > 40: __END__ > 41: ></code></pre></li></ol></body></html>
<!DOCTYPE html> <html><head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"><title>Error: The method Koha::Biblio->adopt_items_from_biblio is not covered by tests! Trace begun at /kohadevbox/koha/Koha/Object.pm line 744 Koha::Object::AUTOLOAD('Koha::Biblio=HASH(0x55b5d1888718)', 'Koha::Biblio=HASH(0x55b5d1bbac00)') called at /kohadevbox/koha/cataloguing/merge.pl line 93 eval {...} at /kohadevbox/koha/cataloguing/merge.pl line 2 CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__('CGI::Compile=HASH(0x55b5d224f408)', '', '/kohadevbox/koha/cataloguing/merge.pl', '/kohadevbox/koha/cataloguing', 'ARRAY(0x55b5d22986e0)') called at /usr/share/perl5/CGI/Compile.pm line 139 CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30 CGI::Emulate::PSGI::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 95 Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x55b5d03e24c8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)', '/kohadevbox/koha/cataloguing/merge.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b5ca643748)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b5cb6a2d60)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b5c3e1c748)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 38 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Try::Tiny::try('CODE(0x55b5d19a4718)', 'Try::Tiny::Catch=REF(0x55b5d1b09538)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 42 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b5ca584728)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Util.pm line 145 eval {...} at /usr/share/perl5/Plack/Util.pm line 145 Plack::Util::run_app('CODE(0x55b5ca6587d8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b5c378f0b8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 298 Starman::Server::process_request('Starman::Server=HASH(0x55b5c378f0b8)', 'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 225 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 225 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 183 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b5c378f0b8)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'port', 'ARRAY(0x55b5c3d97390)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'kohadev-koha', 'group', 'kohadev-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/kohadev/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/kohadev/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'CODE(0x55b5c378ef68)', 'HASH(0x55b5c378ed10)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b5c378ef80)', 'CODE(0x55b5c378ef68)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b5c34f6408)', 'Plack::Handler::Starman=HASH(0x55b5c378ef80)') called at /usr/share/perl5/Plack/Runner.pm line 277 Plack::Runner::run('Plack::Runner=HASH(0x55b5c349a408)') called at /usr/bin/starman line 38 at /usr/share/perl5/Exception/Class/Base.pm line 88</title><style type="text/css">a.toggle { color: #444 } body { margin: 0; padding: 0; background: #fff; color: #000; } h1 { margin: 0 0 .5em; padding: .25em .5em .1em 1.5em; border-bottom: thick solid #002; background: #444; color: #eee; font-size: x-large; } pre.message { margin: .5em 1em; } li.frame { font-size: small; margin-top: 3em } li.frame:nth-child(1) { margin-top: 0 } pre.context { border: 1px solid #aaa; padding: 0.2em 0; background: #fff; color: #444; font-size: medium; } pre .match { color: #000;background-color: #f99; font-weight: bold } pre.vardump { margin:0 } pre code strong { color: #000; background: #f88; } table.lexicals, table.arguments { border-collapse: collapse } table.lexicals td, table.arguments td { border: 1px solid #000; margin: 0; padding: .3em } table.lexicals tr:nth-child(2n) { background: #DDDDFF } table.arguments tr:nth-child(2n) { background: #DDFFDD } .lexicals, .arguments { display: none } .variable, .value { font-family: monospace; white-space: pre } td.variable { vertical-align: top } </style><script language="JavaScript" type="text/javascript"> function toggleThing(ref, type, hideMsg, showMsg) { var css = document.getElementById(type+'-'+ref).style; css.display = css.display == 'block' ? 'none' : 'block'; var hyperlink = document.getElementById('toggle-'+ref); hyperlink.textContent = css.display == 'block' ? hideMsg : showMsg; } function toggleArguments(ref) { toggleThing(ref, 'arguments', 'Hide function arguments', 'Show function arguments'); } function toggleLexicals(ref) { toggleThing(ref, 'lexicals', 'Hide lexical variables', 'Show lexical variables'); } </script> </head> <body> <h1>Error trace</h1><pre class="message">The method Koha::Biblio->adopt_items_from_biblio is not covered by tests! Trace begun at /kohadevbox/koha/Koha/Object.pm line 744 Koha::Object::AUTOLOAD('Koha::Biblio=HASH(0x55b5d1888718)', 'Koha::Biblio=HASH(0x55b5d1bbac00)') called at /kohadevbox/koha/cataloguing/merge.pl line 93 eval {...} at /kohadevbox/koha/cataloguing/merge.pl line 2 CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__('CGI::Compile=HASH(0x55b5d224f408)', '', '/kohadevbox/koha/cataloguing/merge.pl', '/kohadevbox/koha/cataloguing', 'ARRAY(0x55b5d22986e0)') called at /usr/share/perl5/CGI/Compile.pm line 139 CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30 CGI::Emulate::PSGI::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 95 Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x55b5d03e24c8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)', '/kohadevbox/koha/cataloguing/merge.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b5ca643748)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b5cb6a2d60)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b5c3e1c748)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 38 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Try::Tiny::try('CODE(0x55b5d19a4718)', 'Try::Tiny::Catch=REF(0x55b5d1b09538)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 42 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b5ca584728)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Util.pm line 145 eval {...} at /usr/share/perl5/Plack/Util.pm line 145 Plack::Util::run_app('CODE(0x55b5ca6587d8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b5c378f0b8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 298 Starman::Server::process_request('Starman::Server=HASH(0x55b5c378f0b8)', 'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 225 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 225 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 183 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b5c378f0b8)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'port', 'ARRAY(0x55b5c3d97390)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'kohadev-koha', 'group', 'kohadev-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/kohadev/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/kohadev/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'CODE(0x55b5c378ef68)', 'HASH(0x55b5c378ed10)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b5c378ef80)', 'CODE(0x55b5c378ef68)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b5c34f6408)', 'Plack::Handler::Starman=HASH(0x55b5c378ef80)') called at /usr/share/perl5/Plack/Runner.pm line 277 Plack::Runner::run('Plack::Runner=HASH(0x55b5c349a408)') called at /usr/bin/starman line 38 at /usr/share/perl5/Exception/Class/Base.pm line 88</pre><ol> <li class="frame">in Exception::Class::Base::throw at /usr/share/perl5/Exception/Class/Base.pm line 88<pre class="context"><code> 85: 86: $proto->rethrow if ref $proto; 87: <strong class="match"> 88: die $proto->new(@_); </strong> 89: } 90: 91: sub rethrow { </code></pre><p><a class="toggle" id="toggle-arg-1" href="javascript:toggleArguments('arg-1')">Show function arguments</a></p><table class="arguments" id="arguments-arg-1"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Exceptions::Object::MethodNotCoveredByTests'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'error'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'The method Koha::Biblio->adopt_items_from_biblio is not covered by tests!'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'show_trace'</td></tr><tr><td class="variable">$_[4]</td><td class="value">1</td></tr></tbody></table></li><li class="frame">in Koha::Object::AUTOLOAD at /kohadevbox/koha/Koha/Object.pm line 744<pre class="context"><code> 741: Koha::Exceptions::Object::MethodNotCoveredByTests->throw( 742: error => sprintf("The method %s->%s is not covered by tests!", ref($self), $method), 743: show_trace => 1 <strong class="match"> 744: ) unless grep { $_ eq $method } @known_methods; </strong> 745: 746: 747: my $r = eval { $self->_result->$method(@_) }; </code></pre><p><a class="toggle" id="toggle-arg-2" href="javascript:toggleArguments('arg-2')">Show function arguments</a></p><table class="arguments" id="arguments-arg-2"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Biblio=HASH(0x55b5d1888718)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Koha::Biblio=HASH(0x55b5d1bbac00)'</td></tr></tbody></table></li><li class="frame">in (eval) at /kohadevbox/koha/cataloguing/merge.pl line 93<pre class="context"><code> 90: my $biblio = Koha::Biblios->find($ref_biblionumber); 91: foreach my $biblionumber (@biblionumbers) { 92: my $from_biblio = Koha::Biblios->find($biblionumber); <strong class="match"> 93: $biblio->adopt_items_from_biblio($from_biblio); </strong> 94: $from_biblio->article_requests->update({ biblionumber => $ref_biblionumber }, { no_triggers => 1 }); 95: } 96: </code></pre></li><li class="frame">in CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__ at /kohadevbox/koha/cataloguing/merge.pl line 2<pre class="context"><code> 1: #!/usr/bin/perl <strong class="match"> 2: </strong> 3: # Copyright 2009 BibLibre 4: # Parts Copyright Catalyst IT 2011 5: # </code></pre><p><a class="toggle" id="toggle-arg-4" href="javascript:toggleArguments('arg-4')">Show function arguments</a></p><table class="arguments" id="arguments-arg-4"><tbody><tr><td class="variable">$_[0]</td><td class="value">'CGI::Compile=HASH(0x55b5d224f408)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">''</td></tr><tr><td class="variable">$_[2]</td><td class="value">'/kohadevbox/koha/cataloguing/merge.pl'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'/kohadevbox/koha/cataloguing'</td></tr><tr><td class="variable">$_[4]</td><td class="value">'ARRAY(0x55b5d22986e0)'</td></tr></tbody></table></li><li class="frame">in CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Compile.pm line 139<pre class="context"><code> 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/ }; <strong class="match"> 139: $code->($self, $data, $path, $dir, \@args) </strong> 140: }; 141: }; 142: </code></pre></li><li class="frame">in CGI::Emulate::PSGI::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30<pre class="context"><code> 27: local *STDOUT = $stdout; 28: local *STDERR = $env->{'psgi.errors'}; 29: <strong class="match"> 30: $code->(); </strong> 31: } 32: } 33: </code></pre><p><a class="toggle" id="toggle-arg-6" href="javascript:toggleArguments('arg-6')">Show function arguments</a></p><table class="arguments" id="arguments-arg-6"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 95<pre class="context"><code> 92: 93: sub call { 94: my($self, $env) = @_; <strong class="match"> 95: $self->_app->($env); </strong> 96: } 97: 98: 1; </code></pre><p><a class="toggle" id="toggle-arg-7" href="javascript:toggleArguments('arg-7')">Show function arguments</a></p><table class="arguments" id="arguments-arg-7"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::WrapCGI=HASH(0x55b5d03e24c8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-8" href="javascript:toggleArguments('arg-8')">Show function arguments</a></p><table class="arguments" id="arguments-arg-8"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::App::CGIBin::serve_path at /usr/share/perl5/Plack/App/CGIBin.pm line 50<pre class="context"><code> 47: my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new( 48: script => $file, execute => $self->would_exec($file), 49: )->to_app; <strong class="match"> 50: $app->($env); </strong> 51: } 52: 53: 1; </code></pre><p><a class="toggle" id="toggle-arg-9" href="javascript:toggleArguments('arg-9')">Show function arguments</a></p><table class="arguments" id="arguments-arg-9"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::CGIBin=HASH(0x55b5c3e1c958)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'/kohadevbox/koha/cataloguing/merge.pl'</td></tr></tbody></table></li><li class="frame">in Plack::App::File::call at /usr/share/perl5/Plack/App/File.pm line 34<pre class="context"><code> 31: $env->{'plack.file.PATH_INFO'} = ''; 32: } 33: <strong class="match"> 34: return $self->serve_path($env, $file); </strong> 35: } 36: 37: sub locate_file { </code></pre><p><a class="toggle" id="toggle-arg-10" href="javascript:toggleArguments('arg-10')">Show function arguments</a></p><table class="arguments" id="arguments-arg-10"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::CGIBin=HASH(0x55b5c3e1c958)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-11" href="javascript:toggleArguments('arg-11')">Show function arguments</a></p><table class="arguments" id="arguments-arg-11"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::App::URLMap::call at /usr/share/perl5/Plack/App/URLMap.pm line 71<pre class="context"><code> 68: return $self->response_cb($app->($env), sub { 69: $env->{PATH_INFO} = $orig_path_info; 70: $env->{SCRIPT_NAME} = $orig_script_name; <strong class="match"> 71: }); </strong> 72: } 73: 74: DEBUG && warn "All matching failed.\n"; </code></pre><p><a class="toggle" id="toggle-arg-12" href="javascript:toggleArguments('arg-12')">Show function arguments</a></p><table class="arguments" id="arguments-arg-12"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::App::URLMap=HASH(0x55b5ca643748)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-13" href="javascript:toggleArguments('arg-13')">Show function arguments</a></p><table class="arguments" id="arguments-arg-13"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Koha::Middleware::RealIP::call at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64<pre class="context"><code> 61: } 62: } 63: <strong class="match"> 64: return $self->app->($env); </strong> 65: } 66: 67: =head2 get_real_ip </code></pre><p><a class="toggle" id="toggle-arg-14" href="javascript:toggleArguments('arg-14')">Show function arguments</a></p><table class="arguments" id="arguments-arg-14"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-15" href="javascript:toggleArguments('arg-15')">Show function arguments</a></p><table class="arguments" id="arguments-arg-15"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d1819190)'</td></tr></tbody></table></li><li class="frame">in Koha::Middleware::SetEnv::call at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104<pre class="context"><code> 101: %setenvs 102: }; 103: <strong class="match"> 104: return $self->app->($env); </strong> 105: } 106: 107: =head1 AUTHOR </code></pre><p><a class="toggle" id="toggle-arg-16" href="javascript:toggleArguments('arg-16')">Show function arguments</a></p><table class="arguments" id="arguments-arg-16"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-17" href="javascript:toggleArguments('arg-17')">Show function arguments</a></p><table class="arguments" id="arguments-arg-17"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::Static::call at /usr/share/perl5/Plack/Middleware/Static.pm line 18<pre class="context"><code> 15: return $res; 16: } 17: <strong class="match"> 18: return $self->app->($env); </strong> 19: } 20: 21: sub _handle_static { </code></pre><p><a class="toggle" id="toggle-arg-18" href="javascript:toggleArguments('arg-18')">Show function arguments</a></p><table class="arguments" id="arguments-arg-18"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::Static=HASH(0x55b5cb6a2d60)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-19" href="javascript:toggleArguments('arg-19')">Show function arguments</a></p><table class="arguments" id="arguments-arg-19"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::ReverseProxy::call at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68<pre class="context"><code> 65: } 66: } 67: <strong class="match"> 68: $self->app->($env); </strong> 69: } 70: 71: 1; </code></pre><p><a class="toggle" id="toggle-arg-20" href="javascript:toggleArguments('arg-20')">Show function arguments</a></p><table class="arguments" id="arguments-arg-20"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-21" href="javascript:toggleArguments('arg-21')">Show function arguments</a></p><table class="arguments" id="arguments-arg-21"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::Lint::call at /usr/share/perl5/Plack/Middleware/Lint.pm line 24<pre class="context"><code> 21: my $env = shift; 22: 23: $self->validate_env($env); <strong class="match"> 24: my $res = $self->app->($env); </strong> 25: return $self->validate_res($res); 26: } 27: </code></pre><p><a class="toggle" id="toggle-arg-22" href="javascript:toggleArguments('arg-22')">Show function arguments</a></p><table class="arguments" id="arguments-arg-22"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::Lint=HASH(0x55b5c3e1c748)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre></li><li class="frame">in (eval) at /usr/share/perl5/Try/Tiny.pm line 100<pre class="context"><code> 97: if ( $wantarray ) { 98: @ret = $try->(); 99: } elsif ( defined $wantarray ) { <strong class="match"> 100: $ret[0] = $try->(); </strong> 101: } else { 102: $try->(); 103: }; </code></pre></li><li class="frame">in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 93<pre class="context"><code> 90: 91: # failed will be true if the eval dies, because 1 will not be returned 92: # from the eval body <strong class="match"> 93: my $failed = not eval { </strong> 94: $@ = $prev_error; 95: 96: # evaluate the try block in the correct context </code></pre><p><a class="toggle" id="toggle-arg-25" href="javascript:toggleArguments('arg-25')">Show function arguments</a></p><table class="arguments" id="arguments-arg-25"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-26" href="javascript:toggleArguments('arg-26')">Show function arguments</a></p><table class="arguments" id="arguments-arg-26"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Middleware::AccessLog::call at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27<pre class="context"><code> 24: my $self = shift; 25: my($env) = @_; 26: <strong class="match"> 27: my $res = $self->app->($env); </strong> 28: 29: if ( ref($res) && ref($res) eq 'ARRAY' ) { 30: my $content_length = Plack::Util::content_length($res->[2]); </code></pre><p><a class="toggle" id="toggle-arg-27" href="javascript:toggleArguments('arg-27')">Show function arguments</a></p><table class="arguments" id="arguments-arg-27"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Middleware::AccessLog=HASH(0x55b5ca584728)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50<pre class="context"><code> 47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; <strong class="match"> 50: return sub { $self->call(@_) }; </strong> 51: } 52: 53: </code></pre><p><a class="toggle" id="toggle-arg-28" href="javascript:toggleArguments('arg-28')">Show function arguments</a></p><table class="arguments" id="arguments-arg-28"><tbody><tr><td class="variable">$_[0]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in (eval) at /usr/share/perl5/Plack/Util.pm line 145<pre class="context"><code> 142: sub run_app($$) { 143: my($app, $env) = @_; 144: <strong class="match"> 145: return eval { $app->($env) } || do { </strong> 146: my $body = "Internal Server Error"; 147: $env->{'psgi.errors'}->print($@); 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ]; </code></pre></li><li class="frame">in Plack::Util::run_app at /usr/share/perl5/Plack/Util.pm line 145<pre class="context"><code> 142: sub run_app($$) { 143: my($app, $env) = @_; 144: <strong class="match"> 145: return eval { $app->($env) } || do { </strong> 146: my $body = "Internal Server Error"; 147: $env->{'psgi.errors'}->print($@); 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ]; </code></pre><p><a class="toggle" id="toggle-arg-30" href="javascript:toggleArguments('arg-30')">Show function arguments</a></p><table class="arguments" id="arguments-arg-30"><tbody><tr><td class="variable">$_[0]</td><td class="value">'CODE(0x55b5ca6587d8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Starman::Server::dispatch_request at /usr/share/perl5/Starman/Server.pm line 195<pre class="context"><code> 192: my ($self, $env) = @_; 193: 194: # Run PSGI apps <strong class="match"> 195: my $res = Plack::Util::run_app($self->{app}, $env); </strong> 196: 197: if (ref $res eq 'CODE') { 198: $res->(sub { $self->_finalize_response($env, $_[0]) }); </code></pre><p><a class="toggle" id="toggle-arg-31" href="javascript:toggleArguments('arg-31')">Show function arguments</a></p><table class="arguments" id="arguments-arg-31"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'HASH(0x55b5d2879960)'</td></tr></tbody></table></li><li class="frame">in Starman::Server::process_request at /usr/share/perl5/Starman/Server.pm line 298<pre class="context"><code> 295: 296: $self->_prepare_env($env); 297: <strong class="match"> 298: $self->dispatch_request($env); </strong> 299: 300: DEBUG && warn "[$$] Request done\n"; 301: </code></pre><p><a class="toggle" id="toggle-arg-32" href="javascript:toggleArguments('arg-32')">Show function arguments</a></p><table class="arguments" id="arguments-arg-32"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)'</td></tr></tbody></table></li><li class="frame">in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 72<pre class="context"><code> 69: $self->post_accept_hook($c); # user customizable hook 70: 71: my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info <strong class="match"> 72: if ($ok) { </strong> 73: $self->process_request($c); # This is where the core functionality of a Net::Server should be. 74: } else { 75: $self->request_denied_hook($c); # user customizable hook </code></pre><p><a class="toggle" id="toggle-arg-33" href="javascript:toggleArguments('arg-33')">Show function arguments</a></p><table class="arguments" id="arguments-arg-33"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr></tbody></table></li><li class="frame">in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 225<pre class="context"><code> 222: $prop->{'connected'} = 1; 223: print $write "$$ processing\n"; 224: <strong class="match"> 225: my $ok = eval { $self->run_client_connection; 1 }; </strong> 226: if (! $ok) { 227: print $write "$$ exiting\n"; 228: die $@; </code></pre></li><li class="frame">in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 225<pre class="context"><code> 222: $prop->{'connected'} = 1; 223: print $write "$$ processing\n"; 224: <strong class="match"> 225: my $ok = eval { $self->run_client_connection; 1 }; </strong> 226: if (! $ok) { 227: print $write "$$ exiting\n"; 228: die $@; </code></pre><p><a class="toggle" id="toggle-arg-35" href="javascript:toggleArguments('arg-35')">Show function arguments</a></p><table class="arguments" id="arguments-arg-35"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr></tbody></table></li><li class="frame">in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 183<pre class="context"><code> 180: if ($prop->{'child_communication'}) { 181: $prop->{'parent_sock'} = $childsock; 182: } <strong class="match"> 183: $self->run_child; </strong> 184: } 185: } 186: } </code></pre><p><a class="toggle" id="toggle-arg-36" href="javascript:toggleArguments('arg-36')">Show function arguments</a></p><table class="arguments" id="arguments-arg-36"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">2</td></tr></tbody></table></li><li class="frame">in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 107<pre class="context"><code> 104: 105: my $start = $prop->{'min_servers'}; 106: $self->log(3, "Beginning prefork ($start processes)"); <strong class="match"> 107: $self->run_n_children($start); </strong> 108: 109: $self->run_parent; 110: } </code></pre><p><a class="toggle" id="toggle-arg-37" href="javascript:toggleArguments('arg-37')">Show function arguments</a></p><table class="arguments" id="arguments-arg-37"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr></tbody></table></li><li class="frame">in Net::Server::run at /usr/share/perl5/Net/Server.pm line 58<pre class="context"><code> 55: $self->post_bind; # allow for chrooting, becoming a different user and group 56: 57: $self->pre_loop_hook; # user customizable hook <strong class="match"> 58: $self->loop; # repeat accept/process cycle </strong> 59: 60: $self->server_close; # close the server and release the port 61: } </code></pre><p><a class="toggle" id="toggle-arg-38" href="javascript:toggleArguments('arg-38')">Show function arguments</a></p><table class="arguments" id="arguments-arg-38"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'port'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'ARRAY(0x55b5c3d97390)'</td></tr><tr><td class="variable">$_[3]</td><td class="value">'host'</td></tr><tr><td class="variable">$_[4]</td><td class="value">'*'</td></tr><tr><td class="variable">$_[5]</td><td class="value">'proto'</td></tr><tr><td class="variable">$_[6]</td><td class="value">'tcp'</td></tr><tr><td class="variable">$_[7]</td><td class="value">'serialize'</td></tr><tr><td class="variable">$_[8]</td><td class="value">'none'</td></tr><tr><td class="variable">$_[9]</td><td class="value">'min_servers'</td></tr><tr><td class="variable">$_[10]</td><td class="value">2</td></tr><tr><td class="variable">$_[11]</td><td class="value">'min_spare_servers'</td></tr><tr><td class="variable">$_[12]</td><td class="value">1</td></tr><tr><td class="variable">$_[13]</td><td class="value">'max_spare_servers'</td></tr><tr><td class="variable">$_[14]</td><td class="value">1</td></tr><tr><td class="variable">$_[15]</td><td class="value">'max_servers'</td></tr><tr><td class="variable">$_[16]</td><td class="value">2</td></tr><tr><td class="variable">$_[17]</td><td class="value">'max_requests'</td></tr><tr><td class="variable">$_[18]</td><td class="value">'50'</td></tr><tr><td class="variable">$_[19]</td><td class="value">'user'</td></tr><tr><td class="variable">$_[20]</td><td class="value">'kohadev-koha'</td></tr><tr><td class="variable">$_[21]</td><td class="value">'group'</td></tr><tr><td class="variable">$_[22]</td><td class="value">'kohadev-koha'</td></tr><tr><td class="variable">$_[23]</td><td class="value">'listen'</td></tr><tr><td class="variable">$_[24]</td><td class="value">1024</td></tr><tr><td class="variable">$_[25]</td><td class="value">'check_for_waiting'</td></tr><tr><td class="variable">$_[26]</td><td class="value">1</td></tr><tr><td class="variable">$_[27]</td><td class="value">'no_client_stdout'</td></tr><tr><td class="variable">$_[28]</td><td class="value">1</td></tr><tr><td class="variable">$_[29]</td><td class="value">'log_file'</td></tr><tr><td class="variable">$_[30]</td><td class="value">'/var/log/koha/kohadev/plack-error.log'</td></tr><tr><td class="variable">$_[31]</td><td class="value">'background'</td></tr><tr><td class="variable">$_[32]</td><td class="value">1</td></tr><tr><td class="variable">$_[33]</td><td class="value">'setsid'</td></tr><tr><td class="variable">$_[34]</td><td class="value">1</td></tr><tr><td class="variable">$_[35]</td><td class="value">'pid_file'</td></tr><tr><td class="variable">$_[36]</td><td class="value">'/var/run/koha/kohadev/plack.pid'</td></tr></tbody></table></li><li class="frame">in Starman::Server::run at /usr/share/perl5/Starman/Server.pm line 106<pre class="context"><code> 103: max_requests => $options->{max_requests} || 1000, 104: user => $options->{user} || $>, 105: group => $options->{group} || $), <strong class="match"> 106: listen => $options->{backlog} || 1024, </strong> 107: check_for_waiting => 1, 108: no_client_stdout => 1, 109: %extra </code></pre><p><a class="toggle" id="toggle-arg-39" href="javascript:toggleArguments('arg-39')">Show function arguments</a></p><table class="arguments" id="arguments-arg-39"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Starman::Server=HASH(0x55b5c378f0b8)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'CODE(0x55b5c378ef68)'</td></tr><tr><td class="variable">$_[2]</td><td class="value">'HASH(0x55b5c378ed10)'</td></tr></tbody></table></li><li class="frame">in Plack::Handler::Starman::run at /usr/share/perl5/Plack/Handler/Starman.pm line 25<pre class="context"><code> 22: } 23: $self->{net_server_args} = \%nsa if %nsa; 24: <strong class="match"> 25: Starman::Server->new->run($app, {%$self}); </strong> 26: } 27: 28: 1; </code></pre><p><a class="toggle" id="toggle-arg-40" href="javascript:toggleArguments('arg-40')">Show function arguments</a></p><table class="arguments" id="arguments-arg-40"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Handler::Starman=HASH(0x55b5c378ef80)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'CODE(0x55b5c378ef68)'</td></tr></tbody></table></li><li class="frame">in Plack::Loader::Delayed::run at /usr/share/perl5/Plack/Loader/Delayed.pm line 20<pre class="context"><code> 17: }; 18: 19: $server->{psgi_app_builder} = $self->{builder}; <strong class="match"> 20: $server->run($app); </strong> 21: } 22: 23: 1; </code></pre><p><a class="toggle" id="toggle-arg-41" href="javascript:toggleArguments('arg-41')">Show function arguments</a></p><table class="arguments" id="arguments-arg-41"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Loader::Delayed=HASH(0x55b5c34f6408)'</td></tr><tr><td class="variable">$_[1]</td><td class="value">'Plack::Handler::Starman=HASH(0x55b5c378ef80)'</td></tr></tbody></table></li><li class="frame">in Plack::Runner::run at /usr/share/perl5/Plack/Runner.pm line 277<pre class="context"><code> 274: $loader->preload_app($app); 275: 276: my $server = $self->load_server($loader); <strong class="match"> 277: $loader->run($server); </strong> 278: } 279: 280: 1; </code></pre><p><a class="toggle" id="toggle-arg-42" href="javascript:toggleArguments('arg-42')">Show function arguments</a></p><table class="arguments" id="arguments-arg-42"><tbody><tr><td class="variable">$_[0]</td><td class="value">'Plack::Runner=HASH(0x55b5c349a408)'</td></tr></tbody></table></li><li class="frame"> at /usr/bin/starman line 38<pre class="context"><code> 35: } 36: 37: $runner->set_options(argv => \@argv); <strong class="match"> 38: $runner->run; </strong> 39: 40: __END__ 41: </code></pre></li></ol></body></html>
View Attachment As Raw
Actions:
View
Attachments on
bug 22690
:
90061
|
90115
|
90116
|
92828
|
94505
|
97696
|
98143
|
98210
|
98211
|
99376
|
99379
|
100316
|
104796
|
104797
|
104871
| 105445 |
106144
|
108777
|
109694
|
110991
|
110994
|
111196
|
111207
|
111236
|
111237
|
112100
|
112184
|
112567
|
112569
|
112754
|
113308
|
113309
|
113941
|
113942
|
113967
|
113968
|
118226
|
118227
|
118229
|
118231
|
118391
|
119433
|
119434
|
120820
|
120821
|
120852
|
120853
|
121389
|
121392
|
121474
|
121516
|
121517
|
121518
|
121519
|
121520
|
122846
|
122847
|
122848
|
122849
|
122850
|
122886
|
122887
|
122888
|
122889
|
122890
|
122936
|
122938
|
122939
|
123029
|
123030
|
123031
|
123032
|
123033
|
123034
|
123035
|
123036
|
123037
|
123038
|
123039
|
123040
|
123041
|
123042
|
123044
|
123062
|
123481
|
123482
|
123483
|
123484
|
123485
|
123486
|
123487
|
123488
|
123489
|
123490
|
123491
|
123492
|
123493
|
123494
|
123495
|
123496
|
123497
|
124176
|
124188
|
124257