Revert "Remove extraneous information from $?FILE"

This reverts commit 2e69d7a.
rakudo · Feb 14, 2020 · 4829711 · 4829711
1 parent 2e69d7a
commit 4829711
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/core.c/CompUnit/PrecompilationUnit.pm6 b/src/core.c/CompUnit/PrecompilationUnit.pm6
@@ -80,7 +80,9 @@ class CompUnit::PrecompilationDependency::File does CompUnit::PrecompilationDepe
     has Str $!serialized-spec;
     has CompUnit::DependencySpecification $.spec;
 
-    method source-name() { $.src }
+    method source-name() {
+        "$.src ($.spec.short-name())"
+    }
 
     method deserialize(str $str) {
         my $parts := nqp::split("\0", $str);

diff --git a/src/core.c/CompUnit/Repository/Installation.pm6 b/src/core.c/CompUnit/Repository/Installation.pm6
@@ -280,7 +280,7 @@ sub MAIN(:$name, :$auth, :$ver, *@, *%) {
                 $precomp.precompile(
                     $source,
                     CompUnit::PrecompilationId.new-without-check($id),
-                    :source-name($source-file),
+                    :source-name("$source-file ($_.key())"),
                 );
                 %done{$id} = 1;
             }