From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 4 Aug 1999 09:36:13 +0000 (+0000)
Subject: Minor fixes to linux -Dusethreads -Duseperlio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=409faa39349110c38f5c96031ce0bdc4bdb50bfa;p=p5sagit%2Fp5-mst-13.2.git

Minor fixes to linux -Dusethreads -Duseperlio.

p4raw-id: //depot/cfgperl@3918
---

diff --git a/perlio.c b/perlio.c
index a2e979a..565498e 100644
--- a/perlio.c
+++ b/perlio.c
@@ -157,8 +157,8 @@ PerlIO_set_cnt(PerlIO *f, int cnt)
 void
 PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt)
 {
-#ifdef FILE_bufsiz
  dTHX;
+#ifdef FILE_bufsiz
  STDCHAR *e = FILE_base(f) + FILE_bufsiz(f);
  int ec = e - ptr;
  if (ptr > e + 1 && ckWARN_d(WARN_INTERNAL))
@@ -167,16 +167,14 @@ PerlIO_set_ptrcnt(PerlIO *f, STDCHAR *ptr, int cnt)
   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;
+  FILE_ptr(f) = ptr;
 #else
- dTHX;
- Perl_croak(aTHX_ "Cannot set 'ptr' of FILE * on this system");
+  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;
+  FILE_cnt(f) = cnt;
 #else
- dTHX;
- Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system");
+  Perl_croak(aTHX_ "Cannot set 'cnt' of FILE * on this system");
 #endif
 }