Executive: more fixes

diff --git a/Osstest/Serial/sympathy.pm b/Osstest/Serial/sympathy.pm
index e35384b45d80ac20081a442361835a70546a3a02..f550baaa5fd3e69b0f166a9e8d074215dd954188 100644 (file)
--- a/Osstest/Serial/sympathy.pm
+++ b/Osstest/Serial/sympathy.pm
@@ -44,13 +44,13 @@ sub new {
 
     foreach (@args) {
        my $vn;
-       my $org = _:
+       my $org = $_;
        s/\%(\w*)\%/
            !length $1 ? '' :
            ($vn=$1) eq 'host' ? $ho->{Name} :
            !defined $r{$vn} ? die "$ho->{Name} $org $_ $1 ?" :
            $r{$vn}
-        /ge;
+        /ge; #/;
     };
     logm("serial method $mo->{Host}: @args");
     ($mo->{Server}, $mo->{Socket}, $mo->{Pattern}) = @args;