cvs commit: modperl-2.0/t/modperl exit.t

[stas]

stas        2004/05/25 09:23:56

  Modified:    t/modperl exit.t
  Log:
  fix regex
  
  Revision  Changes    Path
  1.3       +1 -1      modperl-2.0/t/modperl/exit.t
  
  Index: exit.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modperl/exit.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- exit.t    25 May 2004 08:48:35 -0000      1.2
  +++ exit.t    25 May 2004 16:23:56 -0000      1.3
  @@ -18,7 +18,7 @@
   {
       my $exit_excpt = ModPerl::EXIT;
       my $body = GET_BODY_ASSERT("$location?eval");
  -    ok t_cmp(qr/^ModPerl::Util::exit: ($exit_excpt) exit was called/,
  +    ok t_cmp(qr/^ModPerl::Util::exit: \($exit_excpt\) exit was called/,
                $body,
                "exit in eval context");