[perl #133127] [PATCH] fix SEGV inXS::APItest::Backrefs::Comctl32Version()

# New Ticket Created by  bulk88 
# Please include the string:  [perl #133127]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=133127 >


This is a bug report for perl from bulk88@hotmail.com,
generated with the help of perlbug 1.41 running under perl 5.27.9.


-----------------------------------------------------------------
[Please describe your issue here]

See attached patch. This is intended for 5.28. Follow on to 
https://rt.perl.org/Ticket/Display.html?id=133084 fixes the 
segv/0xc0000005 described in that ticket with mingw 3.4.5

[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
                  category=core
                  severity=low
---
Site configuration information for perl 5.27.9:

Configured by Administrator at Tue Jan 30 20:34:30 2018.

Summary of my perl5 (revision 5 version 27 subversion 9) configuration:

                Platform:
                  osname=MSWin32
                  osvers=5.2.3790
                  archname=MSWin32-x86-multi-thread
                  uname=''
                  config_args='undef'
                  hint=recommended
                  useposix=true
                  d_sigaction=undef
                  useithreads=define
                  usemultiplicity=define
                  use64bitint=undef
                  use64bitall=undef
                  uselongdouble=undef
                  usemymalloc=n
                  default_inc_excludes_dot=define
                  bincompat5005=undef
                Compiler:
                  cc='cl'
                  ccflags ='-nologo -GF -W3 -O1 -MD -Zi -DNDEBUG -GL -DWIN32
-D_CONSOLE -DNO_STRICT -D_CRT_SECURE_NO_DEPRECATE
-D_CRT_NONSTDC_NO_DEPRECATE  -DPERL_TEXTMODE_SCRIPTS
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DWIN32_NO_REGISTRY'
                  optimize='-O1 -MD -Zi -DNDEBUG -GL'
                  cppflags='-DWIN32'
                  ccversion='15.00.30729.01'
                  gccversion=''
                  gccosandvers=''
                  intsize=4
                  longsize=4
                  ptrsize=4
                  doublesize=8
                  byteorder=1234
                  doublekind=3
                  d_longlong=undef
                  longlongsize=8
                  d_longdbl=define
                  longdblsize=8
                  longdblkind=0
                  ivtype='long'
                  ivsize=4
                  nvtype='double'
                  nvsize=8
                  Off_t='__int64'
                  lseeksize=8
                  alignbytes=8
                  prototype=define
                Linker and Libraries:
                  ld='link'
                  ldflags ='-nologo -nodefaultlib -debug -opt:ref,icf -ltcg
-libpath:"c:\perl\lib\CORE"        -machine:x86'
                  libpth="C:\Program Files (x86)\Microsoft Visual Studio
9.0\VC\lib"
                  libs=oldnames.lib kernel32.lib user32.lib gdi32.lib
winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib
netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib
odbc32.lib odbccp32.lib comctl32.lib msvcrt.lib
                  perllibs=oldnames.lib kernel32.lib user32.lib gdi32.lib
winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib
netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib
odbc32.lib odbccp32.lib comctl32.lib msvcrt.lib
                  libc=msvcrt.lib
                  so=dll
                  useshrplib=true
                  libperl=perl527.lib
                  gnulibc_version=''
                Dynamic Linking:
                  dlsrc=dl_win32.xs
                  dlext=dll
                  d_dlsymun=undef
                  ccdlflags=' '
                  cccdlflags=' '
                  lddlflags='-dll -nologo -nodefaultlib -debug -opt:ref,icf
-ltcg
                  -libpath:"c:\perl\lib\CORE"        -machine:x86'


---
@INC for perl 5.27.9:
                  lib
                  C:/p527/srcnew/lib

---
Environment for perl 5.27.9:
                  CYGWIN=tty
                  HOME (unset)
                  LANG (unset)
                  LANGUAGE (unset)
                  LD_LIBRARY_PATH=/usr/lib/x86:/usr/X11R6/lib
                  LOGDIR (unset)
                  PATH=C:\WINDOWS\system32;C:\Program Files (x86)\Microsoft
Visual
Studio 9.0\VC\BIN;C:\Program Files\Microsoft
SDKs\Windows\v6.0A\bin;C:\Perl\bin;C:\WINDOWS;C:\Program Files
(x86)\Microsoft Visual Studio 9.0\Common7\IDE;C:\Program Files
(x86)\Git\bin;C:\sp3220\c\bin;
                  PERL_BADLANG (unset)
                  SHELL (unset)

• [perl #133127] [PATCH] fix SEGV inXS::APItest::Backrefs::Comctl32Version() by bulk88