t/test.pl fresh_perl_like() bug

The existing code does the wrong thing if a string (rather than a compiled
regexp) is supplied for $expected. Happily perl will do the right thing
if you let it.

Hugo

Message-Id: <200912041444.nB4EiqBj004436@zen.crypt.org>

1 files changed, 1 insertions, 3 deletions

diff --git a/t/test.pl b/t/test.pl
index bb27794334..c0406b0095 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -738,9 +738,7 @@ sub fresh_perl_like {
     my($prog, $expected, $runperl_args, $name) = @_;
     local $Level = 2;
     _fresh_perl($prog,
-		sub { @_ ?
-			  $_[0] =~ (ref $expected ? $expected : /$expected/) :
-		          $expected },
+		sub { @_ ? $_[0] =~ $expected : $expected },
 		$runperl_args, $name);
 }