This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typo catch, by Abigail
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 15 Feb 2008 11:08:51 +0000 (11:08 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 15 Feb 2008 11:08:51 +0000 (11:08 +0000)
p4raw-id: //depot/perl@33317

t/op/pat.t

index 823c6a8..4d61068 100755 (executable)
@@ -3769,7 +3769,7 @@ sub iseq($$;$) {
     my (@k,@v,@fetch,$res);
     my $count = 0;
     my @names = qw($+{A} $+{B} $+{C} $+{D});
     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++;
        }
        while (my ($k,$v) = each(%+)) {
            $count++;
        }
@@ -3785,7 +3785,6 @@ sub iseq($$;$) {
     }
     foreach (0..3) {
        if ($fetch[$_]) {
     }
     foreach (0..3) {
        if ($fetch[$_]) {
-           local $TODO = $_ == 3;
            iseq($fetch[$_][0],$fetch[$_][1],$names[$_]);
        } else {
            ok(0, $names[$_]);
            iseq($fetch[$_][0],$fetch[$_][1],$names[$_]);
        } else {
            ok(0, $names[$_]);