From 2ac0d87cb4888d9d6326fb53a8239bf9e9a29d51 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 4 Jul 2016 08:23:48 +0200
Subject: [PATCH] show error message before pod
---
textarchive/vlib001.pl | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index cc6cba9..471741d 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -99,7 +99,7 @@ while (my $arg= shift (@ARGV))
elsif ($arg eq '--subdir') { push (@subdirs, shift (@ARGV)); }
elsif ($arg eq '--cd') { $cd_mode= 1; }
elsif ($arg =~ /^--(refresh|verify|lookup|edit|maint|next-seq|get-cat)$/) { $op_mode= $1; }
- else { &usage ("unknown option '$arg'"); }
+ else { &usage ("unknown option '--$arg'"); }
}
elsif ($arg =~ /^-/)
{
@@ -240,7 +240,11 @@ exit (0);
sub usage
{
my $msg= shift;
- print $msg, "\n" if ($msg);
+ if ($msg)
+ {
+ print $msg, "\n";
+ sleep (10);
+ }
system ('perldoc', $0);
exit -1;
}
--
GitLab