浏览代码

[java] minor

Caue Waneck 12 年之前
父节点
当前提交
5d23a6245a
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      genjava.ml

+ 1 - 1
genjava.ml

@@ -2423,7 +2423,7 @@ let get_classes_zip zip =
     | { Zip.is_directory = false; Zip.filename = f } when (String.sub (String.uncapitalize f) (String.length f - 6) 6) = ".class" ->
         (match List.rev (String.nsplit f "/") with
         | clsname :: pack ->
-            ret := (List.rev pack, filename_to_clsname f) :: !ret
+            ret := (List.rev pack, filename_to_clsname clsname) :: !ret
         | _ ->
             ret := ([], filename_to_clsname f) :: !ret)
     | _ -> ()