/usr/lib/x86_64-linux-gnu/perl5/5.22/Linux/Pid.pm is in liblinux-pid-perl 0.04-1build2.
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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | package Linux::Pid;
use strict;
use warnings;
our $VERSION = 0.04;
require XSLoader;
XSLoader::load('Linux::Pid', $VERSION);
sub import {
shift;
my $p = caller;
for my $symbol (@_) {
if ($symbol eq 'getpid' or $symbol eq 'getppid') {
no strict 'refs';
*{$p."::".$symbol} = \&{$symbol};
} else {
require Carp;
Carp::croak("Unrecognized symbol $symbol");
}
}
}
1;
__END__
=head1 NAME
Linux::Pid - Get the native PID and the PPID on Linux
=head1 SYNOPSIS
use Linux::Pid;
print Linux::Pid::getpid(), "\t", Linux::Pid::getppid(), "\n";
use Linux::Pid qw(getpid getppid);
print getpid(), "\t", getppid(), "\n";
=head1 DESCRIPTION
Why should one use a module to get the PID and the PPID of a process
where there are the C<$$> variable and the C<getppid()> builtin ? (Not
mentioning the equivalent C<POSIX::getpid()> and C<POSIX::getppid()>
functions.)
In fact, this is useful on Linux, with multithreaded programs. Linux' C
library, using the linux thread model, returns different values of the
PID and the PPID from different threads. (Other thread models such as
NPTL don't have the same behaviour). This module forces perl to call the
underlying C functions C<getpid()> and C<getppid()>.
=head1 AUTHOR
Copyright (c) 2002-2007 Rafael Garcia-Suarez. All rights reserved. This
program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|