guard on no ns decl in JAR

Author: fogus

README.md

@@ -23,34 +23,34 @@ This project follows the version scheme MAJOR.MINOR.PATCH where each component p
 
 ### Stable Release ###
 
-Latest stable release is [1.4.3](https://github.com/clojure/tools.namespace/tree/v1.4.3)
+Latest stable release is [1.4.4](https://github.com/clojure/tools.namespace/tree/v1.4.4)
 
 [CLI/`deps.edn`](https://clojure.org/reference/deps_and_cli) dependency information:
 ```clojure
-org.clojure/tools.namespace {:mvn/version "1.4.3"}
+org.clojure/tools.namespace {:mvn/version "1.4.4"}
 ```
 
 [Leiningen](https://leiningen.org/) stable dependency information:
 
-    [org.clojure/tools.namespace "1.4.3"]
+    [org.clojure/tools.namespace "1.4.4"]
 
 [Maven](https://maven.apache.org/) stable dependency information:
 
     <dependency>
       <groupId>org.clojure</groupId>
       <artifactId>tools.namespace</artifactId>
-      <version>1.4.3</version>
+      <version>1.4.4</version>
     </dependency>
 
 ### Development Snapshots ###
 
-Git master branch is at **1.4.3-SNAPSHOT**
+Git master branch is at **1.4.5-SNAPSHOT**
 
 [All Snapshot Versions](https://oss.sonatype.org/content/groups/public/org/clojure/tools.namespace/)
 
 Leiningen dependency information for development snapshots:
 
-    :dependencies [[org.clojure/tools.namespace "1.4.4-SNAPSHOT"]]
+    :dependencies [[org.clojure/tools.namespace "1.4.5-SNAPSHOT"]]
     :repositories [["sonatype-oss-public"
                     "https://oss.sonatype.org/content/groups/public/"]]
 

src/main/clojure/clojure/tools/namespace/find.clj

@@ -154,10 +154,11 @@
                       (io/reader
                        (.getInputStream jarfile (.getEntry jarfile entry-name))))]
        (ignore-reader-exception
-        (let [[_ nom & more] (parse/read-ns-decl rdr read-opts)]
-          (list* 'ns (with-meta nom
-                       {:jar (.getName ^JarFile jarfile) :file entry-name})
-                 more)))))))
+        (let [[_ nom & more :as decl] (parse/read-ns-decl rdr read-opts)]
+          (when (and decl nom (symbol? nom))
+              (list* 'ns (with-meta nom
+                           {:jar (.getName ^JarFile jarfile) :file entry-name})
+                     more))))))))
 
 (defn find-ns-decls-in-jarfile
   "Searches the JAR file for source files containing (ns ...)