Integrate from perlio:
Jarkko Hietaniemi [Mon, 13 Jan 2003 02:42:47 +0000 (02:42 +0000)]
[ 18471]
Fix #18711 and add test for it (and indeed tell on write
handles at all !

(#18711 Serious bug of tell() in perl)
p4raw-link: @18471 on //depot/perlio: 0678cb22c235366e6443f8ba36afc299093d457c

p4raw-id: //depot/perl@18475


Trivial merge