renametv.pl - workaround for 24 which has a stupid syntax

diff --git a/bin/renametv.pl b/bin/renametv.pl
index fb336c9375959a3d95bdbcb74c7e14d074b8e640..595114f5a018f3102c9085e0cb499cac12106556 100755 (executable)
--- a/bin/renametv.pl
+++ b/bin/renametv.pl
@@ -31,12 +31,12 @@ while (<$inputdir/*>) {
     s/'//g;
     s/-/_/g;
     s/[\[\]]//g;
-    s/[S|s]?(\d+)\.?[E|e|x|X]?(\d+)/$1$2/;
+    s/\.[S|s]?(\d+)\.?[E|e|x|X]?(\d+)\./.$1$2./;
     s/\.0/./g;
     foreach my $bad (@usualsuspects) {
         s/(\[|\.|_|-)?$bad(\]|-)?//g;
     }
-    if (/^(.*\/(?!.*\/))([a-z_.]*)((?:_|\.)[0-9]*)(?:_|\.)+([a-z_.,&]*)$/) {
+    if (/^(.*\/(?!.*\/))([a-z0-9_.]*)((?:_|\.)[0-9]*)(?:_|\.)+([a-z_.,&]*)$/) {
         my ($path, $series, $epno, $title) = ($1, $2, $3, $4);
         $series =~ s/(_|\.)//g;
         $epno =~ s/.(.*)/$1/g;