diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-09 21:31:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-09 21:31:44 +0000 |
| commit | e934609f7db1163b003ba7314f8d52ebfc1e2f12 (patch) | |
| tree | 74e172d331579be10555103b1caf5cdfd80b687d /doio.c | |
| parent | caf25f3be4a66b8fbb51db2cfdfa658f6b9704e7 (diff) | |
| download | perl-e934609f7db1163b003ba7314f8d52ebfc1e2f12.tar.gz | |
Change PerlIO::Scalar and Via to scalar and via.
p4raw-id: //depot/perl@17454
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -546,8 +546,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, } fd = PerlIO_fileno(fp); - /* If there is no fd (e.g. PerlIO::Scalar) assume it isn't a - * socket - this covers PerlIO::Scalar - otherwise unless we "know" the + /* If there is no fd (e.g. PerlIO::scalar) assume it isn't a + * socket - this covers PerlIO::scalar - otherwise unless we "know" the * type probe for socket-ness. */ if (IoTYPE(io) && IoTYPE(io) != IoTYPE_PIPE && IoTYPE(io) != IoTYPE_STD && fd >= 0) { @@ -596,7 +596,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, } } if (savefd != fd) { - /* Still a small can-of-worms here if (say) PerlIO::Scalar + /* Still a small can-of-worms here if (say) PerlIO::scalar is assigned to (say) STDOUT - for now let dup2() fail and provide the error */ |