This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove unused variable
authorRafael Garcia-Suarez <rgs@consttype.org>
Thu, 29 Oct 2009 09:52:53 +0000 (10:52 +0100)
committerRafael Garcia-Suarez <rgs@consttype.org>
Thu, 29 Oct 2009 09:52:53 +0000 (10:52 +0100)
util.c

diff --git a/util.c b/util.c
index 2576214..f60f3d0 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1361,7 +1361,6 @@ S_vdie(pTHX_ const char* pat, va_list *args)
 {
     dVAR;
     const char *message;
-    const int was_in_eval = PL_in_eval;
     STRLEN msglen;
     I32 utf8 = 0;