RE: Perl problema VMS-en

Maulis Adam <maulis@ludens.elte.hu>

Szia!

From: Zoltan Holdampf <holdampf@mkb.hu>
> Segitsegre lenne szuksegem.
> Egy aprocska eljarast probalok osszehozni perlben, amely meghiv egy kulso
> programot. Az a problemam, hogy ennek a kulso programnak a statuszara is
> szuksegem lenne.

belemasztam a perl forrasaba.  Hibas.
A lib$spawn() statuszaval ter vissza, nem pedig a futatott program 
statuszaval.

Javitsd ki:

Nalam a  kovetkezo van, verzio:
This is perl, v5.6.1 built for VMS_AXP

A hibas file a perl forrasdirectoryban levo [.vms]vms.c -ben, a 
do_spawn() fuggvenyben van.
Az en verziomban ez a 4751. sor. Kis kornyezetevel idemasolom:

***************
  4749          set_errno(EVMSERR);
  4750      }
  4751      set_vaxc_errno(sts);
  4752      if (ckWARN(WARN_EXEC)) {
  4753        Perl_warner(aTHX_ WARN_EXEC,"Can't spawn \"%*s\": %s",
  4754               hadcmd ? VMScmd.dsc$w_length :  0,
***************

A helyes sor:

 4751      set_vaxc_errno(substs);


Erdemes lenne a patchet (ha kiprobalod, leforditod) visszakuldeni 
a perl fejlesztoknek. (En nem probaltam ki, nem forditottam le.)

> erre a $^E tartalma "%SYSTEM-S-NORMAL, normal successful completion",

A $^E fog ezel visszaterni.
$?	posix statusz, itt hasznalhatatlan
$!	libc statusz (errno) ha a lib$spawn ter vissza hibaval,
	akkor ez beallitodik
$^E	ez meg csak a fenti modosita utan fog ertelmes erteket tartalmazni.


> udv, HZ

Udv,
Maulis Adam