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

-i warning not generated by #! #13385

Open
p5pRT opened this issue Oct 29, 2013 · 1 comment
Open

-i warning not generated by #! #13385

p5pRT opened this issue Oct 29, 2013 · 1 comment

Comments

@p5pRT
Copy link

p5pRT commented Oct 29, 2013

Migrated from rt.perl.org#120410 (status was 'new')

Searchable as RT120410$

@p5pRT
Copy link
Author

p5pRT commented Oct 29, 2013

From zefram@fysh.org

Created by zefram@fysh.org

$ cat t0
#!/opt/perl/bin/perl -i
print defined($^I) ? "OK\n" : "FAIL\n";
$ /opt/perl/bin/perl -i ./t0
-i used with no filenames on the command line, reading from STDIN.
OK
$ ./t0
-i used with no filenames on the command line, reading from STDIN.
OK
$ /opt/perl/bin/perl ./t0
OK

If the -i option doesn't appear on the actual perl command line, it can
be picked up just fine from the #! line by perl's magic processing of it.
But the warning that comes from using -i without filenames only shows
up if the -i was on the real command line, either by explicit invocation
or by kernel #! processing. I think getting -i from perl #! processing
should equally trigger the warning.

Perl Info

Flags:
    category=core
    severity=low

Site configuration information for perl 5.18.1:

Configured by root at Fri Aug 23 15:48:54 UTC 2013.

Summary of my perl5 (revision 5 version 18 subversion 1) configuration:
   
  Platform:
    osname=linux, osvers=3.2.0-0.bpo.3-amd64, archname=x86_64-linux-ld
    uname='linux ukmcwzefram.photobox.priv 3.2.0-0.bpo.3-amd64 #1 smp thu aug 23 07:41:30 utc 2012 x86_64 gnulinux '
    config_args='-des -Duseshrplib -Duse64bitint -Duselongdouble -Uusethreads -Uusemultiplicity -Dprefix=/opt/perl-5.18.1 -Dsiteprefix=/opt/perl-5.18.1 -Dvendorprefix=/opt/perl-5.18.1/vendor -Doptimize=-ggdb -O2 -Dcccdlflags=-fPIC -O2 -pipe'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=define
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-ggdb -O2',
    cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.7.2', 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='long double', nvsize=16, Off_t='off_t', lseeksize=8
    alignbytes=16, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib /usr/lib
    libs=-lnsl -ldl -lm -lcrypt -lutil -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version='2.13'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/opt/perl-5.18.1/lib/5.18.1/x86_64-linux-ld/CORE'
    cccdlflags='-fPIC -O2 -pipe', lddlflags='-shared -ggdb -O2 -L/usr/local/lib -fstack-protector'

Locally applied patches:
    


@INC for perl 5.18.1:
    /opt/perl-5.18.1/lib/site_perl/5.18.1/x86_64-linux-ld
    /opt/perl-5.18.1/lib/site_perl/5.18.1
    /opt/perl-5.18.1/vendor/lib/vendor_perl/5.18.1/x86_64-linux-ld
    /opt/perl-5.18.1/vendor/lib/vendor_perl/5.18.1
    /opt/perl-5.18.1/lib/5.18.1/x86_64-linux-ld
    /opt/perl-5.18.1/lib/5.18.1
    .


Environment for perl 5.18.1:
    HOME=/home/zefram
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/zefram/pub/x86_64-unknown-linux-gnu/bin:/home/zefram/pub/common/bin:/usr/bin:/bin:/usr/local/bin:/usr/games:/opt/geoip/bin:/opt/httpd/bin:/opt/perl/bin
    PERL_BADLANG (unset)
    SHELL=/usr/bin/zsh

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

No branches or pull requests

1 participant