Select Code to Download

-bash-3.1$ cat -n prueba.pl
     1  use strict;
...
     3
     4  my $x = 'áéíóúñ€';
     5  $x =~ m/áéíóúñ(€)/;

-bash-3.1$ perl -c prueba.pl
Violación de segmento

-bash-3.1$ uname -a
Linux somename.domain.es 2.6.24.2 #3 SMP Fri Feb 15 10:39:28 WET 2008 
+i686 i686 i386 GNU/Linux

-bash-3.1$ gcc -v
Usando especificaciones internas.
...
Configurado con: ../configure --prefix=/usr --mandir=/usr/share/man --
+infodir=/usr/share/info --enable-shared --enable-threads=posix --enab
+le-checking=release --with-system-zlib --enable-__cxa_atexit --disabl
+e-libunwind-exceptions --enable-libgcj-multifile --enable-languages=c
+,c++,objc,obj-c++,java,fortran,ada --enable-java-awt=gtk --disable-ds
+si --enable-plugin --with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2
+.0/jre --with-cpu=generic --host=i386-redhat-linux
Modelo de hilos: posix
gcc versión 4.1.2 20070626 (Red Hat 4.1.2-13)

-bash-3.1$ env | grep -i lan
LANG=es_ES.UTF-8

lhp@nereida:~/Lperl/src/testing$ perl encoding3.pl
*** glibc detected *** double free or corruption (!prev): 0x08205830 *
+**
Abortado