------- Forwarded Message Date: Fri, 15 Dec 2000 08:58:04 -0800 From: Jim Minton <minton1@llnl.gov> Subject: Re: Perlbug ID 19991102.001 >Last year, you reported: > >We are seening a problem with perl-5.005.02 on AIX 4.2.1. We run the > following > perl script to list the contents of a directory. > > file name: xxxx > contents: > >#!/usr/local/bin/perl > > > > > > > > $NewDir =3D '/home/minton/NameServer/4v1/Tools/NSDE/new'; > > print "\nPathName: $NewDir\n"; > > undef @NewFiles; > > if ( ! opendir(DIRHANDLE, "$NewDir") ) > > { > > die " >> Can't open directory '$NewDir'.\n"; > > } > > > ># @NewFiles =3D grep(!/^\.|makefile/, readdir(DIRHANDLE)); > > @NewFiles =3D readdir(DIRHANDLE); > > > > closedir ( DIRHANDLE ); > > > > > > print "\nNF=3D'@NewFiles'\n"; > > > We get the following results: > > >$ls -l /home/minton/NameServer/4v21/Tools/NSDE/new > >total 70 > >drwxrws--- 2 minton hpss 1024 Nov 01 17:48 ./ > >drwxrws--- 3 minton hpss 1024 Nov 01 17:48 ../ > >-rw-rw---- 1 minton hpss 234447 Oct 29 13:15 nsde.c > >-rw-rw---- 1 minton hpss 38366 Oct 29 13:15 nsdestuff.h > > > >$xxxx > > > >PathName: /home/minton/NameServer/4v21/Tools/NSDE/new > >NF=3D'. .. nsde.c nsdest' > > It appears that part of the array that contains the directory contents > is > truncated ("nsdest" instead of "nsdestuff.h"). Is this a known problem? > Is there a patch level that fixes this problem. > >Do you still see this problem, has it been fixed in a newer version of >perl, or did you find the cause? Should this bug remain open? Yes, I still see this problem, but only on one machine! There is a machine in Houston that has this problem 'big time'. Here is some very recent evidence of the problem-- /home/minton/NameServer/4v1/Tools/NSDE/new[4]ls -l total 2 drwxrws--- 2 minton hpss 1024 Dec 15 10:18 ./ drwxrws--- 3 minton hpss 1024 Jun 09 2000 ../ - -rw-rw---- 1 minton hpss 0 Dec 15 10:44 abcdefghij - -rw-rw---- 1 minton hpss 0 Dec 15 10:44 jihgfedcba - -rw-rw---- 1 minton hpss 0 Dec 15 10:44 poiuytrewq - -rw-rw---- 1 minton hpss 0 Dec 15 10:44 qwertyuiop /home/minton/NameServer/4v1/Tools/NSDE/new[5]xxxx PathName: /home/minton/NameServer/4v1/Tools/NSDE/new NF=3D'. .. abcdefghij@=B1jihgfedcba T=A541qwertyuiopz=B5poiuytrewq |=FD=C36 jihg= qwertyuiopz=B5poiuytrewq |=FD=C36abcdefghij@=B1jihgfedcba T=A541qwertyuiopz=B5poiuytrewq |=FD=C3= 6 poiuytrewq' ------- End of Forwarded Message