From 5a10c8f8a243bc9244ad2073807abfbd7d23213a Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Wed, 4 Nov 2015 21:12:04 +0100
Subject: [PATCH] Fix over-escaping in recent transactions

Recently a bug was fixed by escaping input, but that escaping only does the
right thing in double quotes (qq).
---
 plugins/users | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/users b/plugins/users
index 988274d..6a2b817 100755
--- a/plugins/users
+++ b/plugins/users
@@ -46,7 +46,7 @@ sub recent {
     my ($n, $u) = @_;
     $n += 0;
     print "Last $n transactions for $u:\n";
-    system "perl -lane'lc(\$F[3]) eq lc(q[\Q$u\E]) or next; s/CHECKOUT\\s+\\S+\\s+\\S+\\s+// or next; s/  #// or next; s/_/ /; print' .revbank.log | tail -n$n";
+    system "perl -lane'lc(\$F[3]) eq lc(qq[\Q$u\E]) or next; s/CHECKOUT\\s+\\S+\\s+\\S+\\s+// or next; s/  #// or next; s/_/ /; print' .revbank.log | tail -n$n";
 }
 
 sub balance {