[perl #116118] successful s///e clobbers $! on MSWin32

Front page | perl.perl5.porters | Postings from December 2012

[perl #116118] successful s///e clobbers $! on MSWin32

Thread Previous | Thread Next

From:

Christian Millour

Date:

December 17, 2012 19:34

Subject:

[perl #116118] successful s///e clobbers $! on MSWin32

Message ID:

rt-3.6.HEAD-17500-1355767976-76.116118-75-0@perl.org

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




This is a bug report for perl from cm.perl@abtela.com,
generated with the help of perlbug 1.39 running under perl 5.17.7.


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

successful substitutions with s///e clobber $! on MSWin32.
See attached patch for a sample test case.

One impact of this bug is that, because such a substitution occurs in
Carp::format_args, specifically
    $arg =~ s/([[:cntrl:]]|[[:^ascii:]])/sprintf("\\x{%x}",ord($1))/eg;
carp and family in turn sometimes clobber $! on MSWin32, which may
make debugging much harder than necessary.


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

Configured by cm at Mon Dec 17 13:03:51 2012.

Summary of my perl5 (revision 5 version 17 subversion 7) configuration:
   Derived from:
   Platform:
     osname=MSWin32, osvers=4.0, archname=MSWin32-x64-multi-thread
     uname=''
     config_args='undef'
     hint=recommended, useposix=true, d_sigaction=undef
     useithreads=define, usemultiplicity=define
     useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
     use64bitint=define, use64bitall=undef, uselongdouble=undef
     usemymalloc=n, bincompat5005=undef
   Compiler:
     cc='gcc', ccflags =' -s -O2 -DWIN32 -DWIN64 -DCONSERVATIVE 
-DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS 
-fno-strict-aliasing -mms-bitfields',
     optimize='-s -O2',
     cppflags='-DWIN32'
     ccversion='', gccversion='4.6.3', gccosandvers=''
     intsize=4, longsize=4, ptrsize=8, doublesize=8, byteorder=12345678
     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
     ivtype='long long', ivsize=8, nvtype='double', nvsize=8, 
Off_t='long long', lseeksize=8
     alignbytes=8, prototype=define
   Linker and Libraries:
     ld='g++', ldflags ='-s -L"d:\perl\lib\CORE" -L"C:\MinGW\lib"'
     libpth=C:\MinGW\lib
     libs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 
-ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr 
-lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
     perllibs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool 
-lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid 
-lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
     libc=, so=dll, useshrplib=true, libperl=libperl517.a
     gnulibc_version=''
   Dynamic Linking:
     dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
     cccdlflags=' ', lddlflags='-mdll -s -L"d:\perl\lib\CORE" 
-L"C:\MinGW\lib"'

Locally applied patches:


---
@INC for perl 5.17.7:
     D:/perl/site/lib
     D:/perl/lib
     .

---
Environment for perl 5.17.7:
     CYGWIN=nodosfilewarning
     HOME=e:/cm
     LANG (unset)
     LANGUAGE (unset)
     LD_LIBRARY_PATH (unset)
     LOGDIR (unset)
 
PATH=D:\perl\site\bin;D:\perl\bin;D:\c\bin;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program 
Files (x86)\PuTTY;C:\Program Files (x86)\OpenOffice.org 
3\program;C:\Program Files (x86)\QT Lite\QTSystem;c:\Program 
Files\WinRAR;C:\Program Files (x86)\Calibre2\
     PERL_BADLANG (unset)
     SHELL (unset)

Thread Previous | Thread Next