aboutsummaryrefslogtreecommitdiffstats
path: root/xmpt
diff options
context:
space:
mode:
authorBrian Cully <bjc@kublai.com>2017-11-13 19:22:43 +0000
committerBrian Cully <bjc@kublai.com>2017-11-13 19:22:43 +0000
commit4cbddae11f4d900d820694783ccc29ba88c8af32 (patch)
treeb8f34d74c54f513c1763a98f1658d5df2b0cd372 /xmpt
parentb08eb5216d86cbe384b9f5e3c476dcb41d771e85 (diff)
downloadxmpt-4cbddae11f4d900d820694783ccc29ba88c8af32.tar.gz
xmpt-4cbddae11f4d900d820694783ccc29ba88c8af32.zip
Print process id in verbose output.
Diffstat (limited to 'xmpt')
-rwxr-xr-xxmpt6
1 files changed, 3 insertions, 3 deletions
diff --git a/xmpt b/xmpt
index 0b40688..7140e8d 100755
--- a/xmpt
+++ b/xmpt
@@ -170,7 +170,7 @@ sub eval_in {
eval {
require $_ for @libs;
foreach my $plan (@plans) {
- print STDERR "=> Executing $plan->{name} step.\n" if $verbose;
+ print STDERR "[$$] => Executing $plan->{name} step.\n" if $verbose;
do_send($plan->{name}, @{$plan->{send}});
do_recv($plan->{name}, @{$plan->{expect}}) if $plan->{expect};
}
@@ -184,7 +184,7 @@ sub do_send {
if ($verbose) {
my $l = $s;
chomp $l;
- print STDERR "SEND: $l\n" unless $l =~ /^\s*$/;
+ print STDERR "[$$] SEND: $l\n" unless $l =~ /^\s*$/;
}
# TODO: make write SIGPIPE configurable, but for now just ignore it.
@@ -240,7 +240,7 @@ sub do_recv {
if ($verbose) {
my $l = $r;
chomp $l;
- print STDERR "RECV: $l\n"
+ print STDERR "[$$] RECV: $l\n"
}
$readbuf .= $r;
}