From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 13 Nov 2000 13:57:53 +0000 (+0000)
Subject: Make PerlIO_getpos() to behave like fgetpos() on return.
X-Git-Tag: accepted/trunk/20130322.191538~33644
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a17c7222566eaf13f314408f16003962518296ed;p=platform%2Fupstream%2Fperl.git

Make PerlIO_getpos() to behave like fgetpos() on return.

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

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