X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgetter%2Fhttp_getter_storage.ml;h=77bfe138da3450d9a484fdf2a6e8681b591d7e83;hb=c465c17581bf606e0330cbd89b238279c184ad35;hp=b1a05d9963f0b24673a56892af8ede8695fdc125;hpb=4e238c92f66aedf21c2d3a33aa5215cdf0a7189f;p=helm.git

diff --git a/helm/software/components/getter/http_getter_storage.ml b/helm/software/components/getter/http_getter_storage.ml
index b1a05d996..77bfe138d 100644
--- a/helm/software/components/getter/http_getter_storage.ml
+++ b/helm/software/components/getter/http_getter_storage.ml
@@ -80,7 +80,10 @@ let is_file_schema url = Pcre.pmatch ~rex:file_scheme_RE url
 let is_http_schema url = Pcre.pmatch ~rex:http_scheme_RE url
 
 let is_empty_listing files = 
-  List.for_all (fun s -> s.[String.length s - 1] = '/') files
+  List.for_all
+   (fun s ->
+     let len = String.length s in
+      len < 4 || String.sub s (len - 4) 4 <> ".xml") files
 
 (************************* GLOBALS PREFIXES **********************************)