This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove variables that were used in experiments.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 11 Jan 2001 22:43:28 +0000 (22:43 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 11 Jan 2001 22:43:28 +0000 (22:43 +0000)
p4raw-id: //depot/perlio@8408

mg.c

diff --git a/mg.c b/mg.c
index a7566e3..51ca9d6 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2161,8 +2161,6 @@ Perl_sighandler(int sig)
     U32 flags = 0;
     I32 o_save_i = PL_savestack_ix;
     XPV *tXpv = PL_Xpv;
     U32 flags = 0;
     I32 o_save_i = PL_savestack_ix;
     XPV *tXpv = PL_Xpv;
-    sigjmp_buf jmp;
-    Sighandler_t handler;
 
 #if defined(WIN32) && defined(PERL_IMPLICIT_CONTEXT)
     PERL_SET_THX(aTHXo);       /* fake TLS, see above */
 
 #if defined(WIN32) && defined(PERL_IMPLICIT_CONTEXT)
     PERL_SET_THX(aTHXo);       /* fake TLS, see above */