Index: ossp-pkg/eperl/ChangeLog RCS File: /v/ossp/cvs/ossp-pkg/eperl/ChangeLog,v rcsdiff -q -kk '-r1.12' '-r1.13' -u '/v/ossp/cvs/ossp-pkg/eperl/ChangeLog,v' 2>/dev/null --- ChangeLog 2000/07/03 09:20:02 1.12 +++ ChangeLog 2000/07/03 09:34:23 1.13 @@ -21,6 +21,9 @@ Changes between 2.2.14 and 2.3.0 (12-Jun-1996 to 03-Jul-2000) + *) Ported to Perl 5.6.0 + [Ralf S. Engelschall, 03-Jul-2000] + *) Upgraded to GNU Shtool 1.5.0 [Ralf S. Engelschall, 03-Jul-2000] Index: ossp-pkg/eperl/eperl_perl5.c RCS File: /v/ossp/cvs/ossp-pkg/eperl/eperl_perl5.c,v rcsdiff -q -kk '-r1.2' '-r1.3' -u '/v/ossp/cvs/ossp-pkg/eperl/eperl_perl5.c,v' 2>/dev/null --- 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; Index: ossp-pkg/eperl/eperl_sys.c RCS File: /v/ossp/cvs/ossp-pkg/eperl/eperl_sys.c,v rcsdiff -q -kk '-r1.6' '-r1.7' -u '/v/ossp/cvs/ossp-pkg/eperl/eperl_sys.c,v' 2>/dev/null --- eperl_sys.c 2000/07/03 09:05:26 1.6 +++ eperl_sys.c 2000/07/03 09:34:23 1.7 @@ -268,7 +268,7 @@ if (stringEQ(filename, "-")) { /* file is given on stdin */ ptr_tmpfile = mytmpfile("ePerl.source"); - stcpy(tmpfile, ptr_tmpfile); + strcpy(tmpfile, ptr_tmpfile); if ((fp = fopen(tmpfile, "w")) == NULL) { ePerl_SetError("Cannot open temporary source file %s for writing", tmpfile); CU(NULL);