changeset 224:9780818e4f2f

DOn't strip the suffix; that has already happened
author Steve Kemp <steve@steve.org.uk>
date Thu, 01 May 2008 20:23:39 +0100
parents c9262aa2918a
children ea9cb3e9020b
files bin/chronicle
diffstat 1 files changed, 0 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Wed Apr 16 19:34:44 2008 +0100
+++ b/bin/chronicle	Thu May 01 20:23:39 2008 +0100
@@ -1720,14 +1720,6 @@
     my ($file) = (@_);
 
     #
-    #  Strip suffix.
-    #
-    if ( $file =~ /(.*)\.(.*)/ )
-    {
-        $file = $1;
-    }
-
-    #
     #  Get rid of non-alphanumeric Al characters
     #
     $file =~ s/[^a-z0-9]/_/gi;