[ 21505]
Subject: Re: [perl #24225] [5.8.1] segfault in binmode STDOUT, ':stdio'; print 1
Message-ID: <871xt9te7g.fsf@vran.herceg.de>
p4raw-link: @21505 on //depot/perl:
a0625d383a69c2c6fd20da94ef6df644cb75b45b
p4raw-id: //depot/maint-5.8/perl@21507
p4raw-integrated: from //depot/perl@21504 'copy in' perlio.c (@21360..)
PerlIOStdio_mode(const char *mode, char *tmode)
{
char *ret = tmode;
- while (*mode) {
- *tmode++ = *mode++;
+ if (mode) {
+ while (*mode) {
+ *tmode++ = *mode++;
+ }
}
#if defined(PERLIO_USING_CRLF) || defined(__CYGWIN__)
*tmode++ = 'b';