diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-18 22:19:25 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-24 23:38:27 -0700 |
commit | c2f605db621edfb16309200bbba8ced984d34476 (patch) | |
tree | cff01a54d0de63402bdd6d7644d45e67f76d9992 /keywords.c | |
parent | 1e4b6aa1907f271ce023ffe6f03439e2ce7f65dc (diff) | |
download | perl-c2f605db621edfb16309200bbba8ced984d34476.tar.gz |
Simplify the CORE::__FOO__ op-generation code
It just happens that the (caller)[...] offsets for file and line are
the same as the keyword numbers. KEY___PACKAGE__ is 3 and (caller)[0]
returns the package, so keyword_number % 3 can be used for the offset
instead of an unwieldy switch block.
Diffstat (limited to 'keywords.c')
-rw-r--r-- | keywords.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/keywords.c b/keywords.c index d442b325e8..b9ef465967 100644 --- a/keywords.c +++ b/keywords.c @@ -3399,5 +3399,5 @@ unknown: } /* Generated from: - * 34be1269b3c67c86c758c60794ddba6eadc528e0435f954d514c14a2f1c73a2e regen/keywords.pl + * 6563b55da87af894b79ef9d777217633eee6c7b5f352ff4c17317f562247f5fc regen/keywords.pl * ex: set ro: */ |