tests are now handled with a standard Makefile that does not use do_tests.sh

[helm.git] / helm / software / components / getter / http_getter.ml

diff --git a/helm/software/components/getter/http_getter.ml b/helm/software/components/getter/http_getter.ml
index d2993575a439f3770ffb35c4caab5745dd3c5dea..574f6b3c281b8f1113bbbd7ff9a2c274e8370935 100644 (file)
--- 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 _ -> false
+    
 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 =