diff options
| author | Peter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com> | 2005-11-09 20:31:39 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-10 13:03:20 +0000 |
| commit | 355d3743e65e97364accabb20981fd9938de341c (patch) | |
| tree | fa6bda9702feb1665c1588ec879fcd4bd7576105 /perlio.c | |
| parent | 11d31e4099a1aea2e58ca555440d3f7cb803eef3 (diff) | |
| download | perl-355d3743e65e97364accabb20981fd9938de341c.tar.gz | |
[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
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |