Benign arch Download

data/usr/share/perl5/Debian/PkgKde/SymbolsHelper/SymbolFileCollection.pm

Perl fork child process

SHA-2563e1023683d68d5c0e2af3f380e826369dfd0fc515cf1eb3060025a81b4255771

MaleculeH(Po)

Evidence

English function-word token "the" lines 1–6

1# Copyright (C) 2008-2010 Modestas Vainius <[email protected]>
2#
3# This program is free software: you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation, either version 3 of the License, or
6# (at your  …

English function-word token "for" lines 6–23

6:35… on.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	See the
11# GNU General Public License for more details.
12#
⋯11 lines

Perl subroutine definition lines 24–30

24:43… 
25use Debian::PkgKde::SymbolsHelper::SymbolFile;
26
27sub new {
28    my ($class, $orig_symfile) = @_;
⋯2 lines

Perl sigil variable declaration lines 38–47

38:21… atest => undef }, $class;
39}
40
41sub get_symfiles {
42    my $self = shift;
43    return values %{$self->{symfiles}};
44}
45
46sub get_symfile {
47    my ($self, $arch) = @ …

Perl fork child process lines 51–59

51:15… >{orig_symfile};
52    }
53}
54
55# NOTE: latest may also include $orig fork()s if no symbol files with higher
56# confirmed version have been added.
57sub get_latest_version {
58    my $self = shift;
59    return  …