REDROOM

Edit File Size: 1.31 KB

/home/godevadmin/public_html/upload_images/home/000~ROOT~000/usr/share/systemtap/tapset/libperl5.26.3-64.stp

Text Base64

/*
   This probe will fire when the perl script enters a subroutine.
 */

probe perl.sub.call = process("/usr/lib64/libperl.so.5.26").mark("sub__entry")
{

sub = user_string($arg1)
  filename = user_string($arg2)
  lineno = $arg3
  package = user_string($arg4)

}

/*
   This probe will fire when the return from a subroutine has been
   hit.
 */

probe perl.sub.return = process("/usr/lib64/libperl.so.5.26").mark("sub__return")
{

sub = user_string($arg1)
  filename = user_string($arg2)
  lineno = $arg3
  package = user_string($arg4)

}

/*
   This probe will fire when the Perl interperter changes state.
 */

probe perl.phase.change = process("/usr/lib64/libperl.so.5.26").mark("phase__change")
{
  newphase = user_string($arg1)
  oldphase = user_string($arg2)

}

/*
   Fires when Perl has successfully loaded an individual file.
 */

probe perl.loaded.file = process("/usr/lib64/libperl.so.5.26").mark("loaded__file")
{
  filename = user_string($arg1)

}

/*
   Fires when Perl is about to load an individual file.
 */

probe perl.loading.file = process("/usr/lib64/libperl.so.5.26").mark("loading__file")
{
  filename = user_string($arg1)

}

/*
   Traces the execution of each opcode in the Perl runloop.
 */

probe perl.op.entry = process("/usr/lib64/libperl.so.5.26").mark("op__entry")
{
  opname = user_string($arg1)
}

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Name	Size	Perms	Modified	Actions
libperl5.26.3-64.stp	1.31 KB	lrw-r--r--	2023-05-18 21:35:09	Edit Download recursive recursive
libpython2.7-64.stp	522 B	lrw-r--r--	2024-04-10 04:58:42	Edit Download recursive recursive
sssd.stp	8.87 KB	lrw-r--r--	2025-06-05 19:42:52	Edit Download recursive recursive
sssd_functions.stp	4.69 KB	lrw-r--r--	2025-06-05 19:42:50	Edit Download recursive recursive

Directory Contents