Package: perl
Version: 5.28.1-4
Severity: wishlist
Please make perl return a reasonable exit status like sed in this case:
$ sed 's/a/b/' /tmp/z; echo $?
sed: can't read /tmp/z: No such file or directory
2
$ perl -pwe 's/a/b/' /tmp/z; echo $?
Can't open /tmp/z: No such file or directory.
0
$ perl -pwe 'BEGIN{use warnings FATAL => q(all);} s/a/b/' /tmp/z; echo $?
Can't open /tmp/z: No such file or directory.
0
$ perl -pwe 'BEGIN{use warnings FATAL => q(all); $$SIG{__WARN__} = sub { die @_
};} s/a/b/' /tmp/z; echo $?
Can't open /tmp/z: No such file or directory.
0
FORGET IT.
$ test -f /tmp/z && perl ...
