From deab03146e11f00d0daae78e11591c9476293d3e Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 12 Apr 2023 07:21:54 -0300
Subject: bin/: Add trailing semicolor to Perl heredocs

---
 bin/nato       | 4 ++--
 bin/status-bar | 5 +++--
 bin/uri        | 5 +++--
 bin/x          | 4 ++--
 bin/z          | 4 ++--
 5 files changed, 12 insertions(+), 10 deletions(-)

(limited to 'bin')

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:
-- 
cgit v1.2.3