diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-20 15:22:22 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-20 15:22:22 +0000 |
| commit | 5458a98a294861b5056e599fe9e1cbe7c1f7b678 (patch) | |
| tree | e932c1ea2c55b975f3988796370bff692aab5897 /perl_keyword.pl | |
| parent | 564914cd4f6b4bf8bd455752588c80fe2e116eb0 (diff) | |
| download | perl-5458a98a294861b5056e599fe9e1cbe7c1f7b678.tar.gz | |
prototype() wasn't working to get the prototype of optional core
keywords (like say, err, given.) Fix this by adding a parameter to
Perl_keyword to always get the keyword number, even if the feature
isn't in effect.
p4raw-id: //depot/perl@28874
Diffstat (limited to 'perl_keyword.pl')
| -rw-r--r-- | perl_keyword.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_keyword.pl b/perl_keyword.pl index b2e9e3424c..ab9559cc79 100644 --- a/perl_keyword.pl +++ b/perl_keyword.pl @@ -67,7 +67,7 @@ print <<END; */ I32 -Perl_keyword (pTHX_ const char *name, I32 len) +Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) { dVAR; $switch @@ -90,7 +90,7 @@ END elsif (my $feature = $feature_kw{$k}) { $feature =~ s/([\\"])/\\$1/g; return <<END; -return (FEATURE_IS_ENABLED("$feature") ? ${sign}KEY_$k : 0); +return (all_keywords || FEATURE_IS_ENABLED("$feature") ? ${sign}KEY_$k : 0); END } return <<END; |