improve comment
parent
5b7edbf2a4
commit
27299788e8
|
@ -23,9 +23,10 @@ sub rpc_read {
|
||||||
while (<>) {
|
while (<>) {
|
||||||
$accum.=$_;
|
$accum.=$_;
|
||||||
|
|
||||||
# Kinda hackish approch to parse a single XML RPC out of the
|
# Kinda hackish approach to parse a single XML RPC out of the
|
||||||
# accumulated input. Relies on calls always ending with a
|
# accumulated input. Perl's RPC::XML library doesn't
|
||||||
# newline, which ikiwiki's protocol requires be true.
|
# provide a better way to do it. Relies on calls always ending
|
||||||
|
# with a newline, which ikiwiki's protocol requires be true.
|
||||||
if ($accum =~ /^\s*(<\?xml\s.*?<\/(?:methodCall|methodResponse)>)\n(.*)/s) {
|
if ($accum =~ /^\s*(<\?xml\s.*?<\/(?:methodCall|methodResponse)>)\n(.*)/s) {
|
||||||
$accum=$2; # the rest
|
$accum=$2; # the rest
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue