Re: [perl #41546] perl 5.8.x bug: overloaded 'eq' does not work with 'nomethod'

[perl5.git] / gv.c

diff --git a/gv.c b/gv.c
index 3e428a7..e03521e 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1871,6 +1871,19 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
     } else {
     not_found:                 /* No method found, either report or croak */
       switch (method) {
+        case lt_amg:
+        case le_amg:
+        case gt_amg:
+        case ge_amg:
+        case eq_amg:
+        case ne_amg:
+        case slt_amg:
+        case sle_amg:
+        case sgt_amg:
+        case sge_amg:
+        case seq_amg:
+        case sne_amg:
+          postpr = 0; break;
         case to_sv_amg:
         case to_av_amg:
         case to_hv_amg: