[perl #121112] only warn about \n in failed file op if newline is trailing

# New Ticket Created by  Ricardo SIGNES 
# Please include the string:  [perl #121112]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=121112 >


This is a bug report for perl from rjbs@cpan.org,
generated with the help of perlbug 1.39 running under perl 5.18.2.


-----------------------------------------------------------------
[Please describe your issue here]

After reading #121085, Peter Rabbitson noted that the "Unsuccessful %s on
filename containing newline" is triggered even if the newline is within the
middle of a string.  If the problem we're guarding against is failure to chomp,
we could only issue this warning at the end.

If we think it's important to also protect against (say) bad input record
separator or failure to split(), then we can update the docs, but I think that
the failure to chomp is the bigger deal, and we could reduce false positives.

[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=low
---
Site configuration information for perl 5.18.2:

Configured by rjbs at Sun Dec 22 09:22:03 EST 2013.

Summary of my perl5 (revision 5 version 18 subversion 2) configuration:
   
  Platform:
    osname=darwin, osvers=13.0.0, archname=darwin-2level
    uname='darwin walrus.local 13.0.0 darwin kernel version 13.0.0: thu sep 19 22:22:27 pdt 2013; root:xnu-2422.1.72~6release_x86_64 x86_64 '
    config_args='-Dprefix=/Users/rjbs/.plenv/versions/18.2 -de -Dusedevel -A'eval:scriptdir=/Users/rjbs/.plenv/versions/18.2/bin''
    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=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -I/opt/local/include',
    optimize='-O3',
    cppflags='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -I/opt/local/include'
    ccversion='', gccversion='4.2.1 Compatible Apple LLVM 5.0 (clang-500.2.79)', 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 -L/usr/local/lib -L/opt/local/lib'
    libpth=/usr/local/lib /opt/local/lib /usr/lib
    libs=-lgdbm -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 -L/usr/local/lib -L/opt/local/lib -fstack-protector'

Locally applied patches:
    RC4

---
@INC for perl 5.18.2:
    /Users/rjbs/.plenv/versions/18.2/lib/perl5/site_perl/5.18.2/darwin-2level
    /Users/rjbs/.plenv/versions/18.2/lib/perl5/site_perl/5.18.2
    /Users/rjbs/.plenv/versions/18.2/lib/perl5/5.18.2/darwin-2level
    /Users/rjbs/.plenv/versions/18.2/lib/perl5/5.18.2
    .

---
Environment for perl 5.18.2:
    DYLD_LIBRARY_PATH (unset)
    HOME=/Users/rjbs
    LANG=en_US.UTF-8
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/Users/rjbs/.plenv/versions/18.2/bin:/Users/rjbs/.plenv/libexec:/Users/rjbs/.plenv/plugins/perl-build/bin:/Users/rjbs/bin:/Users/rjbs/.rbenv/shims:/Users/rjbs/.rbenv/bin:/Users/rjbs/.plenv/shims:/Users/rjbs/.plenv/bin:/opt/local/bin:/opt/local/sbin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/opt/X11/bin:/Users/rjbs/bin:/Users/rjbs/.../bin:/Users/rjbs/code/hla
    PERLDOC=-n/opt/local/bin/groff
    PERL_AUTOINSTALL=--skipdeps
    PERL_BADLANG (unset)
    PERL_MAILERS=sendmail:/Users/rjbs/bin/sendmail
    SHELL=/opt/local/bin/zsh

• [perl #121112] only warn about \n in failed file op if newline is trailing by Ricardo SIGNES
• Re: [perl #121112] only warn about \n in failed file op if newline is trailing by demerphq
• Re: [perl #121112] only warn about \n in failed file op if newlineis trailing by Paul Johnson
• Re: [perl #121112] only warn about \n in failed file op if newlineis trailing by Smylers
• Re: [perl #121112] only warn about \n in failed file op if newlineis trailing by Zefram
• Re: [perl #121112] only warn about \n in failed file op if newline is trailing by demerphq
• Re: [perl #121112] only warn about \n in failed file op if newlineis trailing by Zefram