Turn

  print "$thorn SHARES from implementation $friend - no such implementation\n";
  $CST_errors++;

into a proper CST_error() message so that it is clearly visible as a CST error.

This closes PR Cactus/1967: "Does not detect non-existing implementations
                             in "SHARES:" declaration".


git-svn-id: http://svn.cactuscode.org/flesh/trunk@4128 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 1 insertions, 4 deletions

diff --git a/lib/sbin/ImpParamConsistency.pl b/lib/sbin/ImpParamConsistency.pl
index d2570ae3..1d4d381a 100644
--- a/lib/sbin/ImpParamConsistency.pl
+++ b/lib/sbin/ImpParamConsistency.pl
@@ -35,10 +35,7 @@ sub CheckImpParamConsistency
       # Check the other implementation exists.
       if($other_thorn =~ m:^\s*$:)
       {
-        print "$thorn SHARES from implementation $friend - no such implementation\n";
-        
-        $CST_errors++;
-        
+        &CST_error(0,"Thorn '$thorn' SHARES from non-existing implementation '$friend'",'',__LINE__,__FILE__);
         next;
       }