diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2001-04-11 14:24:35 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-11 16:53:15 +0000 |
| commit | 6e97e4200e8e581173200042c4e5ee08a8fcdd39 (patch) | |
| tree | ea0db1bbd5ea65ab5874d1aee7bcee966eebcc3f /pp.c | |
| parent | dfc9d31c88a30f4d006b3adf7d368be02c27521d (diff) | |
| download | perl-6e97e4200e8e581173200042c4e5ee08a8fcdd39.tar.gz | |
prototype("CORE::recv")
Message-ID: <20010411132435.A26169@netthink.co.uk>
p4raw-id: //depot/perl@9685
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -448,10 +448,12 @@ PP(pp_prototype) else if (n && str[0] == ';' && seen_question) goto set; /* XXXX system, exec */ if ((oa & (OA_OPTIONAL - 1)) >= OA_AVREF - && (oa & (OA_OPTIONAL - 1)) <= OA_HVREF) { + && (oa & (OA_OPTIONAL - 1)) <= OA_SCALARREF + /* But globs are already references (kinda) */ + && (oa & (OA_OPTIONAL - 1)) != OA_FILEREF + ) { str[n++] = '\\'; } - /* What to do with R ((un)tie, tied, (sys)read, recv)? */ str[n++] = ("?$@@%&*$")[oa & (OA_OPTIONAL - 1)]; oa = oa >> 4; } |