From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 19 Jul 2006 09:54:03 +0000 (+0000)
Subject: is_empty_listing fixed: the ls method normalizes away the .gz suffix
X-Git-Tag: make_still_working~7044
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=3449a6e0b4045a903b9f16db8a2c91986b5ddf0d;p=helm.git

is_empty_listing fixed: the ls method normalizes away the .gz suffix
---

diff --git a/helm/software/components/getter/http_getter_storage.ml b/helm/software/components/getter/http_getter_storage.ml
index 23f479c24..77bfe138d 100644
--- a/helm/software/components/getter/http_getter_storage.ml
+++ b/helm/software/components/getter/http_getter_storage.ml
@@ -83,7 +83,7 @@ let is_empty_listing files =
   List.for_all
    (fun s ->
      let len = String.length s in
-      len < 7 || String.sub s (len - 7) 7 <> ".xml.gz") files
+      len < 4 || String.sub s (len - 4) 4 <> ".xml") files
 
 (************************* GLOBALS PREFIXES **********************************)