From configme@us.ibm.com

file name​: xxxx
contents​:

#!/usr/local/bin/perl

$NewDir = '/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 = grep(!/^\.|makefile/, readdir(DIRHANDLE));
@​NewFiles = readdir(DIRHANDLE);

closedir ( DIRHANDLE );

print "\nNF='@​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='. .. 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.

Thanks,
Benny

From [Unknown Contact. See original ticket]

On Tue, Nov 02, 1999 at 08​:52​:37AM -0600, configme wrote​:

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 = '/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 = grep(!/^\.|makefile/, readdir(DIRHANDLE));
@​NewFiles = readdir(DIRHANDLE);

closedir ( DIRHANDLE );

print "\nNF='@​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='. .. 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.

  I've seen this before, but I've never had time to track it down. If
you have the time and inclination to diagnose this more fully, that will
be pretty great.

  Peace,
* Kurt Starsinic (Kurt.Starsinic@​isinet.com) --------- Technical Specialist *
| `The future masters of technology will have to be lighthearted and |
| intelligent. The machine easily masters the grim and the dumb.' |
| -- Marshall McLuhan |
Institute for Scientific Information http​://www.isinet.com/

From [Unknown Contact. See original ticket]

------- 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

From @smpeters

[RT_System - Fri Dec 15 03​:13​:51 2000]​:

------- 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

As this problem occured on only one computer over six years ago, I
cannot replicate the problem on any of several operating systems, I'm
assuming that this problem has been resolved.

@smpeters - Status changed from 'open' to 'resolved'