summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsrc/transduct14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/transduct b/src/transduct
index e620fe0..40581d6 100755
--- a/src/transduct
+++ b/src/transduct
@@ -168,7 +168,7 @@ sub item {
my @the_keys = keys (%global_var);
if (scalar (@the_keys) != 0) {
foreach my $key (@the_keys) {
- $msg =~ s/\$$key/$global_var{$key}/;
+ $msg =~ s/\$$key/$global_var{$key}/g;
print "==> $msg\n";
}
}
@@ -210,7 +210,7 @@ sub CB_Callback {
my @tab_msgs = split (/ , /, $outputtoggles[$num]);
foreach my $item (@tab_msgs) {
for (my $i = 0; $i < $max_nb_parameters; $i++) {
- $item =~ s/\$$i/$tab[$i-1]/;
+ $item =~ s/\$$i/$tab[$i-1]/g;
}
$ivy->sendMsgs ($item);
}
@@ -221,7 +221,7 @@ sub CB_Callback {
my @tab_msgs = split (/ , /, $outputs[$num]);
foreach my $item (@tab_msgs) {
for (my $i = 0; $i < $max_nb_parameters; $i++) {
- $item =~ s/\$$i/$tab[$i-1]/;
+ $item =~ s/\$$i/$tab[$i-1]/g;
}
my @the_keys = keys (%global_var);
@@ -238,14 +238,14 @@ sub CB_Callback {
$global_var{$key} = $mini_message{$num};
}
- $item =~ s/\$$key/$global_var{$key}/;
+ $item =~ s/\$$key/$global_var{$key}/g;
}
}
}
if (scalar (@the_keys) != 0) {
foreach my $key (@the_keys) {
- $item =~ s/\$$key/$global_var{$key}/;
+ $item =~ s/\$$key/$global_var{$key}/g;
}
}
@@ -262,12 +262,12 @@ sub CB_Callback {
foreach my $item (@tab_scripts) {
for (my $i = 0; $i < $max_nb_parameters; $i++) {
- $item =~ s/\$$i/$tab[$i-1]/;
+ $item =~ s/\$$i/$tab[$i-1]/g;
}
my @the_keys = keys (%global_var);
foreach my $key (@the_keys) {
- $item =~ s/\$$key/$global_var{$key}/;
+ $item =~ s/\$$key/$global_var{$key}/g;
}
Verbose (__LINE__, 0, "lancement du script $item");