This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Placate a warning from Borland's compiler.
authorNicholas Clark <nick@ccl4.org>
Sat, 7 Nov 2009 11:11:27 +0000 (11:11 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 7 Nov 2009 15:37:33 +0000 (15:37 +0000)
toke.c

diff --git a/toke.c b/toke.c
index deb3b11..c18adea 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -12822,7 +12822,7 @@ S_utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen)
     SV *const utf16_buffer = MUTABLE_SV(IoTOP_GV(filter));
     SV *const utf8_buffer = filter;
     IV status = IoPAGE(filter);
-    const bool reverse = IoLINES(filter);
+    const bool reverse = (bool) IoLINES(filter);
     I32 retval;
 
     /* As we're automatically added, at the lowest level, and hence only called