This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_ctl.c: Remove junk from #endif
authorFather Chrysostomos <sprout@cpan.org>
Sat, 13 Sep 2014 04:46:05 +0000 (21:46 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 13 Sep 2014 04:46:05 +0000 (21:46 -0700)
What was I thinking?

pp_ctl.c

index 429143f..108643e 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1616,7 +1616,7 @@ Perl_die_unwind(pTHX_ SV *msv)
            SV **newsp;
 #ifdef DEBUGGING
            COP *oldcop;
-#endif DEBUGGING
+#endif
            JMPENV *restartjmpenv;
            OP *restartop;
 
@@ -1635,7 +1635,7 @@ Perl_die_unwind(pTHX_ SV *msv)
            namesv = cx->blk_eval.old_namesv;
 #ifdef DEBUGGING
            oldcop = cx->blk_oldcop;
-#endif DEBUGGING
+#endif
            restartjmpenv = cx->blk_eval.cur_top_env;
            restartop = cx->blk_eval.retop;