switch uses of like(..., qr/.../m) back to ok( ... =~ ) due to incompatibility in 5.8.x

see https://metacpan.org/pod/perl5101delta#Other-incompatible-changes
and http://www.cpantesters.org/cpan/report/f15016a0-2de3-11e5-99ef-54c3deb78640

Author: karenetheridge

Changes

@@ -1,5 +1,8 @@
 Revision history for HTTP-Message
 
+
+    - fix uses of qr/.../m in tests that do not work in 5.8.x
+
 6.09   2015-07-19
 
     - converted all uses of Test.pm to Test::More

t/common-req.t

@@ -117,21 +117,21 @@ note "$c[5]\n";
 is(@c, 7);
 like($c[6], qr/^--\n/);  # 5 parts + header & trailer
 
-like($c[2], qr/^Content-Disposition:\s*form-data;\s*name="email"/m);
-like($c[2], qr/^gisle\@aas.no$/m);
+ok($c[2] =~ /^Content-Disposition:\s*form-data;\s*name="email"/m);
+ok($c[2] =~ /^gisle\@aas.no$/m);
 
-like($c[5], qr/^Content-Disposition:\s*form-data;\s*name="file";\s*filename="$file"/m);
-like($c[5], qr/^Content-Type:\s*text\/plain$/m);
-like($c[5], qr/^foo\nbar\nbaz/m);
+ok($c[5] =~ /^Content-Disposition:\s*form-data;\s*name="file";\s*filename="$file"/m);
+ok($c[5] =~ /^Content-Type:\s*text\/plain$/m);
+ok($c[5] =~ /^foo\nbar\nbaz/m);
 
 $r = POST 'http://www.perl.org/survey.cgi',
       [ file => [ undef, "xxy\"", Content_type => "text/html", Content => "<h1>Hello, world!</h1>" ]],
       Content_type => 'multipart/form-data';
 #note $r->as_string;
 
-like($r->content, qr/^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxy\\"/m);
-like($r->content, qr/^Content-Type: text\/html/m);
-like($r->content, qr/^<h1>Hello, world/m);
+ok($r->content =~ /^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxy\\"/m);
+ok($r->content =~ /^Content-Type: text\/html/m);
+ok($r->content =~ /^<h1>Hello, world/m);
 
 $r = POST 'http://www.perl.org/survey.cgi',
       Content_type => 'multipart/form-data',

t/message-old.t

@@ -20,7 +20,7 @@ $req->header(
 	"if-modified-since" => "Thu, 03 Feb 1994 00:00:00 GMT",
 	"mime-version"      => "1.0");
 
-like($req->as_string, qr/^GET/m);
+ok($req->as_string =~ /^GET/m);
 is($req->header("MIME-Version"), "1.0");
 is($req->if_modified_since, ((760233600 + $offset) || 0));