minor things, bump to 1.3

1 files changed, 3 insertions, 3 deletions

diff --git a/bin/psycamp b/bin/psycamp
index c927ca0..9c39a1c 100755
--- a/bin/psycamp
+++ b/bin/psycamp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -I/usr/depot/lib/perl5
 
-my $TITLE = "PSYC media console 4.0";
+my $TITLE = "PSYC media console 4.1";
 my $AUTHOR = "by the symbolic lynX\@psycamp.pages.de";
 
 # see end of file for end-user-oriented documentation
@@ -552,7 +552,7 @@ X
                         my $f = $file[$order[$i]];
                         my $s = $size[$order[$i]] || -s $f;
 #                       my $a = $adate[$order[$i]];
-                        $f =~ s/\.\S+$//i;
+                        $f =~ s/\.[^\.\s]+$//i;
                         $f = '..'.substr($f,length($p)-$TWIDTH+16) if
                                 length($f) > $TWIDTH-14;
                         $any++;
@@ -625,7 +625,7 @@ X
                         $1 eq 'S' ? 'SECONDARY' : 'REPERTOIRE';
                 my $f = $CurrentFile;
                 $f = $ENV{PWD}. '/'. $f unless $f =~ m!^/!;
-                unless ($f =~ s:\b(SHARE|T|COMPLETE|KEEP|EDITABLE|SECONDARY|REPERTOIRE|NEW|SEEK|TODO|USE|DEEJAY|REMASTER|CRITICIZE|INCOMING|VOLATILE)\b:$t:i)
+                unless ($f =~ s:\b(SHARE|T|COMPLETE|KEEP|EDITABLE|SECONDARY|REPERTOIRE|NEW|SEEK|TODO|USE|DEEJAY|REMASTER|CRITICIZE|INCOMING|EXPORT|VOLATILE)\b:$t:i)
                 {
                         print BOLD, RED, ">> not applicable for $f\n", RESET;
                         next;