From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 15 Feb 2008 11:08:51 +0000 (+0000)
Subject: Typo catch, by Abigail
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac29ea618786f0a38e2ac499b0736f40f4b2eb78;p=p5sagit%2Fp5-mst-13.2.git

Typo catch, by Abigail

p4raw-id: //depot/perl@33317
---

diff --git a/t/op/pat.t b/t/op/pat.t
index 823c6a8..4d61068 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -3769,7 +3769,7 @@ sub iseq($$;$) {
     my (@k,@v,@fetch,$res);
     my $count = 0;
     my @names = qw($+{A} $+{B} $+{C} $+{D});
-    if ($s = ~/(?<D>(?<A>foo)\s+(?<B>bar)?\s+(?<C>baz))/) {
+    if ($s =~ /(?<D>(?<A>foo)\s+(?<B>bar)?\s+(?<C>baz))/) {
 	while (my ($k,$v) = each(%+)) {
 	    $count++;
 	}
@@ -3785,7 +3785,6 @@ sub iseq($$;$) {
     }
     foreach (0..3) {
 	if ($fetch[$_]) {
-	    local $TODO = $_ == 3;
 	    iseq($fetch[$_][0],$fetch[$_][1],$names[$_]);
 	} else {
 	    ok(0, $names[$_]);