diff options
| -rw-r--r-- | perlio.c | 15 |
1 files changed, 12 insertions, 3 deletions
@@ -143,7 +143,8 @@ PerlIO_canset_cnt(PerlIO *f) void PerlIO_set_cnt(PerlIO *f, int cnt) { - if (cnt < -1 && ckWARN_s(WARN_INTERNAL)) + dTHX; + if (cnt < -1 && ckWARN_d(WARN_INTERNAL)) Perl_warner(aTHX_ WARN_INTERNAL, "Setting cnt to %d\n",cnt); #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE) FILE_cnt(f) = cnt; @@ -157,21 +158,24 @@ void PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt) { #ifdef FILE_bufsiz + dTHX; STDCHAR *e = FILE_base(f) + FILE_bufsiz(f); int ec = e - ptr; - if (ptr > e + 1 && ckWARN_s(WARN_INTERNAL)) + if (ptr > e + 1 && ckWARN_d(WARN_INTERNAL)) Perl_warner(aTHX_ WARN_INTERNAL, "Setting ptr %p > end+1 %p\n", ptr, e + 1); - if (cnt != ec && ckWARN_s(WARN_INTERNAL)) + if (cnt != ec && ckWARN_d(WARN_INTERNAL)) Perl_warner(aTHX_ WARN_INTERNAL, "Setting cnt to %d, ptr implies %d\n",cnt,ec); #endif #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) FILE_ptr(f) = ptr; #else + dTHX; Perl_croak(aTHX_ "Cannot set 'ptr' of FILE * on this system"); #endif #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE) FILE_cnt(f) = cnt; #else + dTHX; Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system"); #endif } @@ -183,6 +187,7 @@ PerlIO_get_cnt(PerlIO *f) #ifdef FILE_cnt return FILE_cnt(f); #else + dTHX; Perl_croak(aTHX_ "Cannot get 'cnt' of FILE * on this system"); return -1; #endif @@ -195,6 +200,7 @@ PerlIO_get_bufsiz(PerlIO *f) #ifdef FILE_bufsiz return FILE_bufsiz(f); #else + dTHX; Perl_croak(aTHX_ "Cannot get 'bufsiz' of FILE * on this system"); return -1; #endif @@ -207,6 +213,7 @@ PerlIO_get_ptr(PerlIO *f) #ifdef FILE_ptr return FILE_ptr(f); #else + dTHX; Perl_croak(aTHX_ "Cannot get 'ptr' of FILE * on this system"); return NULL; #endif @@ -219,6 +226,7 @@ PerlIO_get_base(PerlIO *f) #ifdef FILE_base return FILE_base(f); #else + dTHX; Perl_croak(aTHX_ "Cannot get 'base' of FILE * on this system"); return NULL; #endif @@ -284,6 +292,7 @@ PerlIO_getname(PerlIO *f, char *buf) #ifdef VMS return fgetname(f,buf); #else + dTHX; Perl_croak(aTHX_ "Don't know how to get file name"); return NULL; #endif |