Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

readdir() Problems on AIX 4.2.1 #801

Closed
p5pRT opened this issue Nov 2, 1999 · 5 comments
Closed

readdir() Problems on AIX 4.2.1 #801

p5pRT opened this issue Nov 2, 1999 · 5 comments

Comments

@p5pRT
Copy link

@p5pRT p5pRT commented Nov 2, 1999

Migrated from rt.perl.org#1728 (status was 'resolved')

Searchable as RT1728$

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Nov 2, 1999

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

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Nov 2, 1999

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/

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Dec 15, 2000

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

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Feb 23, 2006

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.

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Feb 23, 2006

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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
1 participant