r1747 - trunk/varnish-tools/regress/lib/Varnish/Test/Case

[des at projects.linpro.no]

Author: des
Date: 2007-07-24 15:51:29 +0200 (Tue, 24 Jul 2007)
New Revision: 1747

Modified:
   trunk/varnish-tools/regress/lib/Varnish/Test/Case/Ticket128.pm
Log:
Use a regexp search instead of index()


Modified: trunk/varnish-tools/regress/lib/Varnish/Test/Case/Ticket128.pm
===================================================================
--- trunk/varnish-tools/regress/lib/Varnish/Test/Case/Ticket128.pm	2007-07-24 13:50:12 UTC (rev 1746)
+++ trunk/varnish-tools/regress/lib/Varnish/Test/Case/Ticket128.pm	2007-07-24 13:51:29 UTC (rev 1747)
@@ -57,7 +57,7 @@
     die "Incorrect response code\n"
 	if $response->code != $CODE;
     die "Incorrect response message\n"
-	unless index($response->content, $MESSAGE);
+	unless $response->content =~ m/\Q$MESSAGE\E/o;
 
     $client->shutdown();