From: Andrew DeFaria <A.DeFaria@cpanel.net>
Date: Tue, 20 Sep 2022 00:02:55 +0000 (-0700)
Subject: Escaping dollar signs
X-Git-Url: https://defaria.com/gitweb/?a=commitdiff_plain;h=340b9e62b878286519daa08725f831868d4c00b9;p=clearscm.git

Escaping dollar signs
---

diff --git a/lib/Speak.pm b/lib/Speak.pm
index 4be475d..9cb9441 100644
--- a/lib/Speak.pm
+++ b/lib/Speak.pm
@@ -126,7 +126,8 @@ Returns:
   # Log message to log file if $log was passed in.
   $log->msg($msg);
 
-  $msg = quotemeta $msg;
+  #$msg = quotemeta $msg;
+  $msg =~ s/\$/\\\$/g;
 
   my ($status, @output) = Execute "/usr/local/bin/gt \"$msg\"";
 
diff --git a/rc/set_path b/rc/set_path
index 97ff1a2..104ab8f 100644
--- a/rc/set_path
+++ b/rc/set_path
@@ -102,6 +102,7 @@ path_dirs="$path_dirs\
   /opt/ibm/rationalsdlc/clearquest/bin\
   /opt/ibm/rationalsdlc/clearquest\
   /opt/ibm/rationalsdlc/common\
+  /opt/mycroft-core/bin\
   /opt/perforce/bin\
   /opt/perforce/sbin\
   /usr/sbin\