diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-10-01 10:17:39 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-11-05 08:43:33 -0700 |
| commit | 49b05680354271062cfcaf4b5001b35296f3a94b (patch) | |
| tree | b359291bbfd7cec77d6b2ec457313993a6aebfdd /src | |
| parent | 826ff8486fb3e742cea80ebc43d93afbd85b52d9 (diff) | |
Avoid NullPointerException in clojure.stacktrace when StackTraceElement has null class; refs #449
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/stacktrace.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/stacktrace.clj b/src/clj/clojure/stacktrace.clj index 1ded882c..d86fc316 100644 --- a/src/clj/clojure/stacktrace.clj +++ b/src/clj/clojure/stacktrace.clj @@ -29,7 +29,7 @@ [e] (let [class (.getClassName e) method (.getMethodName e)] - (let [match (re-matches #"^([A-Za-z0-9_.-]+)\$(\w+)__\d+$" class)] + (let [match (re-matches #"^([A-Za-z0-9_.-]+)\$(\w+)__\d+$" (str class))] (if (and match (= "invoke" method)) (apply printf "%s/%s" (rest match)) (printf "%s.%s" class method)))) |