perl -pie doesn't preserve tagging or contents' codepage

[covener]

I found that the common perl -p -i -e has a confusing side effect of changing the files codepage. If the file will be read back in an env w/o conversion, it could cause an issue.

The Rocket port of perl, at least the old one on my system, doesn't change it.

#!/bin/sh

which perl

export _BPXK_AUTOCVT=ON
export _CEE_RUNOPTS="FILETAG(AUTOCVT,AUTOTAG) POSIX(ON)"

rm -f ebcdic-file
touch ebcdic-file
chtag -tc ibm1047 ebcdic-file
printf 12345 >> ebcdic-file
ls -T ebcdic-file
/bin/od -t x1 ebcdic-file

perl -p -i -e 's/12345/1111/' ebcdic-file
ls -T ebcdic-file
/bin/od -t x1 ebcdic-file

$ ./test.sh
/u/WASTST1/zopen/prod/perl/bin/perl
t IBM-1047    T=on  ebcdic-file
0000000000    F1  F2  F3  F4  F5
0000000005
t ISO8859-1   T=on  ebcdic-file
0000000000    31  31  31  31
0000000004

(sed port has the same problem)

[covener]

zopencommunity/sedport#7

[covener]

@IgorTodorovskiIBM any chance the recent work on gzip helps/applies to perl and sed with -i?
(bump)

[IgorTodorovskiIBM]

Nope, but thanks for bumping this, we'll look into it.