# New Ticket Created by Piotr Fusik
# Please include the string: [perl #36622]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36622
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help of perlbug 1.34 running under perl v5.8.0.
-
Among perl golf players, it is widely known that perl doesn't like
y/// at the very end of a file. So, we put an extra space or newline
just to make perl happy. Fortunately trailing whitespace doesn't
count to the score. :-)
If you forget to add something after y///, the error messages are very
misleading. For example, this program:
#!/usr/bin/perl -0
INIT{$A{$a}=1while$a=pop}1while@A{/[a-z]+/ig}=~/\B/y/B-ZA-Gb-za/B-ZA
b-za/
when syntax-checked by perl -c gives the following error message:
Unrecognized character \x81 at deroter.pl line 2.
(do you see any \x81 here?)
I think this should be finally resolved, because it can even crash perl:
#!/usr/bin/perl -0
INIT{%A=map{pop,[EMAIL PROTECTED]@A{/\pL+/g}=~/\B/y/B-ZA-Gb-za/A-z/
when syntax-checked gives a page fault.
It's the same on perl 5.8.0 and 5.8.6.
This report is for 5.8.0, because I have only an executable of 5.8.6.
-
---
Flags:
category=core
severity=medium
---
Site configuration information for perl v5.8.0:
Configured by ActiveState at Mon Mar 31 00:45:28 2003.
Summary of my perl5 (revision 5 version 8 subversion 0) configuration:
Platform:
osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
usethreads=undef use5005threads=undef useithreads=define
usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cl', ccflags
='-nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -D
HAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLI
O -DPERL_MSVCRT_READFIX',
optimize='-MD -Zi -DNDEBUG -O1',
cppflags='-DWIN32'
ccversion='', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
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 -libpath:C:\j\Perl\lib\CORE
-machine:x86'
libpth=D:\Program Files\Microsoft.NET\FrameworkSDK\Lib\
D:\Program Files\Microsoft.Net\Odbc.Net\ C:\j\Perl\lib\CORE
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 wsock32.lib mpr.lib winmm.lib version.lib
odbc32.lib odbccp32.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 wsock32.lib mpr.lib winmm.lib
version.lib odbc32.lib odbccp32.lib msvcrt.lib
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl58.lib
gnulibc_version='undef'
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ',
lddlflags='-dll -nologo -nodefaultlib -debug -opt:ref,icf -libpath:C:\
j\Perl\lib\CORE -machine:x86'
Locally applied patches:
ACTIVEPERL_LOCAL_PATCHES_ENTRY
---
@INC for perl v5.8.0:
C:/j/Perl/lib
C:/j/Perl/site/lib
.
---
Environment for perl v5.8.0:
HOME (unset)
LANG (unset)
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\U;C:\JAVA\JDK\BIN;C:\C\DJGPP\BIN;C
:\J\PERL\BIN;C:\J\MYSQL\BIN;C:\U\TEXMF\MAIN\MIKTEX\BIN;C:\U\GS\GS8.11\BI
N;C:\C\CYGWIN\BIN;C:\WINDOWS;C:\WINDOWS\COMMAND;C:\U\ANT\BIN
PERL_BADLANG (unset)
SHELL (unset)