httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestUtil.pm
Date Mon, 10 Dec 2001 04:29:15 GMT
stas        01/12/09 20:29:15

  Modified:    perl-framework/Apache-Test/lib/Apache TestUtil.pm
  Log:
  - report wrong usage from the perspective of the caller
  
  Revision  Changes    Path
  1.18      +3 -2      httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm
  
  Index: TestUtil.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- TestUtil.pm	2001/12/07 21:39:02	1.17
  +++ TestUtil.pm	2001/12/10 04:29:15	1.18
  @@ -6,6 +6,7 @@
   use File::Find ();
   use File::Path ();
   use Exporter ();
  +use Carp ();
   
   use vars qw($VERSION @ISA @EXPORT %CLEAN);
   
  @@ -20,8 +21,8 @@
   use constant INDENT     => 4;
   
   sub t_cmp {
  -    die join(":", (caller)[1..2]) . 
  -        ' usage: $res = t_cmp($expected, $received, [$comment])'
  +    Carp::carp(join(":", (caller)[1..2]) . 
  +        ' usage: $res = t_cmp($expected, $received, [$comment])')
               if @_ < 2 || @_ > 3;
   
       t_debug("testing : " . pop) if @_ == 3;
  
  
  

Mime
View raw message