Escaping dollar signs

diff --git a/lib/Speak.pm b/lib/Speak.pm
index 4be475d..9cb9441 100644 (file)
--- 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 (file)
--- 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\