oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixes bug #11780: anchor filename regex to the end of the string.

Browse source
This commit is contained in:
Colin Kuskie 2010-08-15 23:23:49 -07:00
parent 05c287cfc7
commit 8f7bbdaa5d
3 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Asset/File/ZipArchive.pm
View file

@ -172,7 +172,8 @@ sub fixFilenames {
my $extension = $storage->getFileExtension($file);
next FILE unless isIn($extension, qw/pl perl pm cgi php asp sh/);
my $newFile = $file;
$newFile =~ s/\.$extension/_$extension.txt/;
#$newFile =~ s/\.$extension$/_$extension.txt/;
$newFile =~ s/\.$extension$/_$extension.txt/;
$storage->renameFile($file, $newFile);
}
}