perltidy

Author: oalders

lib/WWW/Mechanize.pm

@@ -1644,9 +1644,10 @@ sub form_action {
     my ( $self, $action ) = @_;
 
     my $temp;
-    my @matches
-        = grep { defined( $temp = $_->action ) and ( $temp =~ m/$action/msx ) }
-        $self->forms;
+    my @matches = grep {
+        defined( $temp = $_->action )
+            and ( $temp =~ m/$action/msx )
+    } $self->forms;
 
     my $nmatches = @matches;
     if ( $nmatches > 0 ) {