diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-05 20:02:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-05 20:02:17 +0000 |
| commit | 1c1fc3ea10284b28de560550fae130e9d453e5c1 (patch) | |
| tree | 7da6495780973d7c827b272d80eb332f1d347fc5 /pp.c | |
| parent | 5963b987d451051651e0ba84aeab7c2129af761e (diff) | |
| download | perl-1c1fc3ea10284b28de560550fae130e9d453e5c1.tar.gz | |
prototype changes for eventually supporting C<binmode(F, ":raw")>
and C<open F, "-|", 'cat', '-v'>
p4raw-id: //depot/perl@5554
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -426,7 +426,7 @@ PP(pp_prototype) seen_question = 1; str[n++] = ';'; } - else if (seen_question) + 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) { |