Escaping dollar signs

[clearscm.git] / lib / Speak.pm

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\"";