From 55e947d7901c17dbb1365a5cfb9f40acd50e903b Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 5 Jan 2019 10:38:38 -0200
Subject: Print CLI errors using Term::ANSIColor.

---
 pastebin/website-pastebin | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pastebin')

diff --git a/pastebin/website-pastebin b/pastebin/website-pastebin
index b9f7841..6061c74 100755
--- a/pastebin/website-pastebin
+++ b/pastebin/website-pastebin
@@ -38,6 +38,7 @@ use Getopt::Long qw(:config no_ignore_case bundling);
 use Pod::Usage qw(pod2usage);
 use Unicode::Normalize qw(NFKD);
 use File::Basename qw(dirname);
+use Term::ANSIColor;
 
 my $help = 0;
 my $title = '';
@@ -52,7 +53,7 @@ pod2usage(
 pod2usage(
   -verbose => 1,
   -exitval => 2,
-  -message => "Missing required --title argument."
+  -message => colored("Missing required --title argument.", "red")
 ) if !$title;
 
 # Taken from:
-- 
cgit v1.2.3