diff --git a/Lib/perl5/perlopers.swg b/Lib/perl5/perlopers.swg index 106b00ee1..e7d13b678 100644 --- a/Lib/perl5/perlopers.swg +++ b/Lib/perl5/perlopers.swg @@ -19,25 +19,26 @@ %rename(__gt__) *::operator>; %rename(__lt__) *::operator<; %rename(__not__) *::operator!; +%rename(__le__) *::operator<=; +%rename(__ge__) *::operator>=; +%rename(__and__) *::operator&; +%rename(__or__) *::operator|; +%rename(__iadd__) *::operator+=; +%rename(__isub__) *::operator-=; + +// These are renamed, but no test exists in operator_overload_runme.pl +%ignoreoperator(EQ) operator=; // These are renamed, but no 'use overload...' is added %rename(__lshift__) *::operator<<; %rename(__rshift__) *::operator>>; -%rename(__and__) *::operator&; -%rename(__or__) *::operator|; %rename(__xor__) *::operator^; %rename(__invert__) *::operator~; -%rename(__le__) *::operator<=; -%rename(__ge__) *::operator>=; %rename(__call__) *::operator(); /* Ignored operators */ %ignoreoperator(LAND) operator&&; %ignoreoperator(LOR) operator||; -%ignoreoperator(PLUS) operator+(); -%ignoreoperator(PLUS) operator+() const; -%ignoreoperator(PLUSEQ) operator+=; -%ignoreoperator(MINUSEQ) operator-=; %ignoreoperator(MULEQ) operator*=; %ignoreoperator(DIVEQ) operator/=; %ignoreoperator(MODEQ) operator%=; @@ -46,9 +47,6 @@ %ignoreoperator(ANDEQ) operator&=; %ignoreoperator(OREQ) operator|=; %ignoreoperator(XOREQ) operator^=; -%ignoreoperator(EQ) operator=; -%ignoreoperator(PLUSPLUS) operator++; -%ignoreoperator(MINUSMINUS) operator--; %ignoreoperator(ARROWSTAR) operator->*; %ignoreoperator(INDEX) operator[];