[ID 20001112.008] perlio.c's PerlIO_getpos ingores error return

[p5sagit/p5-mst-13.2.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index a0e6bc0..fa69c44 100644 (file)
--- 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