/usr/lib/x86_64-linux-gnu/perl5/5.26/Apache/TestSort.pm is in libapache2-mod-perl2 2.0.10-2ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | # Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements. See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
# The ASF licenses this file to You under the Apache License, Version 2.0
# (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
package Apache::TestSort;
use strict;
use warnings FATAL => 'all';
use Apache::TestTrace;
sub repeat {
my($list) = @_;
return @{$list};
}
sub random {
my($list) = @_;
my $seed = $ENV{APACHE_TEST_SEED} || '';
my $info = "";
if ($seed) {
$info = " (user defined)";
# so we could reproduce the order
}
else {
$info = " (autogenerated)";
$seed = time ^ ($$ + ($$ << 15));
}
warning "Using random number seed: $seed" . $info;
srand($seed);
#from perlfaq4.pod
for (my $i = @$list; --$i; ) {
my $j = int rand($i+1);
next if $i == $j;
@$list[$i,$j] = @$list[$j,$i];
}
}
sub run {
my($self, $list, $args) = @_;
my $order = $args->{order} || 'repeat';
if ($order =~ /^\d+$/) {
#dont want an explicit -seed option but env var can be a pain
#so if -order is number assume it is the random seed
$ENV{APACHE_TEST_SEED} = $order;
$order = 'random';
}
my $sort = \&{$order};
# re-shuffle the list according to the requested order
if (defined &$sort) {
$sort->($list);
}
else {
error "unknown order '$order'";
}
}
1;
|