This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove doubled hunk from integration
[perl5.git] / pp.c
diff --git a/pp.c b/pp.c
index d243475..63f20b8 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2469,13 +2469,6 @@ PP(pp_quotemeta)
                *d++ = *s++;
            }
        }
-       else {
-           while (len--) {
-               if (!isALNUM(*s))
-                   *d++ = '\\';
-               *d++ = *s++;
-           }
-       }
        *d = '\0';
        SvCUR_set(TARG, d - SvPVX(TARG));
        (void)SvPOK_only(TARG);