diff options
| author | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-28 16:49:33 -0800 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-28 16:49:33 -0800 |
| commit | a5f75d667838e8e7bb037880391f5c44476d33b4 (patch) | |
| tree | 5005e888355c1508bc47da697efe119c1615b123 /util.c | |
| parent | 2920c5d2b358b11ace52104b6944bfa0e89256a7 (diff) | |
| download | perl-a5f75d667838e8e7bb037880391f5c44476d33b4.tar.gz | |
perl 5.002perl-5.002
[editor's note: changes seem to be mostly module updates,
documentation changes and some perl API macro additions]
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 22 |
1 files changed, 10 insertions, 12 deletions
@@ -821,14 +821,13 @@ long a1, a2, a3, a4; } if (in_eval) { restartop = die_where(message); - longjmp(top_env, 3); + Siglongjmp(top_env, 3); } fputs(message,stderr); - (void)fflush(stderr); + (void)Fflush(stderr); if (e_fp) { -#ifdef DOSISH - fclose(e_fp); -#endif + fclose(e_fp); + e_fp = Nullfp; (void)UNLINK(e_tmpname); } statusvalue = SHIFTSTATUS(statusvalue); @@ -865,7 +864,7 @@ long a1, a2, a3, a4; #ifdef LEAKTEST DEBUG_L(xstat()); #endif - (void)fflush(stderr); + (void)Fflush(stderr); } } @@ -981,14 +980,13 @@ croak(pat, va_alist) } if (in_eval) { restartop = die_where(message); - longjmp(top_env, 3); + Siglongjmp(top_env, 3); } fputs(message,stderr); - (void)fflush(stderr); + (void)Fflush(stderr); if (e_fp) { -#ifdef DOSISH - fclose(e_fp); -#endif + fclose(e_fp); + e_fp = Nullfp; (void)UNLINK(e_tmpname); } statusvalue = SHIFTSTATUS(statusvalue); @@ -1037,7 +1035,7 @@ warn(pat,va_alist) #ifdef LEAKTEST DEBUG_L(xstat()); #endif - (void)fflush(stderr); + (void)Fflush(stderr); } } #endif /* !defined(I_STDARG) && !defined(I_VARARGS) */ |