Remove dead code

[freeradius.git] / src / modules / rlm_perl / rlm_perl.c

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index fbcee22..8c44bca 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -194,7 +194,6 @@ static void rlm_perl_close_handles(void **handles)
 
 static void rlm_perl_destruct(PerlInterpreter *perl)
 {
-       char **orig_environ = NULL;
        dTHXa(perl);
 
        PERL_SET_CONTEXT(perl);
@@ -216,10 +215,6 @@ static void rlm_perl_destruct(PerlInterpreter *perl)
 
        perl_destruct(perl);
        perl_free(perl);
-
-       if (orig_environ) {
-               environ = orig_environ;
-       }
 }
 
 static void rlm_destroy_perl(PerlInterpreter *perl)