diff options
| author | Steve Grazzini <grazz@pobox.com> | 2002-10-11 22:28:58 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-17 12:56:28 +0000 |
| commit | 24a7a40d02cc0ea4a7e6fc143f53dd60b2d0d047 (patch) | |
| tree | e9cb6a2e7264cbc2c76cb46f4af5afda88d5bb62 /doio.c | |
| parent | 198cd045305a674e626b4b8f83cc38563cb6d79f (diff) | |
| download | perl-24a7a40d02cc0ea4a7e6fc143f53dd60b2d0d047.tar.gz | |
Re: [perl #17830] open FH, "<&", $fd
Message-ID: <20021011222858.452.qmail@onion.perl.org>
p4raw-id: //depot/perl@18023
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -325,6 +325,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, } if (num_svs && (SvIOK(*svp) || (SvPOK(*svp) && looks_like_number(*svp)))) { fd = SvUV(*svp); + num_svs = 0; } else if (isDIGIT(*type)) { /*SUPPRESS 530*/ |