diff options
| author | Peter Bex <peter@more-magic.net> | 2013-09-27 07:58:03 -0400 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2013-09-27 07:58:03 -0400 |
| commit | 117426e4d217bccc92670aebb0f2f99510974aeb (patch) | |
| tree | 559264c4cf63ee6653e2c91cf3ac213081e53124 | |
| parent | d1ad52d6782eb8f12d50a369798bff3283f014db (diff) | |
| download | pseudo-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)
| -rw-r--r-- | pseudo-meta-egg-info.scm | 3 |
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))) |