This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove doubled hunk from integration
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 28 Oct 1998 23:24:04 +0000 (23:24 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 28 Oct 1998 23:24:04 +0000 (23:24 +0000)
p4raw-id: //depot/perl@2119

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);