This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ignore warning about unused result since it is desperation time.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 1 Sep 2014 21:22:03 +0000 (17:22 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 1 Sep 2014 21:22:03 +0000 (17:22 -0400)
dist/threads/threads.xs

index 450efe1..5b44a38 100644 (file)
@@ -718,7 +718,7 @@ S_ithread_create(
           int fd = PerlIO_fileno(Perl_error_log);
           if (fd >= 0) {
             /* If there's no error_log, we cannot scream about it missing. */
-            PerlLIO_write(fd, PL_no_mem, strlen(PL_no_mem));
+            PERL_UNUSED_RESULT(PerlLIO_write(fd, PL_no_mem, strlen(PL_no_mem)));
           }
         }
         my_exit(1);