Permalink
Browse files

拡張子も同じときだけっぽい

  • Loading branch information...
1 parent 8f5cae0 commit bb18e3b2ad20e3a3e1be21be34f5141d865de7f9 @cho45 committed Apr 11, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 emulator.psgi
View
3 emulator.psgi
@@ -133,7 +133,8 @@ sub fat_children {
my ($name, $ext) = split /\./, $_->basename;
if (length $name > 8) {
$name = substr($name, 0, 6);
- $name .= '~' . ++$names->{$name};
+ $ext ||= '';
+ $name .= '~' . ++$names->{"$name.$ext"};
}
$_->{fat_name} = $ext ? "$name.$ext" : $name;

0 comments on commit bb18e3b

Please sign in to comment.