diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-12 19:25:06 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-12 19:25:06 +0000 |
| commit | 14aaf8e8d5ef5f7630e198d7ed4c5b1ce477445f (patch) | |
| tree | bdaf13ccb92eecb965c3630d8bc67428c3f68907 /perlio.c | |
| parent | 71e92346755b662b6a62bf79937c5a996d49b049 (diff) | |
| download | perl-14aaf8e8d5ef5f7630e198d7ed4c5b1ce477445f.tar.gz | |
Add aTHX_ to Perl_croak's (MULTIPLICITY et. al.)
p4raw-id: //depot/perlio@7656
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1850,7 +1850,7 @@ PerlIOMmap_map(PerlIO *f) page_size = sysconf(_SC_PAGESIZE); # else page_size = sysconf(_SC_PAGE_SIZE); -# endif +# endif if ((long)page_size < 0) { if (errno) { SV *error = ERRSV; @@ -1858,10 +1858,10 @@ PerlIOMmap_map(PerlIO *f) STRLEN n_a; (void)SvUPGRADE(error, SVt_PV); msg = SvPVx(error, n_a); - Perl_croak("panic: sysconf: %s", msg); + Perl_croak(aTHX_ "panic: sysconf: %s", msg); } else - Perl_croak("panic: sysconf: pagesize unknown"); + Perl_croak(aTHX_ "panic: sysconf: pagesize unknown"); } } #else @@ -1874,7 +1874,7 @@ PerlIOMmap_map(PerlIO *f) # endif #endif if ((IV)page_size <= 0) - Perl_croak("panic: bad pagesize %"IVdf, (IV)page_size); + Perl_croak(aTHX_ "panic: bad pagesize %"IVdf, (IV)page_size); } if (b->posn < 0) { |