This file is indexed.

/usr/lib/perl5/Crypt/SSLeay/MainContext.pm is in libcrypt-ssleay-perl 0.57-2ubuntu1.

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
package Crypt::SSLeay::MainContext;

# maintains a single instance of the Crypt::SSLeay::CTX class

use strict;
use Carp ();

require Crypt::SSLeay::CTX;

my $ctx = &main_ctx();

sub main_ctx { 
    my $ssl_version = shift || 23;

    my $ctx = Crypt::SSLeay::CTX->new($ssl_version);
    $ctx->set_cipher_list($ENV{CRYPT_SSLEAY_CIPHER})
      if $ENV{CRYPT_SSLEAY_CIPHER};    

    $ctx;
}

my %sub_cache = ('main_ctx' => \&main_ctx );

sub import {
    my $pkg = shift;
    my $callpkg = caller();
    my @func = @_;
    for (@func) {
        s/^&//;
        Carp::croak("Can't export $_ from $pkg") if /\W/;;
        my $sub = $sub_cache{$_};
        unless ($sub) {
            my $method = $_;
            $method =~ s/^main_ctx_//;  # optional prefix
            $sub = $sub_cache{$_} = sub { $ctx->$method(@_) };
        }
        no strict 'refs';
        *{"${callpkg}::$_"} = $sub;
    }
}

1;