From: Peter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com>
Date: Thu, 10 Nov 2005 04:31:39 +0000 (-0800)
Subject: [perl #37648] segfault with PERLIO_DEBUG
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=355d3743e65e97364accabb20981fd9938de341c;p=p5sagit%2Fp5-mst-13.2.git

[perl #37648] segfault with PERLIO_DEBUG
From: Peter Dintelmann (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-37648-124187.17.2251402270294@perl.org>

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

diff --git a/perlio.c b/perlio.c
index c7543d2..051c67f 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1546,8 +1546,8 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
 		Perl_croak(aTHX_ "More than one argument to open(,':%s')",tab->name);
 	    }
 	    PerlIO_debug("openn(%s,'%s','%s',%d,%x,%o,%p,%d,%p)\n",
-			 tab->name, layers, mode, fd, imode, perm,
-			 (void*)f, narg, (void*)args);
+			 tab->name, layers ? layers : "(Null)", mode, fd,
+			 imode, perm, (void*)f, narg, (void*)args);
 	    if (tab->Open)
 		 f = (*tab->Open) (aTHX_ tab, layera, n, mode, fd, imode, perm,
 				   f, narg, args);