This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_sys.c: Squelch compiler warning
authorFather Chrysostomos <sprout@cpan.org>
Tue, 26 Jun 2012 03:29:22 +0000 (20:29 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 26 Jun 2012 03:29:22 +0000 (20:29 -0700)
pp_sys.c

index 2340a35..8ef1df7 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1398,7 +1398,7 @@ PP(pp_leavewrite)
      * stack. There's probably a better place to be handling this (probably
      * by avoiding pushing it in the first place!) but I don't quite know
      * where to look. -doy */
-    POPs;
+    (void)POPs;
 
     if (!io || !(ofp = IoOFP(io)))
         goto forget_top;