Permalink
Browse files

Fixed test failure with older CGI.pm distributed with Perl 5.6.2.

  • Loading branch information...
1 parent c5c9532 commit b87198f5c7c0c54cdeb3dfa7e9e411c299f5a96c @theory committed May 3, 2008
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/09cgi.t
View
@@ -151,7 +151,7 @@ ok( $cgih->handle_request, "Handle redirection request" );
is( $outbuf, '', "Check redirection result" );
ok( my $out = $stdout->read, "Get contents of STDOUT" );
like( $out, qr/^Status: 302 (?:Moved|Found)/m, "Check Status header" );
-like( $out, qr/^(?:Moved\s+)?Location: $url/m, "Check Location header" );
+like( $out, qr/^(?:Moved\s+)?Location: $url/mi, "Check Location header" );
clear_bufs;
##############################################################################
@@ -161,7 +161,7 @@ $ENV{QUERY_STRING} = "$key|redir_cb0=1" .
ok( $cgih->handle_request, "Handle redirect w/o abort" );
ok( my $res = $stdout->read, "Get response headers" );
like( $res, qr/^Status: 302 (?:Moved|Found)/m, "Check for Status header" );
-like( $res, qr/^(?:Moved\s+)?Location: $url/m, "Check for Location header" );
+like( $res, qr/^(?:Moved\s+)?Location: $url/mi, "Check for Location header" );
like( $res, qr/^Age: 42/mi, "Check for age header" );
clear_bufs;

0 comments on commit b87198f

Please sign in to comment.