Benign arch Download

data/usr/bin/dh_movelibkdeinit

Perl system command execution

SHA-256dcbb3425f2b5d8fe6ed4ff7218bcb15c91f24a406e0fa3859822e5649d3fa843

MaleculeH(Po)

Evidence

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

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

English function-word token "for" lines 8–20

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

Perl module import statement lines 62–74

62:56… ld up a list of things
63to exclude.
64
65=back
66
⋯8 lines

Perl system command execution lines 74–82

74:60… einit';
75
76init();
77
78if (@{$dh{DOPACKAGES}} && -f '/usr/bin/kdeinit4' &&
79    system(sprintf("objdump -p /usr/bin/kdeinit4 2>/dev/null | grep -q 'RUNPATH.*%s'",
80        LIBKDEINIT_INSTALL_DIR)) != 0)
81{
82    warning("kdeinit4 does n …

Perl sigil variable declaration lines 83–89

83:11… ;
84}
85
86foreach my $package (@{$dh{DOPACKAGES}}) {
87    my $tmpdir = tmpdir($package);
88    if (-d "$tmpdir/usr/lib") {
89        my $libkdeinit_dir = $tmpdir . LIBK …