diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-04 20:09:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-02-04 20:09:00 +0000 |
| commit | 3dc6ede7f49a7b2b348c8780a45fe232aa5beb97 (patch) | |
| tree | 805383cfbb074c073a07e5f5d69c77307d6be2f5 /pp_sys.c | |
| parent | 04fa8c41938cda1a279f526ef9bbe4512f628f56 (diff) | |
| download | perl-3dc6ede7f49a7b2b348c8780a45fe232aa5beb97.tar.gz | |
Largefilify offsets of tied handles.
p4raw-id: //depot/cfgperl@4996
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1791,7 +1791,11 @@ PP(pp_sysseek) if (gv && (mg = SvTIED_mg((SV*)gv, 'q'))) { PUSHMARK(SP); XPUSHs(SvTIED_obj((SV*)gv, mg)); +#if LSEEKSIZE > IVSIZE + XPUSHs(sv_2mortal(newSVnv((NV) offset))); +#else XPUSHs(sv_2mortal(newSViv((IV) offset))); +#endif XPUSHs(sv_2mortal(newSViv((IV) whence))); PUTBACK; ENTER; |