more awesome error message when using a dangling variable in a model

moritz · Jul 31, 2010 · 0706fa1 · 0706fa1
1 parent ad7e648
commit 0706fa1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Math/Model.pm b/lib/Math/Model.pm
@@ -44,6 +44,8 @@ method topo-sort(*@vars) {
     sub topo(*@a) {
         for @a {
             next if %!inv.exists($_) || %seen{$_} || $_ eq 'time';
+            die "Undeclared variable '$_' used in model"
+                unless %.variables.exists($_);
             topo(param-names(%.variables{$_}));
             @order.push: $_;
             %seen{$_}++;