From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 12 Nov 2000 21:14:11 +0000 (+0000)
Subject: [ID 20001112.008] perlio.c's PerlIO_getpos ingores error return
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12a63d119c7e6cac4caa17e05e943423ee309496;p=p5sagit%2Fp5-mst-13.2.git

[ID 20001112.008] perlio.c's PerlIO_getpos ingores error return
Message-Id: <E13v4S3-0000iY-00@Bagpuss.unfortu.net>

Note: only one breakage of the two reported is fixed by this patch.

p4raw-id: //depot/perl@7666
---

diff --git a/perlio.c b/perlio.c
index a0e6bc0..fa69c44 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2314,7 +2314,7 @@ int
 PerlIO_getpos(PerlIO *f, Fpos_t *pos)
 {
  *pos = PerlIO_tell(f);
- return 0;
+ return *pos != -1;
 }
 #else
 #ifndef PERLIO_IS_STDIO