fork issue in OVMS perl script

[purnima bhandari]

Hi,
I am new to OpenVMS Perl. I know that fork is currently not supported
in the OVMS Perl (perl 5.8.6 on Ia64, VMS 8.3). I am currently trying
to port the Perl script which has fork call and running successfully
in UNIX environment. I saw in the readme documentation that we can use
the vfork/exec instead. But I don't know how to use those in the Perl
script and it is failing with below error.

Below is the script snippet.


Code snippet:


  outln("($$) run_service()");
  $log->debugln("($$) enter run_service()");

# $pid = fork();  // Original script replaced with vfork below

  $pid = vfork();
  if($pid == 0) {         # we are the child
    $SIG{CHLD} = $old_sigchld_hnd;
    $SIG{INT}  = $old_sigint_hnd;




The error:

(574622047) enter run_service()run_observice calling vfork
Undefined subroutine &main::vfork called at /opt/ovt/bin/ovt.pl line 356.
%SYSTEM-F-ABORT, abort


Please guide me, where I am going wrong?

Thanks in advance.

Regards,
Purnima