Archive::Tar::File strips out the high bits in a file's mode (breaking setuid/setgid.) Fix that.