summaryrefslogtreecommitdiff
path: root/example/ivyprobe.pl
diff options
context:
space:
mode:
authormertz2001-10-11 15:02:18 +0000
committermertz2001-10-11 15:02:18 +0000
commit20b889c4162f8d38d797d3e2c21bbea7a5e34e79 (patch)
treea4aefaac67871ac72bcdcfba77e4b4a6510fa731 /example/ivyprobe.pl
parent38c51ff6d0016beeca97f9698b379305828db198 (diff)
downloadivy-perl-20b889c4162f8d38d797d3e2c21bbea7a5e34e79.zip
ivy-perl-20b889c4162f8d38d797d3e2c21bbea7a5e34e79.tar.gz
ivy-perl-20b889c4162f8d38d797d3e2c21bbea7a5e34e79.tar.bz2
ivy-perl-20b889c4162f8d38d797d3e2c21bbea7a5e34e79.tar.xz
ivyprobe.pl better displays empty tokens of messages
Diffstat (limited to 'example/ivyprobe.pl')
-rwxr-xr-xexample/ivyprobe.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/example/ivyprobe.pl b/example/ivyprobe.pl
index 12f1520..7595cb4 100755
--- a/example/ivyprobe.pl
+++ b/example/ivyprobe.pl
@@ -46,7 +46,7 @@ if (defined $bus) {
-messWhenReady => "$appliname READY",
); }
else {
- Ivy->init (-appName => $appliname",
+ Ivy->init (-appName => $appliname,
# -loopMode => 'TK',
-loopMode => 'LOCAL',
-messWhenReady => "$appliname READY",
@@ -187,7 +187,7 @@ sub callback {
my ($unused, $appname, @param) = @_;
my $paramString = "";
- if (scalar @param) { $paramString = join (" ", @param); }
+ if (scalar @param) { $paramString = join ("' '", @param); }
print "$appname sent '", $paramString, "'\n";
}