Simplify pat.t by removing a loop over 2 items, which is mostly if/else

1 files changed, 15 insertions, 11 deletions

diff --git a/t/re/pat.t b/t/re/pat.t
index f8df68c96f..5e78ce74b6 100644
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -442,18 +442,22 @@ sub run_tests {
         eval { /(?$code)/ };
         ok $@ && $@ =~ /not allowed at runtime/ && $blah == 12;
 
-        for $code ('{$blah = 45}','=xx') {
-            $blah = 12;
-            my $res = eval { "xx" =~ /(?$code)/o };
-            no warnings 'uninitialized';
+	$blah = 12;
+	my $res = eval { "xx" =~ /(?$code)/o };
+	{
+	    no warnings 'uninitialized';
+	    local $Error = "'$@', '$res', '$blah'";
+	    ok $@ && $@ =~ /not allowed at runtime/ && $blah == 12;
+	}
+
+        $code = '=xx';
+	$blah = 12;
+	$res = eval { "xx" =~ /(?$code)/o };
+	{
+	    no warnings 'uninitialized';
             local $Error = "'$@', '$res', '$blah'";
-            if ($code eq '=xx') {
-                ok !$@ && $res;
-            }
-            else {
-                ok $@ && $@ =~ /not allowed at runtime/ && $blah == 12;
-            }
-        }
+	    ok !$@ && $res;
+	}
 
         $code = '{$blah = 45}';
         $blah = 12;