aboutsummaryrefslogtreecommitdiff
path: root/pseudo-meta-egg-info.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2013-09-27 07:58:03 -0400
committerPeter Bex <peter@more-magic.net>2013-09-27 07:58:03 -0400
commit117426e4d217bccc92670aebb0f2f99510974aeb (patch)
tree559264c4cf63ee6653e2c91cf3ac213081e53124 /pseudo-meta-egg-info.scm
parentd1ad52d6782eb8f12d50a369798bff3283f014db (diff)
downloadpseudo-meta-egg-info-117426e4d217bccc92670aebb0f2f99510974aeb.tar.gz
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)
Diffstat (limited to 'pseudo-meta-egg-info.scm')
-rw-r--r--pseudo-meta-egg-info.scm3
1 files changed, 3 insertions, 0 deletions
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)))