fortune: file extension blacklist correction

* The "ins" suffixes are ins.c, ins.ftn and ins.pas---one of these was written with a comma [1]
* Allow --version to work the same as -v, instead of printing an ugly getopt message

1. https://bitsavers.trailing-edge.com/pdf/apollo/000792-A01_Domain_Pascal_Language_Reference_Dec90.pdf (page 189)

Author: mknos

bin/fortune

@@ -44,16 +44,12 @@ my $STR_ROTATED = 0x4;
 my (%opts);
 
 getopts('adefilosvwm:n:', \%opts) or print_help();
+VERSION_MESSAGE() if $opts{'v'};
 
 my $debug = $opts{d};
 
 my $SHORT_LENGTH = $opts{n} || 160;
 
-if ($opts{v}) {
-	print "\n\n$0 $VERSION\n\n";
-	exit 1;
-}
-
 if ($debug) {
 	warn "opts are:\n";
 	foreach (keys %opts) {
@@ -106,6 +102,11 @@ if ($opts{m}) {
 #  Sub Routines
 #
 
+sub VERSION_MESSAGE {
+	print "$0 version $VERSION\n";
+	exit 0;
+}
+
 # build_file_list
 #
 # build list of the available files
@@ -279,7 +280,7 @@ sub is_fortune_file
 	    warn "$msg FALSE (can't read file)\n" if $debug;
 	    return 0;
     }
-    my @illegal_suffixes = qw(dat pos c h p i f pas ftn ins.c ins,pas
+    my @illegal_suffixes = qw(dat pos c h p i f pas ftn ins.c ins.pas
 			      ins.ftn sml);
     foreach (@illegal_suffixes) {
 	if ( $path =~ /\.$_$/ ) {