From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <e@80x24.org>
X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net
X-Spam-Level: 
X-Spam-ASN:  
X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00
	shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2
Received: from localhost (dcvr.yhbt.net [127.0.0.1])
	by dcvr.yhbt.net (Postfix) with ESMTP id 5FD791FB06
	for <mwrap-perl@80x24.org>; Tue,  5 Oct 2021 12:48:04 +0000 (UTC)
From: Eric Wong <e@80x24.org>
To: mwrap-perl@80x24.org
Subject: [PATCH 3/7] psgi: fix 404 return
Date: Tue,  5 Oct 2021 12:47:59 +0000
Message-Id: <20211005124803.7215-4-e@80x24.org>
In-Reply-To: <20211005124803.7215-1-e@80x24.org>
References: <20211005124803.7215-1-e@80x24.org>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
List-Id: <mwrap-perl.yhbt.net>

---
 lib/Devel/Mwrap/PSGI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Devel/Mwrap/PSGI.pm b/lib/Devel/Mwrap/PSGI.pm
index 90b4354..f47c9b0 100644
--- a/lib/Devel/Mwrap/PSGI.pm
+++ b/lib/Devel/Mwrap/PSGI.pm
@@ -164,7 +164,7 @@ sub call { # PSGI entry point
 		$ret = [ 200, [ qw(Content-Type text/html
 				Content-Length), length($root) ], [ $root ] ]
 	} else {
-		r404();
+		$ret = r404();
 	}
 	Devel::Mwrap::quiet(0);
 	$ret;