diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2002-07-03 07:56:05 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-07-04 10:19:11 +0000 |
| commit | 1feb1812070a7e60b7ba9bdbf416adcf10c7b764 (patch) | |
| tree | d006379ae13fc15e0a46ed233a8bffebb782e61a /doio.c | |
| parent | da23663c86d14cc7395fe6c1d13b0871bc772995 (diff) | |
| download | perl-1feb1812070a7e60b7ba9bdbf416adcf10c7b764.tar.gz | |
Re: autom4te and perl 5.8.0
Message-ID: <Pine.SOL.4.10.10207031150540.6601-100000@maxwell.phys.lafayette.edu>
(with an additional paranoid nit : skip test unless -c $devnull)
p4raw-id: //depot/perl@17398
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -667,7 +667,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, if (*s == 'I' || *s == '#') s++; *s = 'w'; - if (!(IoOFP(io) = PerlIO_openn(aTHX_ type,mode,fd,0,0,NULL,0,svp))) { + if (!(IoOFP(io) = PerlIO_openn(aTHX_ type,s,fd,0,0,NULL,0,svp))) { PerlIO_close(fp); IoIFP(io) = Nullfp; goto say_false; |