At 11:12 PM -0400 6/30/00, Dan Sugalski wrote:
>> >
>>> The current thinking is the rightslist is too long on the node having a
>>> problem. There's a bug in the image init code that'll loop forever if
>>> that's the case, and it'll spend a significant amount of time in $GETJPI
>> > while it does it.
>It should appear anywhere that's running perl 5.005_0x. (It's a bug
>in perl, not in VMS) I don't know if this has been fixed for 5.6.0,
>but if not I'll get patches out for both 5.005_03 (there may be one
>in the archive already) and for 5.6.0 if need be,
>
> Dan
The offending code was introduced in a patch to 5.004_03 here:
<http://www.xray.mpe.mpg.de/mailing-lists/vmsperl/1997-09/msg00062.html>
There is a suggested fix, but not an actual patch, at
<http://www.xray.mpe.mpg.de/mailing-lists/vmsperl/1998-11/msg00065.html>
although a patch is hardly needed since it's simply adding "rlen ="
at the beginning of a line. The patch would look something like this
although I have not done any testing to ensure it fixes the problem:
--- vms.c;-1 Tue May 30 17:12:56 2000
+++ vms.c Sun Jul 2 09:55:46 2000
@@ -3852,7 +3852,7 @@
*/
if (jpilist[1].bufadr != rlst) Safefree(jpilist[1].bufadr);
jpilist[1].bufadr = New(1320,mask,rsz,unsigned long int);
- jpilist[1].buflen = rsz * sizeof(unsigned long int);
+ rlen = jpilist[1].buflen = rsz * sizeof(unsigned long int);
_ckvmssts(sys$getjpiw(0,NULL,NULL,&jpilist[1],iosb,NULL,NULL));
_ckvmssts(iosb[0]);
}
