[perl #125723] IO::File fails on win32 (Strawberry Perl) 5.16 and lower due to ord?

The failing test was introduced by perl #116322.

commit 62ba9123033beb0f19ee9d28c9d1cc6b3bf57e46
Author: Karl Williamson <pub...@khwilliamson.com>
Date:   Sun Feb 17 14:59:39 2013 -0700

    Tests for [perl #116322]

commit 10e621bc35cb48b15b69b5a57242ff004f7455dc
Author: Christian Hansen <chan...@cpan.org>
Date:   Sun Feb 17 14:50:30 2013 -0700

    PATCH: [perl #116322]: getc() and ungetc() with unicode failure
    
    ungetc() had no knowledge of UTF-8.  This patch adds it.
    
    The committer fleshed out the author's code to make a patch, making
    a few small changes.

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=125723