This file is indexed.

/usr/share/perl5/Net/OpenSSH/ModuleLoader.pm is in libnet-openssh-perl 0.73-1.

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
package Net::OpenSSH::ModuleLoader;

use strict;
use warnings;
use Carp;

our %loaded_module;

use Exporter qw(import);
our @EXPORT = qw(_load_module);

sub _load_module {
    my ($module, $version) = @_;
    $loaded_module{$module} ||= do {
        my $err;
        do {
            local ($@, $SIG{__DIE__});
            my $ok = eval "require $module; 1";
            $err = $@;
            $ok;
        } or croak "unable to load Perl module $module: $err";
    };
    if (defined $version) {
        my $mv = do {
            local ($@, $SIG{__DIE__});
            eval "\$${module}::VERSION";
        } || 0;
	(my $mv1 = $mv) =~ s/_\d*$//;
	croak "$module version $version required, $mv is available"
	    if $mv1 < $version;
    }
    1
}

1;