X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.c;h=8d54f77f42411457385835a8ef6447730568b8d2;hb=a17c7222566eaf13f314408f16003962518296ed;hp=e350fefe0651269d8d6df4b6a90f3d49d1648448;hpb=ef0f98172cb24500e16b870581f3678568a4f566;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.c b/perlio.c
index e350fef..8d54f77 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1850,7 +1850,7 @@ PerlIOMmap_map(PerlIO *f)
 	       page_size = sysconf(_SC_PAGESIZE);
 #   else
 	       page_size = sysconf(_SC_PAGE_SIZE);
-#   endif 
+#   endif
 	       if ((long)page_size < 0) {
 		   if (errno) {
 		       SV *error = ERRSV;
@@ -1858,10 +1858,10 @@ PerlIOMmap_map(PerlIO *f)
 		       STRLEN n_a;
 		       (void)SvUPGRADE(error, SVt_PV);
 		       msg = SvPVx(error, n_a);
-		       Perl_croak("panic: sysconf: %s", msg);
+		       Perl_croak(aTHX_ "panic: sysconf: %s", msg);
 		   }
 		   else
-		       Perl_croak("panic: sysconf: pagesize unknown");
+		       Perl_croak(aTHX_ "panic: sysconf: pagesize unknown");
 	       }
 	   }
 #else
@@ -1874,7 +1874,7 @@ PerlIOMmap_map(PerlIO *f)
 #   endif
 #endif
 	if ((IV)page_size <= 0)
-	    Perl_croak("panic: bad pagesize %"IVdf, (IV)page_size);
+	    Perl_croak(aTHX_ "panic: bad pagesize %"IVdf, (IV)page_size);
        }
        if (b->posn < 0)
         {
@@ -2314,7 +2314,7 @@ int
 PerlIO_getpos(PerlIO *f, Fpos_t *pos)
 {
  *pos = PerlIO_tell(f);
- return 0;
+ return *pos == -1 ? -1 : 0;
 }
 #else
 #ifndef PERLIO_IS_STDIO
@@ -2359,7 +2359,8 @@ PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap)
    if (strlen(s) >= (STRLEN)n)
     {
      dTHX;
-     PerlIO_puts(Perl_error_log,"panic: sprintf overflow - memory corrupted!\n");
+     (void)PerlIO_puts(Perl_error_log,
+		       "panic: sprintf overflow - memory corrupted!\n");
      my_exit(1);
     }
   }