eliminate lone dashes
authorTony Cook <tony@develop-help.com>
Mon, 11 May 2015 10:18:21 +0000 (20:18 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 11 May 2015 10:18:21 +0000 (20:18 +1000)
site/cgi-bin/modules/DevHelp/FileUpload.pm

index f9ae7c1..4b85136 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use IO::File;
 use File::Copy;
 
 use IO::File;
 use File::Copy;
 
-our $VERSION = "1.002";
+our $VERSION = "1.003";
 
 =head1 NAME
 
 
 =head1 NAME
 
@@ -85,6 +85,8 @@ sub make_img_filename {
   my ($class, $imgdir, $name, $rmsg) = @_;
 
   (my $basename = $name) =~ tr/A-Za-z0-9_./-/cs;
   my ($class, $imgdir, $name, $rmsg) = @_;
 
   (my $basename = $name) =~ tr/A-Za-z0-9_./-/cs;
+  $basename =~ s/-\B//g;
+  $basename =~ s/\B-//g;
 
   if (length $basename > 60) {
     $basename = substr($basename, -60);
 
   if (length $basename > 60) {
     $basename = substr($basename, -60);