From bec120c70fbefeafb48c588abc266188968df52a Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 19 Feb 2011 16:59:28 -0700
Subject: [PATCH] Try this instead.

---
 modules/QDB.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/QDB.pm b/modules/QDB.pm
index 4d38c0c..200e913 100644
--- a/modules/QDB.pm
+++ b/modules/QDB.pm
@@ -129,7 +129,7 @@ sub cmd_qdb
             # Iterate through all quotes.
             foreach my $qkt (keys %$quotes) {
                 # Check if we have a match.
-                if ($quotes->{$qkt}->{quote} =~ m/($expr)/ixsm) {
+                if ($quotes->{$qkt}->{quote} =~ m{$expr}ixsm) {
                     # Match. Add to buffer.
                     push @BUFFER, "\2ID:\2 $qkt - ".$quotes->{$qkt}->{quote};
                 }