Re: t/op/stat.t failed on EBCDIC platform

Steve Peters <stevefisharerojo.org> wrote 2007-08-25
22:07:13:

> On Fri, Aug 24, 2007 at 03:23:31PM +0800, Chun Bing Ge
wrote:
> > Hi,
> > 
> > Here are the error log of t/op/stat.t failed on
EBCDIC platform:
> > 
> > # Failed at t/op/stat.t line 485
> > # Failed at t/op/stat.t line 486
> > # Failed at t/op/stat.t line 487
> > # Failed at t/op/stat.t line 515
> > # Failed at t/op/stat.t line 516
> > # Failed at t/op/stat.t line 517
> > not ok 88 - stat() on dirhandle works
> > not ok 89 - chained -x's on dirhandle
> > not ok 90 - -d on a dirhandle works
> > not ok 100 - stat() on *DIR works
> > not ok 101 - The special file handle _ is set
correctly
> > not ok 102 - chained -x's on *DIR
> > 
> > You can find that 6 errors are 1 error actually.
> > All of these errors are relative to
"stat(HANDLE)" which "HANDLE"
> > comes from open(".").
> > Perl can successfully open the special
directory("."), but it 
> > cannot deal with "stat" successfully on
EBCDIC platform.
> > 
> > Could you help me or give some clues about this
problem?
> > 
> 
> Right at the moment, I don't have a good answer, but
here's somethings
> you can do to help me come up with an answer.
> 
> 1.  From the directory where you built Perl, please
run:
> 
>     ./perl -Ilib -wlE'say $Config; say
$Config'
> 
>    and send the results in a reply to this email.
> 
> 2.  Send us what your DIR struct looks like on z/OS. 
It usually lives 
in
>     /usr/include/dirent.h.
> 
> Thanks,

Run ./perl -Ilib -wlE'say $Config; say
$Config', 
got:
Use of uninitialized value $Config{"d_dirfd"} in
say at -e line 1.

Use of uninitialized value $Config{"d_dir_dd_fd"}
in say at -e line 1.

In /usr/include/dirent.h, I found the defined DIR:
      #ifdef _ALL_SOURCE
         typedef struct _dirdesc {
               #ifdef _LP64
               char            dd__opaque1[40];
               #else
               char            dd__opaque1[24];
               #endif
               int             dd_fd;
         } DIR;
      #else
         typedef int DIR ;
      #endif
.

I'd like to hear from you again, thanks.

Best Regards!
Ge, Chun Bing
山居秋暝 (唐 王维)
空山新雨后,天气晚来秋;
明月松间照,清泉石上流;
竹喧归浣女,莲动下渔舟;
随意春芳歇,王孙自可留.
z/OS Development, IBM China Development Lab