From b52d579a4135bddaf4e414f35e2306d10bad1398 Mon Sep 17 00:00:00 2001
From: Penny Leach <penny@mjollnir.org>
Date: Wed, 24 Feb 2010 22:36:29 +0100
Subject: [PATCH] renametv.pl - workaround for 24 which has a stupid syntax

---
 bin/renametv.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/renametv.pl b/bin/renametv.pl
index fb336c9..595114f 100755
--- 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;
-- 
2.39.5