From 922a1c0642fe5416a792af999cf6a0f62b1fdefb Mon Sep 17 00:00:00 2001
From: Toni Gundogdu <legatvs.git@gmail.com>
Date: Mon, 23 May 2011 12:42:24 +0300
Subject: [PATCH] croak if invalid --regexp

---
 bin/clive | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/bin/clive b/bin/clive
index 3d65313..81d237c 100755
--- a/bin/clive
+++ b/bin/clive
@@ -395,11 +395,8 @@ sub apply_regexp {
           : join '', $title =~ /$rq/;
     }
 
-    print STDERR
-      "invalid syntax (`$config{regexp}'), expected Perl like syntax "
-      . "`/pattern/flags', e.g. `/(\\w)/g'";
-
-    exit 1;
+    croak "error: --regexp: expects "
+      . "`/pattern/flags', for example: `/(\\w)/g'\n";
 }
 
 sub check_format {
-- 
2.11.4.GIT