In test.pl, change like() and unlike() to avoid copying the tested scalar.

This means that side effects of matching regexps on it are maintained,
specifically the value of pos, making test.pl more useful for tests in t/re.

This is a subtle divergence from the behaviour of Test::More::{like,unlike}

1 files changed, 4 insertions, 4 deletions

diff --git a/t/test.pl b/t/test.pl
index 40873770ca..26605ca8ff 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -325,12 +325,12 @@ sub like   ($$@) { like_yn (0,@_) }; # 0 for -
 sub unlike ($$@) { like_yn (1,@_) }; # 1 for un-
 
 sub like_yn ($$$@) {
-    my ($flip, $got, $expected, $name, @mess) = @_;
+    my ($flip, undef, $expected, $name, @mess) = @_;
     my $pass;
-    $pass = $got =~ /$expected/ if !$flip;
-    $pass = $got !~ /$expected/ if $flip;
+    $pass = $_[1] =~ /$expected/ if !$flip;
+    $pass = $_[1] !~ /$expected/ if $flip;
     unless ($pass) {
-	unshift(@mess, "#      got '$got'\n",
+	unshift(@mess, "#      got '$_[1]'\n",
 		$flip
 		? "# expected !~ /$expected/\n" : "# expected /$expected/\n");
     }