From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 11 Jul 2002 21:40:05 +0000 (+0000)
Subject: Can't get #17492 to work with -Uuseperlio otherwise (either
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9735fbe46261ffc768a05c081097581832f36c9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");