|
Check-in Number:
|
81 | |
| Date: |
2000-Jul-02 11:34:23 (local)
2000-Jul-02 09:34:23 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
*** empty log message *** |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/eperl/ChangeLog 1.12 -> 1.13
--- 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]
|
|
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;
|
|
ossp-pkg/eperl/eperl_sys.c 1.6 -> 1.7
--- 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);
|
|
