-Wall cleanup continues.

p4raw-id: //depot/perl@10392

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 9920a0f857..b9a9111d33 100644
--- a/perl.c
+++ b/perl.c
@@ -1868,7 +1868,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
 {
     dSP;
     UNOP myop;		/* fake syntax tree node */
-    I32 oldmark = SP - PL_stack_base;
+    volatile I32 oldmark = SP - PL_stack_base;
     volatile I32 retval = 0;
     I32 oldscope;
     int ret;