# HG changeset patch
# User Richard Laager <rlaager@wiktel.com>
# Date 1180506844 0
# Node ID 67846148694986509525f8012824181d5dcf7663
# Parent  a236c67e39b65a029bcd1771eda0e9c394927934
A change from o_sukhodolsky:

Fix this warning:
perl-common.c: In function 'execute_perl':
perl-common.c:208: warning: value computed is not used

References #1344

diff -r a236c67e39b6 -r 678461486949 libpurple/plugins/perl/perl-common.c
--- a/libpurple/plugins/perl/perl-common.c	Wed May 30 06:25:46 2007 +0000
+++ b/libpurple/plugins/perl/perl-common.c	Wed May 30 06:34:04 2007 +0000
@@ -205,7 +205,7 @@
 		purple_debug(PURPLE_DEBUG_ERROR, "perl",
 				   "Perl function %s exited abnormally: %s\n",
 				   function, SvPV(ERRSV, na));
-		POPs;
+		(void)POPs;
 	} else if (count != 1) {
 		/*
 		 * This should NEVER happen.  G_SCALAR ensures that we WILL