ossp-pkg/eperl/eperl_perl5.c 1.2 -> 1.3
--- eperl_perl5.c 2000/07/03 08:34:55 1.2
+++ eperl_perl5.c 2000/07/03 09:34:23 1.3
@@ -102,8 +102,13 @@
dTHR;
#endif
ENTER;
+#if AC_perl_vnum >= 500600
+ save_hptr(&PL_curstash);
+ PL_curstash = gv_stashpv(pname, TRUE);
+#else
save_hptr(&curstash);
curstash = gv_stashpv(pname, TRUE);
+#endif
sv_setpv(perl_get_sv(vname, TRUE), vvalue);
LEAVE;
return;
|
|
