NAME
Sys::Prctl - Give access to prctl system call from Perl
DESCRIPTION
This is simple module that wraps the prctl system call. Currently only
the PR_SET_NAME and PR_GET_NAME are implemented.
This can be use to change the process name as reported by "ps -A" and be
killable will killall.
SYNOPSIS
use Sys::Prctl(prctl_name);
#
# Use with functions
#
# Process name is now "My long process name"
my $oldname = prctl_name();
prctl_name("My long process name");
#
# Use as an object
#
my $process = new Sys::Prctl();
# Process name is now "Short name"
my $oldname = $process->name();
$process->name('Short name');
#
# Real world use
#
# instead of "perl helloworld.pl"
$0 = "helloworld"
prctl_name("helloworld");
print "Hello World\n";
sleep 100;
# Process can now be killed with "killall helloworld"
METHODS
new()
Creates a new Sys::Prctl object.
name([$string])
Set or get the process name.
prctl_name([$string])
Set or get the process name.
$string can only be 15 chars long on Linux.
Returns undef on error.
prctl($option, $arg2, $arg3, $arg4, $arg5)
Direct wrapper for prctl call
NOTES
Currently only 32bit Linux has been tested. So test reports and patches
are wellcome.
AUTHOR
Troels Liebe Bentsen <
[email protected]>
COPYRIGHT
Copyright(C) 2005-2007 Troels Liebe Bentsen
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.