stas 01/12/05 00:16:36
Modified: perl-framework/Apache-Test/lib/Apache TestSort.pm
Log:
- change the seed's source notice to be not misleading (after the
-random=SEED addition)
Revision Changes Path
1.3 +2 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestSort.pm
Index: TestSort.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSort.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- TestSort.pm 2001/12/05 05:20:44 1.2
+++ TestSort.pm 2001/12/05 08:16:36 1.3
@@ -25,10 +25,11 @@
my $info = "";
if ($seed) {
- $info = " (from APACHE_TEST_SEED env var)";
+ $info = " (user defined)";
# so we could reproduce the order
}
else {
+ $info = " (autogenerated)";
$seed = time ^ ($$ + ($$ << 15));
}