bin/: Add trailing semicolor to Perl heredocs

5 files changed, 12 insertions, 10 deletions

diff --git a/bin/nato b/bin/nato
index a9c21bf..fec460d 100755
--- a/bin/nato
+++ b/bin/nato
@@ -7,7 +7,7 @@ no warnings ('experimental::signatures');
 use Getopt::Std ();
 
 sub usage($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 		Usage:
 		  nato
 		  nato -h
@@ -15,7 +15,7 @@ sub usage($fh) {
 }
 
 sub help($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 
 		Options:
 		  -h, --help    show this message
diff --git a/bin/status-bar b/bin/status-bar
index 73632f6..49c289f 100755
--- a/bin/status-bar
+++ b/bin/status-bar
@@ -14,7 +14,7 @@ use JSON ();
 use open IN => ':encoding(UTF-8)';
 
 sub usage($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 		Usage:
 		  status-bar
 		  status-bar -h
@@ -22,7 +22,8 @@ sub usage($fh) {
 }
 
 sub help($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
+
 
 		Options:
 		  -h, --help    show this message
diff --git a/bin/uri b/bin/uri
index ac3d8b8..ca26326 100755
--- a/bin/uri
+++ b/bin/uri
@@ -8,7 +8,7 @@ use Getopt::Std ();
 use URI::Escape ();
 
 sub usage($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 		Usage:
 		  uri [-e|-d] [CONTENT...]
 		  uri -h
@@ -16,7 +16,8 @@ sub usage($fh) {
 }
 
 sub help($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
+
 
 		Options:
 		  -e            encode the string (the default action)
diff --git a/bin/x b/bin/x
index 02c9e1e..70812f5 100755
--- a/bin/x
+++ b/bin/x
@@ -7,7 +7,7 @@ no warnings ('experimental::signatures', 'experimental::smartmatch');
 use Getopt::Std ();
 
 sub usage($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 		Usage:
 		  x COMMANDS... [ '&&'  / '||' / '|'    ] COMMANDS...
 		  x COMMANDS... [ 'AND' / 'OR' / 'PIPE' ] COMMANDS...
@@ -16,7 +16,7 @@ sub usage($fh) {
 }
 
 sub help($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 
 
 		Options:
diff --git a/bin/z b/bin/z
index 30ce8ce..5c25550 100755
--- a/bin/z
+++ b/bin/z
@@ -11,7 +11,7 @@ use List::Util qw(any);
 
 
 sub usage($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 		Usage:
 		  z COMMANDS...
 		  z -h
@@ -19,7 +19,7 @@ sub usage($fh) {
 }
 
 sub help($fh) {
-	print $fh <<~'EOF'
+	print $fh <<~'EOF';
 
 
 		Options: