cvs commit: modperl-2.0/xs/maps apr_functions.map

[stas]

stas        02/01/29 21:21:53

  Modified:    t/protocol/TestProtocol echo_filter.pm
               xs/APR/APR apr-test
               xs/maps  apr_functions.map
  Added:       t/response/TestAPR util.pm
               xs/APR/Util APR__Util.h
  Removed:     t/response/TestAPR lib.pm
               xs/APR/Lib APR__Lib.h
  Log:
  move APR::Lib => APR::Util
  
  Revision  Changes    Path
  1.4       +1 -1      modperl-2.0/t/protocol/TestProtocol/echo_filter.pm
  
  Index: echo_filter.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/echo_filter.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- echo_filter.pm    20 Jan 2002 18:37:05 -0000      1.3
  +++ echo_filter.pm    30 Jan 2002 05:21:52 -0000      1.4
  @@ -6,7 +6,7 @@
   use APR::Brigade ();
   use APR::Const -compile => qw(SUCCESS EOF);
   use Apache::Const -compile => qw(MODE_GETLINE);
  -use APR::Lib ();
  +use APR::Util ();
   
   sub handler {
       my Apache::Connection $c = shift;
  
  
  
  1.1                  modperl-2.0/t/response/TestAPR/util.pm
  
  Index: util.pm
  ===================================================================
  package TestAPR::lib;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  
  use APR::Util ();
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 3;
  
      my $blen = 10;
      my $bytes = APR::generate_random_bytes(10);
      ok length($bytes) == $blen;
  
      my $status = APR::password_validate("one", "two");
  
      ok $status != 0;
  
      my $str= APR::strerror($status);
  
      t_debug "strerror=$str\n";
  
      ok $str eq 'passwords do not match';
  
      0;
  }
  
  1;
  
  
  
  1.1                  modperl-2.0/xs/APR/Util/APR__Util.h
  
  Index: APR__Util.h
  ===================================================================
  static MP_INLINE void mpxs_apr_strerror(pTHX_ SV *sv, SV *arg)
  {
      apr_status_t statcode = mp_xs_sv2_status(arg);
      char *ptr;
      mpxs_sv_grow(sv, 128-1);
      ptr = apr_strerror(statcode, SvPVX(sv), SvLEN(sv));
      mpxs_sv_cur_set(sv, strlen(ptr)); /*XXX*/
  }
  
  static MP_INLINE void mpxs_apr_generate_random_bytes(pTHX_ SV *sv, SV *arg)
  {
      int len = (int)SvIV(arg);
      mpxs_sv_grow(sv, len);
      (void)apr_generate_random_bytes(SvPVX(sv), len);
      mpxs_sv_cur_set(sv, len);
  }
  
  static XS(MPXS_apr_strerror)
  {
      dXSARGS;
  
      mpxs_usage_items_1("status_code");
  
      mpxs_set_targ(mpxs_apr_strerror, ST(0));
  }
  
  static XS(MPXS_apr_generate_random_bytes)
  {
      dXSARGS;
  
      mpxs_usage_items_1("length");
  
      mpxs_set_targ(mpxs_apr_generate_random_bytes, ST(0));
  }
  
  
  
  1.4       +1 -1      modperl-2.0/xs/APR/APR/apr-test
  
  Index: apr-test
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/APR/apr-test,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- apr-test  13 Sep 2001 02:39:08 -0000      1.3
  +++ apr-test  30 Jan 2002 05:21:52 -0000      1.4
  @@ -11,7 +11,7 @@
   use APR::UUID ();
   use APR::Pool ();
   use APR::Lock ();
  -use APR::Lib ();
  +use APR::Util ();
   use APR::Base64 ();
   use APR::Signal ();
   
  
  
  
  1.32      +1 -1      modperl-2.0/xs/maps/apr_functions.map
  
  Index: apr_functions.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v
  retrieving revision 1.31
  retrieving revision 1.32
  diff -u -r1.31 -r1.32
  --- apr_functions.map 29 Jan 2002 17:11:06 -0000      1.31
  +++ apr_functions.map 30 Jan 2002 05:21:53 -0000      1.32
  @@ -407,7 +407,7 @@
    apr_dso_sym
    apr_dso_unload
   
  -MODULE=APR::Lib   PACKAGE=guess
  +MODULE=APR::Util   PACKAGE=guess
    apr_filename_of_pathname
    apr_password_get
    apr_password_validate