From 6d5bdea2135ddf1eef4c99800e255f81caab4aac Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Fri, 21 Jan 2011 13:08:05 -0600
Subject: PerlIO_push returns NULL, not -1, on failure.

Follow-up to 81fe74fb3f93457df8e864c91546ac6b860657fc.
---
 perlio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perlio.c')

diff --git a/perlio.c b/perlio.c
index 3ce31d182a..a7a166722f 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1323,7 +1323,7 @@ PerlIOBase_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers,
     PerlIO_funcs * const tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_layer(aTHX_ 0));
     if (tab && tab->Open) {
 	PerlIO* ret = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm, old, narg, args);
-	if (ret && PerlIO_push(aTHX_ ret, self, mode, PerlIOArg) == -1) {
+	if (ret && PerlIO_push(aTHX_ ret, self, mode, PerlIOArg) == NULL) {
 	    PerlIO_close(ret);
 	    return NULL;
 	}
-- 
cgit v1.2.1