From 21b56bf6c534a99e5844f72ca0f2d88c491f20e8 Mon Sep 17 00:00:00 2001 From: Heikki Hannikainen Date: Sun, 23 Oct 2016 12:17:46 +0300 Subject: [PATCH] t/30filter-cmd.t: escape { in regexp, fix bug #34 --- tests/t/30filter-cmd.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/t/30filter-cmd.t b/tests/t/30filter-cmd.t index b13ca70..13f135a 100644 --- a/tests/t/30filter-cmd.t +++ b/tests/t/30filter-cmd.t @@ -131,7 +131,7 @@ ok($ack, qr/^SERVER>[^,]+,TCPIP\*,qAZ,TESTING::N5CAL-2 :ackbx$/); $reply = $i_rx->getline_noncomment(2); #warn "received reply: $reply\n"; # SERVER>APJS40,TCPIP*,qAZ,TESTING::N5CAL-2 :filter b/OZ*/ZZ* active{839 -ok($reply, qr/^SERVER>[^,]+,TCPIP\*,qAZ,TESTING::N5CAL-2 :filter.*active{.*$/); +ok($reply, qr/^SERVER>[^,]+,TCPIP\*,qAZ,TESTING::N5CAL-2 :filter.*active\{.*$/); # disconnect