X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgetter%2Fhttp_getter.ml;h=3f5cb2e5cf770d6026e32cd458ffaa2062a2cd29;hb=99727f61d0a718e34d4282f9b9b45fce4336af84;hp=d2993575a439f3770ffb35c4caab5745dd3c5dea;hpb=ee3f8d6fa92b051394a2ff7c71c03ac33a05182b;p=helm.git

diff --git a/helm/software/components/getter/http_getter.ml b/helm/software/components/getter/http_getter.ml
index d2993575a..3f5cb2e5c 100644
--- a/helm/software/components/getter/http_getter.ml
+++ b/helm/software/components/getter/http_getter.ml
@@ -151,13 +151,21 @@ let exists uri =
    let uri = deref_index_theory uri in
     Http_getter_storage.exists (uri ^ xml_suffix)
 	
+let is_an_obj s = 
+  try 
+    s <> UriManager.buri_of_uri (UriManager.uri_of_string s)
+  with UriManager.IllFormedUri _ -> true
+    
 let resolve ~writable uri =
   if remote () then
     resolve_remote ~writable uri
   else
    let uri = deref_index_theory uri in
     try
-      Http_getter_storage.resolve ~writable (uri ^ xml_suffix)
+      if is_an_obj uri then
+        Http_getter_storage.resolve ~writable (uri ^ xml_suffix)
+      else
+        Http_getter_storage.resolve ~writable uri
     with Http_getter_storage.Resource_not_found _ -> raise (Key_not_found uri)
 
 let filename ~writable uri =