perltidy

simbabque · oalders · commit cd401c50d990 · 2025-05-03T19:54:27.000+02:00
diff --git a/t/dump.t b/t/dump.t
@@ -27,7 +27,7 @@ subtest "dump_headers", sub {
 };
 
 subtest "dump_links test", sub {
-    dump_tests( 'dump_links', 't/find_link.html', <<'EXPECTED');
+    dump_tests( 'dump_links', 't/find_link.html', <<'EXPECTED' );
 http://www.drphil.com/
 HTTP://WWW.UPCASE.COM/
 styles.css
@@ -58,7 +58,7 @@ EXPECTED
 };
 
 subtest "dump_images test", sub {
-    dump_tests( 'dump_images', 't/image-parse.html', <<'EXPECTED');
+    dump_tests( 'dump_images', 't/image-parse.html', <<'EXPECTED' );
 /Images/bg-gradient.png
 wango.jpg
 bongo.gif
@@ -75,7 +75,7 @@ EXPECTED
 };
 
 subtest "dump_forms test", sub {
-    dump_tests( 'dump_forms', 't/form_with_fields.html', <<'EXPECTED');
+    dump_tests( 'dump_forms', 't/form_with_fields.html', <<'EXPECTED' );
 POST http://localhost/ (multipart/form-data) [1st_form]
   1a=                            (text)
   1b=                            (text)
@@ -125,7 +125,7 @@ EXPECTED
 };
 
 subtest "dump_forms multiselect", sub {
-    dump_tests( 'dump_forms', 't/form_133_regression.html', <<'EXPECTED');
+    dump_tests( 'dump_forms', 't/form_133_regression.html', <<'EXPECTED' );
 GET http://localhost/
   select1=1                      (option)   [*1|2|3|4]
   select2=1                      (option)   [*1|2|3|4]
@@ -144,7 +144,7 @@ EXPECTED
 };
 
 subtest "dump_text test", sub {
-    dump_tests( 'dump_text', 't/image-parse.html', <<'EXPECTED');
+    dump_tests( 'dump_text', 't/image-parse.html', <<'EXPECTED' );
 Testing image extractionblargle And now, the dreaded wango  CNN   BBC Blongo!Logo
 EXPECTED
 };
diff --git a/t/local/overload.t b/t/local/overload.t
@@ -34,7 +34,7 @@ BEGIN {
     use_ok('WWW::Mechanize');
 }
 
-my $server = LocalServer->spawn( html => <<'BROKEN_HTML');
+my $server = LocalServer->spawn( html => <<'BROKEN_HTML' );
 <html>
 <head><title>Broken document</head>
 <form>

Original file line number	Diff line number	Diff line change
`@@ -34,7 +34,7 @@ BEGIN {`
`34`	`34`	`use_ok('WWW::Mechanize');`
`35`	`35`	`}`
`36`	`36`
`37`		`-my $server = LocalServer->spawn( html => <<'BROKEN_HTML');`
	`37`	`+my $server = LocalServer->spawn( html => <<'BROKEN_HTML' );`
`38`	`38`	`<html>`
`39`	`39`	`<head><title>Broken document</head>`
`40`	`40`	`<form>`