Bug#914651: perl: -i option broken

[Igor Liferenko]

Package: perl
Version: 5.28.0-3
Severity: important

Dear Maintainer,

The following command yields "a":

    ( echo a ; echo b ; echo c ) | perl -pe 'last if /b/'

The following command yields "abc" (one character on a line):

    ( echo a ; echo b ; echo c ) >/tmp/x; perl -i -pe 'last if /b/' /tmp/x; cat /tmp/x


-- System Information:
Debian Release: buster/sid
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: amd64 (x86_64)

Kernel: Linux 4.17.0-1-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8), LANGUAGE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /usr/bin/dash
Init: systemd (via /run/systemd/system)

Versions of packages perl depends on:
ii  dpkg               1.19.0.5+b1
ii  libperl5.28        5.28.0-3
ii  perl-base          5.28.0-3
ii  perl-modules-5.28  5.28.0-3

Versions of packages perl recommends:
ii  netbase  5.4

Versions of packages perl suggests:
pn  libb-debug-perl                                         <none>
pn  liblocale-codes-perl                                    <none>
pn  libterm-readline-gnu-perl | libterm-readline-perl-perl  <none>
ii  make                                                    4.2.1-1.1
ii  perl-doc                                                5.28.0-3

-- no debconf information