From 117426e4d217bccc92670aebb0f2f99510974aeb Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Fri, 27 Sep 2013 07:58:03 -0400 Subject: Add some extra validation to ensure that empty strings don't get passed down to svn (which currently causes an assertion failure in libsvn, goddammit) --- pseudo-meta-egg-info.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/pseudo-meta-egg-info.scm b/pseudo-meta-egg-info.scm index 8043688..5d7336f 100644 --- a/pseudo-meta-egg-info.scm +++ b/pseudo-meta-egg-info.scm @@ -17,6 +17,7 @@ (or (and-let* ((params (uri-query (request-uri (current-request)))) (port (response-port (current-response))) (egg-name (alist-ref 'egg params)) + ((not (string=? egg-name ""))) (tag-dir (update-uri (uri-reference "") path: (list egg-name "tags"))) (repo-uri (uri-reference (egg-repo))) @@ -51,7 +52,9 @@ (or (and-let* ((params (uri-query (request-uri (current-request)))) (port (response-port (current-response))) (egg-name (alist-ref 'egg params)) + ((not (string=? egg-name ""))) (egg-release (alist-ref 'release params)) + ((not (string=? egg-release ""))) (files-dir (update-uri (uri-reference "") path: (list egg-name "tags" egg-release))) (repo-uri (uri-reference (egg-repo))) -- cgit v1.2.3