From 88ac756c933886f4728a58cc7f390811ce3d0c15 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@venexma.es>
Date: Thu, 27 Dec 2007 08:55:32 +0100
Subject: [PATCH] The params() method doesn't substitute escaped parameters.

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

diff --git a/Artemus.pm b/Artemus.pm
index 819c6c4..9409fc9 100644
--- a/Artemus.pm
+++ b/Artemus.pm
@@ -443,7 +443,7 @@ sub params
 	my ($ah, $t, @params) = @_;
 
 	for(my $n = 0; $n < scalar(@params); $n++) {
-		$t =~ s/\$$n/$params[$n]/g;
+		$t =~ s/(^|[^\\])\$$n/$1$params[$n]/g;
 	}
 
 	return $t;
-- 
2.11.4.GIT