stas 2004/05/22 14:47:32
Modified: t/response/TestAPR util.pm
lib/Apache compat.pm
. Changes
xs/maps apr_functions.map
Log:
- ARP::password_validate is now ARP::Util::password_validate
- improve the test
Revision Changes Path
1.8 +4 -10 modperl-2.0/t/response/TestAPR/util.pm
Index: util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/util.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -u -r1.7 -r1.8
--- util.pm 4 May 2004 06:19:12 -0000 1.7
+++ util.pm 22 May 2004 21:47:32 -0000 1.8
@@ -7,10 +7,8 @@
use Apache::TestUtil;
use APR::Util ();
-use APR::Error ();
use Apache::Const -compile => 'OK';
-use APR::Const -compile => 'EMISMATCH';
sub handler {
my $r = shift;
@@ -22,15 +20,11 @@
# my $bytes = APR::generate_random_bytes($blen);
# ok length($bytes) == $blen;
- ok ! APR::password_validate("one", "two");
+ ok ! APR::Util::password_validate("one", "two");
- my $status = APR::EMISMATCH;
-
- my $str = APR::Error::strerror($status);
-
- t_debug "strerror=$str\n";
-
- ok $str eq 'passwords do not match';
+ my $clear = "pass1";
+ my $hash = "1fWDc9QWYCWrQ";
+ ok APR::Util::password_validate($clear, $hash);
Apache::OK;
}
1.106 +1 -1 modperl-2.0/lib/Apache/compat.pm
Index: compat.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -u -r1.105 -r1.106
--- compat.pm 5 Mar 2004 18:19:15 -0000 1.105
+++ compat.pm 22 May 2004 21:47:32 -0000 1.106
@@ -708,7 +708,7 @@
*parsedate = \&APR::Date::parse_http;
-*validate_password = \&APR::password_validate;
+*validate_password = \&APR::Util::password_validate;
sub Apache::URI::parse {
my($class, $r, $uri) = @_;
1.378 +2 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.377
retrieving revision 1.378
diff -u -u -r1.377 -r1.378
--- Changes 21 May 2004 23:12:55 -0000 1.377
+++ Changes 22 May 2004 21:47:32 -0000 1.378
@@ -12,6 +12,8 @@
=item 1.99_15-dev
+ARP::password_validate is now ARP::Util::password_validate [Stas]
+
APR::IpSubnet::new() now throws APR::Error exception (not returning
rc) [Stas]
1.78 +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.77
retrieving revision 1.78
diff -u -u -r1.77 -r1.78
--- apr_functions.map 21 May 2004 22:01:16 -0000 1.77
+++ apr_functions.map 22 May 2004 21:47:32 -0000 1.78
@@ -449,7 +449,7 @@
apr_dso_sym
apr_dso_unload
-MODULE=APR::Util PACKAGE=guess
+MODULE=APR::Util
apr_filepath_name_get
apr_password_get
int:apr_password_validate | mpxs_
