Do not load dependant modules more than once

sorear · Dec 29, 2010 · 7c0434c · 7c0434c
1 parent 7ab22da
commit 7c0434c
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/CompilerDriver.pm b/src/CompilerDriver.pm
@@ -44,15 +44,16 @@ sub slurp {
 
 sub metadata_for {
     my ($unit) = @_;
-    $unit =~ s/::/./g;
+    my $file = "$unit.nam";
+    $file =~ s/::/./g;
 
-    NAMBackend::load(slurp(build_file("$unit.nam")));
+    $Metamodel::units{$unit} //= NAMBackend::load(slurp(build_file($file)));
 }
 
 sub syml_for {
     my ($module, $file) = @_;
     local %Metamodel::units;
-    my $meta = $Metamodel::units{$module} =
+    my $meta = $Metamodel::units{$module} //=
         NAMBackend::load(slurp($file));
 
     if ($meta->name ne $module) {