revert to working old-locate-curli-module for time being

bin/p6doc

@@ -35,8 +35,8 @@ sub locate-module(Str $modulename) {
     my $m = @candidates.first: *.IO.f;
 
     unless $m.defined {
-        # not "core" pod now try for panda installed module XXX not zef
-        $m = locate-curli-module($modulename);
+        # not "core" pod now try for panda or zef installed module 
+        $m = old-locate-curli-module($modulename);
     }
 
     unless $m.defined {
@@ -214,6 +214,14 @@ sub prompt-with-options(%options, %found) {
     return $final-docee;
 }
 
+sub old-locate-curli-module($module) {
+    my $cu = $*REPO.need(CompUnit::DependencySpecification.new(:short-name($module)));
+    return ~ $cu.repo.prefix.child('sources/' ~ $cu.repo-id);
+}
+
+# I get an error "Odd number of elements..." with following code as of 160708
+# using 'p6doc SVG::Plot' etc.  Reverted to version of original code above -- stmuk
+
 sub locate-curli-module($module) {
     my $installed := list-installed();
     my $dist = $installed.first({ $_.name eq $module or $_.hash<provides>{$module}:exists });