Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit b87198f5c7c0c54cdeb3dfa7e9e411c299f5a96c 1 parent c5c9532
@theory authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/09cgi.t
View
4 t/09cgi.t
@@ -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;
Please sign in to comment.
Something went wrong with that request. Please try again.