stas 2004/03/08 15:44:28
Modified: perl-framework/Apache-Test/lib/Apache TestHandler.pm
perl-framework/Apache-Test Changes
Log:
remove the dependency on APR::UUID (i.e. mod_perl 2.0) in the
same_interpreter framework (use plain time/rand/$$ concatenation)
Revision Changes Path
1.4 +2 -2
httpd-test/perl-framework/Apache-Test/lib/Apache/TestHandler.pm
Index: TestHandler.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestHandler.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- TestHandler.pm 4 Mar 2004 05:51:31 -0000 1.3
+++ TestHandler.pm 8 Mar 2004 23:44:28 -0000 1.4
@@ -76,8 +76,8 @@
my $id = $same_interp_id;
if ($interp eq 'tie') { #first request for an interpreter instance
# unique id for this instance
- require APR::UUID;
- $same_interp_id = $id = APR::UUID->new->format;
+ $same_interp_id = $id =
+ unpack "H*", pack "Nnn", time, $$, int(rand(60000));
$same_interp_counter = 0; #reset the counter
}
elsif ($interp ne $same_interp_id) {
1.104 +4 -0 httpd-test/perl-framework/Apache-Test/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Changes,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -u -r1.103 -r1.104
--- Changes 5 Mar 2004 13:22:11 -0000 1.103
+++ Changes 8 Mar 2004 23:44:28 -0000 1.104
@@ -8,6 +8,10 @@
=item 1.09-dev
+remove the dependency on APR::UUID (i.e. mod_perl 2.0) in the
+same_interpreter framework (use plain time/rand/$$ concatenation)
+[Stas]
+
Updated to the new Apache License Version 2.0 [Gozer]
handle cases on Win32 when supplied paths have spaces in their
