Fix double FETCH with pack "w"
Fix FETCH count for sprintf "...", $tied

Commit 540a63d62 was the first culprit.  354b74ae6f made things worse.