Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

  • Loading branch information...
commit bb18e3b2ad20e3a3e1be21be34f5141d865de7f9 1 parent 8f5cae0
cho45 authored April 11, 2012

Showing 1 changed file with 2 additions and 1 deletion. Show diff stats Hide diff stats

  1. 3  emulator.psgi
3  emulator.psgi
@@ -133,7 +133,8 @@ sub fat_children {
133 133
 		my ($name, $ext) = split /\./, $_->basename;
134 134
 		if (length $name > 8) {
135 135
 			$name = substr($name, 0, 6);
136  
-			$name .= '~' . ++$names->{$name};
  136
+			$ext  ||= '';
  137
+			$name .= '~' . ++$names->{"$name.$ext"};
137 138
 		}
138 139
 
139 140
 		$_->{fat_name} = $ext ? "$name.$ext" : $name;

0 notes on commit bb18e3b

Please sign in to comment.
Something went wrong with that request. Please try again.