cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestUtil.pm

[stas]

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;