This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
delete duplicate _qq from test
authorZefram <zefram@fysh.org>
Fri, 8 Dec 2017 00:11:59 +0000 (00:11 +0000)
committerZefram <zefram@fysh.org>
Fri, 8 Dec 2017 00:11:59 +0000 (00:11 +0000)
Commit af05e4c0b428a803fcdb60c956b1da7ff8a95926 added a _qq() sub
to t/re/reg_mesg.t that duplicates both the intent and the name of
t/test.pl's _qq(), causing a redefinition warning.  Remove the new _qq(),
because t/test.pl's version is better.

t/re/reg_mesg.t

index 24cd986..2e3ed07 100644 (file)
@@ -65,14 +65,6 @@ sub add_markers {
     return $element;
 }
 
     return $element;
 }
 
-sub _qq {
-    my ($str)= @_;
-    $str =~ s/\\/\\\\/g;
-    $str =~ s/\$/\\\$/g;
-    return qq("$str");
-}
-
-
 ## Because we don't "use utf8" in this file, we need to do some extra legwork
 ## for the utf8 tests: Prepend 'use utf8' to the pattern, and mark the strings
 ## to check against as UTF-8, but for this all to work properly, the character
 ## Because we don't "use utf8" in this file, we need to do some extra legwork
 ## for the utf8 tests: Prepend 'use utf8' to the pattern, and mark the strings
 ## to check against as UTF-8, but for this all to work properly, the character