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: 0.4.95@7852~1184
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=726f5e6ae2b5d7c7699bd9253936ad46558e6f38;p=helm.git

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

diff --git a/components/getter/http_getter_storage.ml b/components/getter/http_getter_storage.ml
index 23f479c24..77bfe138d 100644
--- a/components/getter/http_getter_storage.ml
+++ b/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 **********************************)