From e0426fa5f2c74f2678bf328181e3f97300b549fa Mon Sep 17 00:00:00 2001 From: Sergey Matveev Date: Thu, 10 Dec 2020 18:48:52 +0300 Subject: [PATCH] Print version/copyright only with arguments --- torn | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/torn b/torn index 77d8d1b..2fe88de 100755 --- a/torn +++ b/torn @@ -65,9 +65,12 @@ my $src; my $dst; my $src_filename; -print "torn version $VERSION, Copyright (C) 2007-2020 Sergey Matveev +if ($#ARGV >= 0) { + print "torn version $VERSION, Copyright (C) 2007-2020 Sergey Matveev torn comes with ABSOLUTELY NO WARRANTY. This is free software, -and you are welcome to redistribute it under certain conditions.\n\n"; +and you are welcome to redistribute it under certain conditions.\n +Usage: just run inside the directory. Look for POD inside the script itself.\n"; +}; opendir DIR, "." or die "Can not open directory\n"; foreach (sort readdir DIR) { -- 2.44.0