a1a1ce8
--- src/perlconnect/jsperl.c.orig
a1a1ce8
+++ src/perlconnect/jsperl.c
a1a1ce8
@@ -218,7 +218,9 @@
a1a1ce8
 {
a1a1ce8
     PerlInterpreter *perl = JS_GetPrivate(cx, obj);
a1a1ce8
 
a1a1ce8
-    perl_destruct(perl);
a1a1ce8
-    perl_free(perl);
a1a1ce8
+    if (perl) {
a1a1ce8
+	perl_destruct(perl);
a1a1ce8
+	perl_free(perl);
a1a1ce8
+    }
a1a1ce8
     /*    return JS_TRUE; */
a1a1ce8
 }