DECISION: log lines are more parseable and include an explanation of how the decision...

[modbot-mtm.git] / install-substitutions

diff --git a/install-substitutions b/install-substitutions
index 8df87c0e4f558a7cde3926984ae6b04a810b40c3..4f09cd3c06ed52ea06180cba2c6f8f8cbb652d71 100755 (executable)
--- a/install-substitutions
+++ b/install-substitutions
@@ -17,7 +17,7 @@ find -name '*.IN[O1]' ! -path '*/skeleton/*' -exec perl -e '
        my $mode= (stat F)[2];
        while (<F>) {
                s/\%(\w+)\%/ 
-                       exists($ENV{$1}) ? $ENV{$1} : die "$1 ?"
+                       exists($ENV{$1}) ? $ENV{$1} : die "$1 undef at $f:$.\n"
                 /ge;
                print G or die $!;
        }