diff options
| author | mertz | 2001-10-11 15:02:18 +0000 |
|---|---|---|
| committer | mertz | 2001-10-11 15:02:18 +0000 |
| commit | 20b889c4162f8d38d797d3e2c21bbea7a5e34e79 (patch) | |
| tree | a4aefaac67871ac72bcdcfba77e4b4a6510fa731 /example/ivyprobe.pl | |
| parent | 38c51ff6d0016beeca97f9698b379305828db198 (diff) | |
| download | ivy-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-x | example/ivyprobe.pl | 4 |
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"; } |