diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
| commit | 22c35a8c2392967a5ba6b5370695be464bd7012c (patch) | |
| tree | 8ecdc4d8fa4a4e49d2b6df0d82103a508cd03053 /doio.c | |
| parent | 854e6445c2d6190b7a3d3208d8ff1250a817e551 (diff) | |
| download | perl-22c35a8c2392967a5ba6b5370695be464bd7012c.tar.gz | |
phase 1 of somewhat major rearrangement of PERL_OBJECT stuff
(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32
p4raw-id: //depot/perl@2133
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -306,7 +306,7 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe if (!fp) { dTHR; if (ckWARN(WARN_NEWLINE) && IoTYPE(io) == '<' && strchr(name, '\n')) - warner(WARN_NEWLINE, warn_nl, "open"); + warner(WARN_NEWLINE, PL_warn_nl, "open"); goto say_false; } if (IoTYPE(io) && @@ -889,7 +889,7 @@ do_print(register SV *sv, PerlIO *fp) { dTHR; if (ckWARN(WARN_UNINITIALIZED)) - warner(WARN_UNINITIALIZED, warn_uninit); + warner(WARN_UNINITIALIZED, PL_warn_uninit); } return TRUE; case SVt_IV: @@ -957,7 +957,7 @@ my_stat(ARGSproto) PL_laststype = OP_STAT; PL_laststatval = PerlLIO_stat(s, &PL_statcache); if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(s, '\n')) - warner(WARN_NEWLINE, warn_nl, "stat"); + warner(WARN_NEWLINE, PL_warn_nl, "stat"); return PL_laststatval; } } @@ -988,7 +988,7 @@ my_lstat(ARGSproto) PL_laststatval = PerlLIO_stat(SvPV(sv, PL_na),&PL_statcache); #endif if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, PL_na), '\n')) - warner(WARN_NEWLINE, warn_nl, "lstat"); + warner(WARN_NEWLINE, PL_warn_nl, "lstat"); return PL_laststatval; } |