Can't get #17492 to work with -Uuseperlio otherwise (either

coredumps or warnings about failing to close _GEN_0 ensue)

p4raw-id: //depot/perl@17495

diff --git a/ext/XS/Typemap/Typemap.t b/ext/XS/Typemap/Typemap.t
index 1699c99..accb6c4 100644 (file)
--- a/ext/XS/Typemap/Typemap.t
+++ b/ext/XS/Typemap/Typemap.t
@@ -313,8 +313,8 @@ if (defined $fh) {
   # print to it using normal perl
   ok(print $fh "$lines[1]");
 
-  # close it using XS
-  ok( T_STDIO_close( $fh ) );
+  # close it using XS if using perlio, using Perl otherwise
+  ok( $Config{useperlio} ? T_STDIO_close( $fh ) : close( $fh ) );
 
   # open from perl, and check contents
   open($fh, "< $testfile");