Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
BuildMM.pm	12.6 KB	-rw-r--r--	2022-10-20 09:29
BuildOptions.pm	8.18 KB	-rw-r--r--	2022-01-30 13:02
CScan.pm	33.72 KB	-rw-r--r--	2022-01-30 13:02
Code.pm	31.74 KB	-rw-r--r--	2022-01-30 13:02
Config.pm	2.62 KB	-rw-r--r--	2022-01-30 13:02
Const.pm	3.15 KB	-rw-r--r--	2022-10-20 09:29
FunctionMap.pm	5.6 KB	-rw-r--r--	2022-01-30 13:02
Global.pm	3.57 KB	-rw-r--r--	2022-10-20 09:29
InterpPool.pm	545 B	-rw-r--r--	2022-10-20 09:29
Interpreter.pm	546 B	-rw-r--r--	2022-10-20 09:29
MM.pm	9.58 KB	-rw-r--r--	2022-10-20 09:29
Manifest.pm	3.32 KB	-rw-r--r--	2022-01-30 13:02
MapUtil.pm	6.98 KB	-rw-r--r--	2022-01-30 13:02
MethodLookup.pm	97.39 KB	-rw-r--r--	2022-10-20 09:29
ParseSource.pm	2.05 KB	-rw-r--r--	2022-01-30 13:02
PerlRun.pm	4.54 KB	-rw-r--r--	2022-10-20 09:29
PerlRunPrefork.pm	1.37 KB	-rw-r--r--	2022-10-20 09:29
Registry.pm	8.78 KB	-rw-r--r--	2022-10-20 09:29
RegistryBB.pm	2.36 KB	-rw-r--r--	2022-10-20 09:29
RegistryCooker.pm	29.7 KB	-rw-r--r--	2022-10-20 09:29
RegistryLoader.pm	10.7 KB	-rw-r--r--	2022-10-20 09:29
RegistryPrefork.pm	1.37 KB	-rw-r--r--	2022-10-20 09:29
StructureMap.pm	4.16 KB	-rw-r--r--	2022-01-30 13:02
TestReport.pm	2.99 KB	-rw-r--r--	2022-10-20 09:29
TestRun.pm	2.34 KB	-rw-r--r--	2022-01-30 13:02
TiPool.pm	541 B	-rw-r--r--	2022-10-20 09:29
TiPoolConfig.pm	547 B	-rw-r--r--	2022-10-20 09:29
TypeMap.pm	12.78 KB	-rw-r--r--	2022-01-30 13:02
Util.pm	6.89 KB	-rw-r--r--	2022-10-20 09:29
WrapXS.pm	36.93 KB	-rw-r--r--	2022-01-30 13:02

Rename

# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
# 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 ModPerl::TestReport;

use strict;
use warnings FATAL => 'all';

use base qw(Apache::TestReportPerl);

use ExtUtils::MakeMaker ();

my @interesting_packages = qw(
    CGI
    ExtUtils::MakeMaker
    Apache2::Request
    mod_perl2
    LWP
    Apache2
    mod_perl
);

# we want to see only already installed packages, so skip over
# modules that are about to be installed
my @skip_dirs = qw(
    blib/lib
    blib/arch
    lib
);
my $skip_dir_str = join '|', map { s|/|[/\\\\]|g; $_ } @skip_dirs;
my $skip_dir_pat = qr|[/\\]($skip_dir_str)[/\\]*$|;

sub packages {

my @inc = grep !/$skip_dir_pat/, @INC;

my %packages = ();
    my $max_len = 0;
    for my $package (sort @interesting_packages ) {
        $max_len = length $package if length $package > $max_len;
        my $filename = package2filename($package);
        my @ver = ();
        for my $dir (@inc) {
            my $path = "$dir/$filename";
            if (-e $path) {
                my $ver = MM->parse_version($path);
                # two versions could be installed (one under Apache2/)
                push @{ $packages{$package} }, $ver if $ver;
            }
        }
    }

my @lines = "*** Packages of interest status:\n";

for my $package (sort @interesting_packages) {
        my $vers = exists $packages{$package}
            ? join ", ", sort @{ $packages{$package} }
            : "-";
        push @lines, sprintf "%-${max_len}s: %s", $package, $vers;
    }

return join "\n", @lines, '';
}

sub config {
    my $self = shift;

my @report = ();

# core config
    push @report, ModPerl::Config::as_string();

# installed packages
    push @report, $self->packages;

# this report is generated by user/group

return join "\n", @report;
}

sub package2filename {
    my $package = shift;
    $package =~ s|::|/|g;
    $package .= ".pm";
    return $package;
}

# We are reporting to the Debian BTS, not directly to the upstream (Apache)
sub report_to { 'submit@bugs.debian.org' }
sub postit_note {
    # No, no postit notes required :) This report will be typically
    # embedded in reportbug's, so...
}