From 4e607cfe9c4b53100fb1c733475c3310147a6e61 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Wed, 13 Mar 2024 10:51:08 +0000 Subject: [PATCH] Bug 36190: (QA follow-up) Tidy --- xt/find-missing-op-in-forms.t | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/xt/find-missing-op-in-forms.t b/xt/find-missing-op-in-forms.t index 8bb5d08b0c2..e072344858b 100755 --- a/xt/find-missing-op-in-forms.t +++ b/xt/find-missing-op-in-forms.t @@ -39,8 +39,10 @@ for my $file ( @files ) { push @errors, sprintf "%s:%s", $file, join (",", @e) if @e; } -is( @errors, 0, "The
in the following files are missing it's corresponding op parameter, or op does not start with 'cud-' (see bug 34478)" ) - or diag( Dumper @errors ); +is( + @errors, 0, + "The in the following files are missing it's corresponding op parameter, or op does not start with 'cud-' (see bug 34478)" +) or diag( Dumper @errors ); sub catch_missing_op { my ($file) = @_; @@ -59,7 +61,7 @@ sub catch_missing_op { if ( $in_form && $line =~ m{name="op"} ) { $has_op = 1; if ( $line =~ m{value="(.*)"} ) { - $op_value = $1 + $op_value = $1; } } if ( $in_form && $line =~ m{