>From 8070745a5b89d6830f3d6a7d2702cfa4529d617d Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Sat, 18 Feb 2012 21:19:13 +0100
Subject: [PATCH] Ignore . and .. as egg names in chicken-install

Those are bogus names and the user's intention when issuing a
'chicken-install .' is probably to install the egg in the current
directory. This also triggered a bug in the henrietta cgi script on
the egg servers which is to be fixed in a separate patch.
---
 chicken-install.scm |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/chicken-install.scm b/chicken-install.scm
index f1eceb9..1edce03 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -989,6 +989,11 @@ EOF
                        ((string=? "-show-foreign-depends" arg)
                         (set! *show-foreign-depends* #t)
                         (loop (cdr args) eggs))
+                       ((or (string=? ".." arg) (string=? "." arg))
+                        (warning
+                         (string-append
+                          "ignoring " arg ", as it is a bogus egg name."))
+                        (loop (cdr args) eggs))
                        ((and (positive? (string-length arg))
                              (char=? #\- (string-ref arg 0)))
                         (if (> (string-length arg) 2)
-- 
1.7.6