diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-06-25 22:10:36 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2010-06-25 22:10:36 +1000 |
| commit | 1db4d19556a36b5a8e8604c1e7656999ebc7732b (patch) | |
| tree | 17c7bac46aea9938c486e71a821a6aae0fe2777d /toke.c | |
| parent | 8af710ebc7fee929ae47793d5a0cce5362af52db (diff) | |
| download | perl-1db4d19556a36b5a8e8604c1e7656999ebc7732b.tar.gz | |
RT 75902: Add prototypes for tie() and untie() to allow overloading
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -8501,7 +8501,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) if (name[1] == 'i' && name[2] == 'e') { /* tie */ - return KEY_tie; + return -KEY_tie; } goto unknown; @@ -8945,7 +8945,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) case 'e': if (name[3] == 'd') { /* tied */ - return KEY_tied; + return -KEY_tied; } goto unknown; @@ -9440,7 +9440,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) { case 'e': { /* untie */ - return KEY_untie; + return -KEY_untie; } case 'l': |