Re: Change 31935: Upgrade to Win32-0.32

> Change 31935 by stevehmaldoror on 2007/09/21
07:39:02
>
>         Upgrade to Win32-0.32
>
> Affected files ...
>
> ... //depot/perl/ext/Win32/Win32.pm#8 edit
> ... //depot/perl/ext/Win32/Win32.xs#7 edit
> ... //depot/perl/ext/Win32/t/GetFileVersion.t#3 edit
> ... //depot/perl/ext/Win32/t/Names.t#2 edit

This still doesn't fix the problem!!!

> ./perl -Ilib ext/Win32/t/Names.t
1..16
ok 1 - Win32:omainNam
e()
not ok 2 -   - checking returned domain
#   Failed test '  - checking returned domain'
#   at ext/Win32/t/Names.t line 21.
#                   undef
#     doesn't match '/^[a-zA-Z0-9!#$%^&()_'{}.~-]+$/'
ok 3 - Win32::GetArchName()
ok 4 -   - checking returned architecture name
ok 5 - Win32::GetChipName()
ok 6 -   - checking returned chip name
ok 7 - Win32::GetOSName() in scalar context
ok 8 -   - checking returned OS name
ok 9 - Win32::GetOSName() in list context
ok 10 -   - checking returned OS name
ok 11 -   - checking returned description
ok 12 -   - checking that OS name is the same in both calls
ok 13 - Win32::LoginName()
ok 14 -   - checking returned login name
ok 15 - Win32::NodeName()
ok 16 -   - checking returned node name
# Looks like you failed 1 test of 16.

The following prints out nothing:
    ./perl -Ilib -MWin32 -e 'print Win32:omainNam
e, "n"'

The following
    ./perl -Ilib -e '$^E=2138; print $^E, "n"'
prints out:
    Unknown error 2138

This is under Cygwin on Windows.  What other information do
you need?

It may be because $^E doesn't work under Cygwin.  (I don't
remember.)

On 9/22/07, Jerry D. Hedden <jdheddencpan.org> wrote:
> > Change 31935 by stevehmaldoror on 2007/09/21
07:39:02
> >
> >         Upgrade to Win32-0.32
> >
> > Affected files ...
> >
> > ... //depot/perl/ext/Win32/Win32.pm#8 edit
> > ... //depot/perl/ext/Win32/Win32.xs#7 edit
> > ... //depot/perl/ext/Win32/t/GetFileVersion.t#3
edit
> > ... //depot/perl/ext/Win32/t/Names.t#2 edit
>
> This still doesn't fix the problem!!!
>
> > ./perl -Ilib ext/Win32/t/Names.t
> 1..16
> ok 1 - Win32:omainNam
e()
> not ok 2 -   - checking returned domain
> #   Failed test '  - checking returned domain'
> #   at ext/Win32/t/Names.t line 21.
> #                   undef
> #     doesn't match '/^[a-zA-Z0-9!#$%^&()_'{}.~-]+$/'
> ok 3 - Win32::GetArchName()
> ok 4 -   - checking returned architecture name
> ok 5 - Win32::GetChipName()
> ok 6 -   - checking returned chip name
> ok 7 - Win32::GetOSName() in scalar context
> ok 8 -   - checking returned OS name
> ok 9 - Win32::GetOSName() in list context
> ok 10 -   - checking returned OS name
> ok 11 -   - checking returned description
> ok 12 -   - checking that OS name is the same in both
calls
> ok 13 - Win32::LoginName()
> ok 14 -   - checking returned login name
> ok 15 - Win32::NodeName()
> ok 16 -   - checking returned node name
> # Looks like you failed 1 test of 16.
>
> The following prints out nothing:
>     ./perl -Ilib -MWin32 -e 'print Win32:omainNam
e, "n"'
>
> The following
>     ./perl -Ilib -e '$^E=2138; print $^E,
"n"'
> prints out:
>     Unknown error 2138
>
> This is under Cygwin on Windows.  What other
information do you need?
>