From 93381da6de8aebf4bef2acba0f733fc422987c16 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@venexma.es>
Date: Thu, 27 Dec 2007 09:24:14 +0100
Subject: [PATCH] Replace escaped $.

---
 Artemus.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Artemus.pm b/Artemus.pm
index 9409fc9..45b6d44 100644
--- a/Artemus.pm
+++ b/Artemus.pm
@@ -553,9 +553,10 @@ sub _process_do
 		# take key and params
 		if (($key, $text) = ($found =~ /^([-\\\w_ \.]+)\|(.*)$/s)) {
 
-			# replace escaped { and }
+			# replace escaped chars
 			$text =~ s/\\{/{/g;
 			$text =~ s/\\}/}/g;
+			$test =~ s/\\\$/\$/g;
 
 			# now split the parameters
 			@params = split(/\|/, $text);
-- 
2.11.4.GIT