[perl #123443] avoid overflowing got into a negative number
don't allow a negative file position on a PerlIO::scalar handle

previosly seek() would produce an error, but would still make the\
file position negative.