My PID is 26131
My PPID is 1 after my parent is killed
[download]

Starting with 5.8.1, Perl began caching ppid values in an attempt to hide the fact that Linux assigns different process ids to different threads in the same application, it was thought that getppid in perl should behave the same across platforms so this caching was introduced. There was a lot of argument over whether this was a good thing or not. I'm not sure when it was changed back (or fixed), but I can say that 5.8.6 behaves as you would expect. It's also possible that this behavior could be different between the same versions of perl, depending on whether you compiled with thread support or not.

Any idea how to work around this problem ?

Sorry, maybe I'm missing the point, but you haven't actually said what "problem" you are experiencing.

As wazoox said, getppid will return 1 once the original process has been killed. The orphaned child process gets "adopted" by pid 1 (init). So it all seems correct to me.

If you can explain what you actually want the script to do, and what it's doing instead, that would help a lot.

Oops..here is the output I am getting if I use perl 5.8.2.

My PID is 24958
My PPID is 24958 after my parent is killed
[download]

It is probably returning the cached value of Parent PID.

But it works as expected if I use perl 5.6.1

My PID is 25020
My PPID is 1 after my parent is killed
[download]


My OS info :
Linux version 2.4.21-4.ELsmp (bhcompile@daffy.perf.redhat.com) (gcc version 3.2.3 20030502 (Red Hat Linux 3.2.3-20)) #1 SMP Fri Oct 3 17:52:56 EDT 2003

Thanks,
Pratik

I've been working on this same problem myself lately, and think I've found a work-around that looks like it works although I've not yet had time to try it.

The kill function can be used to check if a given process ID is available to receive signals (With some limitations on OS, see the perlport docs for details), so the way I'm planning on checking for a parent process' death is something like:

if (getppid==1 or !kill (0, getppid)) {
  # Parent is dead, long live the child!
} else {
  # Parent still alive.
}
[download]

As I've said I've not had time to actually try this myself yet, but it's looking to be along the right lines and replace the Proc::ProcessTable hack I'm currently using for the job. Let me know if it does work for you.