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.

Sign up for GitHub

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

Jump to bottom

perl -s does not respect read-onlyness, can cause segfaults #13317

Open
p5pRT opened this issue Sep 28, 2013 · 8 comments
Open

perl -s does not respect read-onlyness, can cause segfaults #13317

p5pRT opened this issue Sep 28, 2013 · 8 comments

Comments

@p5pRT
Copy link

p5pRT commented Sep 28, 2013

Migrated from rt.perl.org#120039 (status was 'open')

Searchable as RT120039$
@p5pRT
Copy link
Author

p5pRT commented Sep 28, 2013

From @Hugmeir

Created by @Hugmeir

$ perl -E 'say $] = 10'
Modification of a read-only value attempted at -e line 1.
$ perl -s -E 'say $]' -- '-]=10'
10

Also, there's a 5.10 regression here​:
$ perl -s -le 'print ${"​::"}' -- -​::=10
Assertion failed​: (sv), function Perl_sv_setpv, file sv.c, line 4589.
Abort trap​: 6

Rather than fixing those, how about we deprecate -s?

Perl Info 

Flags:
    category=core
    severity=low

Site configuration information for perl 5.18.1:

Configured by hugmeir at Thu Sep 12 14:58:14 ART 2013.

Summary of my perl5 (revision 5 version 18 subversion 1) configuration:

  Platform:
    osname=darwin, osvers=12.4.0, archname=darwin-thread-multi-2level
    uname='darwin airtiger 12.4.0 darwin kernel version 12.4.0: wed may 1
17:57:12 pdt 2013; root:xnu-2050.24.15~1release_x86_64 x86_64 '
    config_args='-de
-Dprefix=/Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1 -Dusethreads
-DDEBUGGING
-Aeval:scriptdir=/Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/bin'
    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 ='-fno-common -DPERL_DARWIN -DDEBUGGING
-fno-strict-aliasing -pipe -fstack-protector',
    optimize='-O3 -g',
    cppflags='-fno-common -DPERL_DARWIN -DDEBUGGING -fno-strict-aliasing
-pipe -fstack-protector'
    ccversion='', gccversion='4.2.1 Compatible Apple LLVM 4.2
(clang-425.0.28)', 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='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -fstack-protector'
    libpth=/usr/lib
    libs=-ldbm -ldl -lm -lutil -lc
    perllibs=-ldl -lm -lutil -lc
    libc=, so=dylib, useshrplib=false, libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup
-fstack-protector'

Locally applied patches:



@INC for perl 5.18.1:
    /Users/hugmeir/.perlbrew/libs/perl-5.16.2@all
/lib/perl5/darwin-thread-multi-2level
    /Users/hugmeir/.perlbrew/libs/perl-5.16.2@all/lib/perl5

/Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/lib/site_perl/5.18.1/darwin-thread-multi-2level
    /Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/lib/site_perl/5.18.1

/Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/lib/5.18.1/darwin-thread-multi-2level
    /Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/lib/5.18.1
    .


Environment for perl 5.18.1:
    DYLD_LIBRARY_PATH=/usr/local/mysql/lib:
    HOME=/Users/hugmeir
    LANG=en_US.UTF-8
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)

PATH=/Users/hugmeir/perl5/perlbrew/bin:/Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/bin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/git/bin:/usr/local/mysql/bin
    PERL5LIB=/Users/hugmeir/.perlbrew/libs/perl-5.16.2@all/lib/perl5
    PERLBREW_BASHRC_VERSION=0.58
    PERLBREW_HOME=/Users/hugmeir/.perlbrew
    PERLBREW_LIB=all
    PERLBREW_MANPATH=/Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/man

PERLBREW_PATH=/Users/hugmeir/perl5/perlbrew/bin:/Users/hugmeir/perl5/perlbrew/perls/perl-5.18.1/bin
    PERLBREW_PERL=perl-5.18.1
    PERLBREW_ROOT=/Users/hugmeir/perl5/perlbrew
    PERLBREW_VERSION=0.58
    PERL_BADLANG (unset)
    PERL_LOCAL_LIB_ROOT=/Users/hugmeir/.perlbrew/libs/perl-5.16.2@all
    PERL_MB_OPT=--install_base /Users/hugmeir/.perlbrew/libs/perl-5.16.2@all
    PERL_MM_OPT=INSTALL_BASE=/Users/hugmeir/.perlbrew/libs/perl-5.16.2@all
    SHELL=/bin/bash

@p5pRT
Copy link
Author

p5pRT commented Sep 28, 2013

From @cpansprout

On Sat Sep 28 08​:59​:40 2013, Hugmeir wrote​:

Rather than fixing those, how about we deprecate -s?

I use -s a lot.

--

Father Chrysostomos

@p5pRT
Copy link
Author

p5pRT commented Sep 28, 2013

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

@p5pRT
Copy link
Author

p5pRT commented Sep 29, 2013

From @rjbs

* Brian Fraser <perlbug-followup@​perl.org> [2013-09-28T11​:59​:40]

Rather than fixing those, how about we deprecate -s?

Not happening.

--
rjbs

@p5pRT
Copy link
Author

p5pRT commented Sep 29, 2013

From @Hugmeir

On Sat, Sep 28, 2013 at 11​:35 PM, Ricardo Signes
<perl.p5p@​rjbs.manxome.org>wrote​:

* Brian Fraser <perlbug-followup@​perl.org> [2013-09-28T11​:59​:40]

Rather than fixing those, how about we deprecate -s?

Not happening.

Boo.

Oh well. I'll look into getting the segfault fixed; I'm ambivalent to the
read-only thing being a bug.

@p5pRT
Copy link
Author

p5pRT commented Sep 29, 2013

From @rjbs

* Brian Fraser <fraserbn@​gmail.com> [2013-09-28T23​:05​:18]

On Sat, Sep 28, 2013 at 11​:35 PM, Ricardo Signes
<perl.p5p@​rjbs.manxome.org>wrote​:

* Brian Fraser <perlbug-followup@​perl.org> [2013-09-28T11​:59​:40]

Rather than fixing those, how about we deprecate -s?

Not happening.

Boo.

There exist programs written in 1994 and running continuously since then
without relying on bizarre undocumented behaviors, or even on weird esoterica
that *is* documented. Part of the goal is to avoid breaking those unless we
get a big win out of it.

I think the number of such programs we'd break by deprecating/removing -s would
be pretty huge.

--
rjbs

@p5pRT
Copy link
Author

p5pRT commented Sep 29, 2013

From @Tux

On Sat, 28 Sep 2013 10​:08​:16 -0700, "Father Chrysostomos via RT"
<perlbug-followup@​perl.org> wrote​:

On Sat Sep 28 08​:59​:40 2013, Hugmeir wrote​:

Rather than fixing those, how about we deprecate -s?

I use -s a lot.

I tend to replace -s procedures with documented Getopt​::Long, but I
agree to NOT deprecate -s

--
H.Merijn Brand http​://tux.nl Perl Monger http​://amsterdam.pm.org/
using perl5.00307 .. 5.19 porting perl5 on HP-UX, AIX, and openSUSE
http​://mirrors.develooper.com/hpux/ http​://www.test-smoke.org/
http​://qa.perl.org http​://www.goldmark.org/jeff/stupid-disclaimers/

@p5pRT
Copy link
Author

p5pRT commented Sep 29, 2013

From @Leont

On Sat, Sep 28, 2013 at 5​:59 PM, Brian Fraser <perlbug-followup@​perl.org>wrote​:

Rather than fixing those, how about we deprecate -s?

I don't think that's a good idea either, but it may be reasonable to limit
it to \w or some such.

Leon

@xenu xenu removed the Severity Low label Dec 29, 2021
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
None yet
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
2 participants
@xenu @p5pRT