t/op/stat.t failed on EBCDIC platform

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?

Thanks.


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

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,

Steve Peters
stevefisharerojo.org