Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

sigtrap attempts to modify read-only thingy #10108

Closed
p5pRT opened this issue Jan 25, 2010 · 5 comments
Closed

sigtrap attempts to modify read-only thingy #10108

p5pRT opened this issue Jan 25, 2010 · 5 comments

Comments

@p5pRT
Copy link

p5pRT commented Jan 25, 2010

Migrated from rt.perl.org#72340 (status was 'resolved')

Searchable as RT72340$

@p5pRT
Copy link
Author

p5pRT commented Jan 25, 2010

From joshua@paloalto.com

Created by joshua@paloalto.com

No much to say. sigtrap otherwise attempts to modify a
read-only thingy. Patch below solves it for me.

Inline Patch
--- sigtrap.pm.orig	2010-01-15 15:21:38.787138863 -0800
+++ sigtrap.pm	2010-01-15 15:24:34.907137904 -0800
@@ -95,7 +95,8 @@
     # Now go for broke.
     for ($i = 1; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) {
         @a = ();
-	for (@args) {
+	for my $fr (@args) {
+            my $_ = $fr;
 	    s/([\'\\])/\\$1/g;
 	    s/([^\0]*)/'$1'/
 	      unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;
Perl Info

Flags:
    category=library
    severity=medium

Site configuration information for perl 5.10.0:

Configured by Debian Project at Thu Oct  1 22:36:47 UTC 2009.

Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.6.24-23-server, archname=x86_64-linux-gnu-thread-multi
    uname='linux crested 2.6.24-23-server #1 smp wed apr 1 22:14:30 utc 2009 x86_64 gnulinux '
    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=x86_64-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.0 -Dsitearch=/usr/local/lib/perl/5.10.0 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.0 -Dd_dosuid -des'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2 -g',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
    ccversion='', gccversion='4.4.1', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64
    libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
    perllibs=-ldl -lm -lpthread -lc -lcrypt
    libc=/lib/libc-2.10.1.so, so=so, useshrplib=true, libperl=libperl.so.5.10.0
    gnulibc_version='2.10.1'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.10.0:
    /etc/perl
    /usr/local/lib/perl/5.10.0
    /usr/local/share/perl/5.10.0
    /usr/lib/perl5
    /usr/share/perl5
    /usr/lib/perl/5.10
    /usr/share/perl/5.10
    /usr/local/lib/site_perl
    .


Environment for perl 5.10.0:
    HOME=/home/joshua
    LANG=en_US.UTF-8
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/joshua/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games
    PERL_BADLANG (unset)
    SHELL=/bin/bash

@p5pRT
Copy link
Author

p5pRT commented Sep 24, 2010

From @cpansprout

On Sun Jan 24 17​:39​:33 2010, joshua@​paloalto.com wrote​:

No much to say. sigtrap otherwise attempts to modify a
read-only thingy. Patch below solves it for me.

--- sigtrap.pm.orig 2010-01-15 15​:21​:38.787138863 -0800
+++ sigtrap.pm 2010-01-15 15​:24​:34.907137904 -0800

Thank you for the patch. I’ve applied it as
972fc2e and some tests as
7728d0a.

Which e-mail address would you prefer to have listed in the AUTHORS file?

@p5pRT
Copy link
Author

p5pRT commented Sep 24, 2010

The RT System itself - Status changed from 'new' to 'open'

@p5pRT
Copy link
Author

p5pRT commented Sep 24, 2010

@cpansprout - Status changed from 'open' to 'resolved'

@p5pRT p5pRT closed this as completed Sep 24, 2010
@p5pRT
Copy link
Author

p5pRT commented Sep 25, 2010

From joshua@paloalto.com

On Fri, Sep 24, 2010 at 12​:36​:59AM -0700, Father Chrysostomos via RT wrote​:

On Sun Jan 24 17​:39​:33 2010, joshua@​paloalto.com wrote​:

No much to say. sigtrap otherwise attempts to modify a
read-only thingy. Patch below solves it for me.

--- sigtrap.pm.orig 2010-01-15 15​:21​:38.787138863 -0800
+++ sigtrap.pm 2010-01-15 15​:24​:34.907137904 -0800

Thank you for the patch. I’ve applied it as
972fc2e and some tests as
7728d0a.

Which e-mail address would you prefer to have listed in the AUTHORS file?

joshua@​paloalto.com is fine

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

1 participant