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