Fix useless use of \E warning

Surely I meant \Q. Fixes #69
semifor · Jan 2, 2017 · 7621748 · toddr · Jan 3, 2017 · semifor
1 parent c3be648
commit 7621748
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/stringent-encoding.t b/t/stringent-encoding.t
@@ -36,7 +36,7 @@ my $text = q[Bob's your !@##$%^&*(){}} uncle!];
 $nt->new_direct_message({ screen_name => 'perl_api', text => $text });
 
 my $encoded_text = Net::OAuth::Message::encode($text);
-like $req->content, qr/\E$encoded_text/, 'properly encoded';
+like $req->content, qr/\Q$encoded_text/, 'properly encoded';
 
 my $uri = URI->new($req->uri);
 $uri->query($req->content);