diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-20 20:04:01 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-20 20:04:01 +0000 |
| commit | 2dc2558e5965ed21842375d8cc89de68e0c966e2 (patch) | |
| tree | be9b2b2eef6a362979086203829aeb8078accd53 /win32 | |
| parent | a33cf58c90e96ed3c4b1c1fdbaf666d924440940 (diff) | |
| download | perl-2dc2558e5965ed21842375d8cc89de68e0c966e2.tar.gz | |
PerlIO Layer implementation future proofing.
- Inspired by Nick C's suggestion add size of function table to the table
as a validation check.
- also optimize pseudo-layer code to avoid malloc/link of something
destined to be immediately popped & freed.
- Minor addition to pod/perliol.pod
p4raw-id: //depot/perlio@17330
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32io.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win32/win32io.c b/win32/win32io.c index 7997658f4e..f0f71e7860 100644 --- a/win32/win32io.c +++ b/win32/win32io.c @@ -52,9 +52,9 @@ PerlIOWin32_fileno(pTHX_ PerlIO *f) } IV -PerlIOWin32_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg) +PerlIOWin32_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab) { - IV code = PerlIOBase_pushed(aTHX_ f,mode,arg); + IV code = PerlIOBase_pushed(aTHX_ f,mode,arg,tab); if (*PerlIONext(f)) { PerlIOWin32 *s = PerlIOSelf(f,PerlIOWin32); @@ -341,6 +341,7 @@ PerlIOWin32_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *params, int flags) } PerlIO_funcs PerlIO_win32 = { + sizeof(PerlIO_funcs), "win32", sizeof(PerlIOWin32), PERLIO_K_RAW, |