Server : Apache/2.4.62 (Unix) OpenSSL/1.0.2k-fips System : Linux server1.richineiserver.com 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64 User : fdshops ( 1003) PHP Version : 8.2.21 Disable Function : NONE Directory :  /usr/share/systemtap/tapset/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

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

probe perl.sub.call = process("/usr/lib64/perl5/CORE/libperl.so").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/perl5/CORE/libperl.so").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/perl5/CORE/libperl.so").mark("phase__change")
{
  newphase = user_string($arg1)
  oldphase = user_string($arg2)
  
}