… | … | ||
---|---|---|---|
371 | 371 | ||
372 | aio_rename "$runtime~", $runtime | 372 | aio_rename "$runtime~", $runtime |
373 | and return; | 373 | and return; |
374 | 374 | ||
375 | 1 | 375 | 1 |
376 | } | ||
377 | |||
378 | =item cf::datalog type => key => value, ... | ||
379 | |||
380 | Log a datalog packet of the given type with the given key-value pairs. | ||
381 | |||
382 | =cut | ||
383 | |||
384 | sub datalog($@) { | ||
385 | my ($type, %kv) = @_; | ||
386 | warn "DATALOG ", JSON::XS->new->ascii->encode ({ %kv, type => $type }); | ||
376 | } | 387 | } |
377 | 388 | ||
378 | =back | 389 | =back |
379 | 390 | ||
380 | =cut | 391 | =cut |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |