X-Git-Url: http://www.git.stargrave.org/?p=torn.git;a=blobdiff_plain;f=torn;fp=torn;h=2fe88def679854e774c3a5b9f1d3e1fdd4f19af2;hp=77d8d1b0b1ecfb54e1a0149e33e4f1c9e8f7a112;hb=e0426fa5f2c74f2678bf328181e3f97300b549fa;hpb=7b4fe78341e3e4508127dc9b7898f59a2215f393 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) {