remove silly redundant SvGMAGICAL() test for $\

  that was introduced by some guy named Chip in 1997 (e3c19b7bc9)

diff --git a/mg.c b/mg.c
index c60c277..1c01152 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2772,7 +2772,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
        break;
     case '\\':
        SvREFCNT_dec(PL_ors_sv);
-       if (SvOK(sv) || SvGMAGICAL(sv)) {
+       if (SvOK(sv)) {
            PL_ors_sv = newSVsv(sv);
        }
        else {