test_common: key2sub: detect syntax errors early

Instead of attempting to use an `undef' $sub as a coderef;
detect compile errors early and die immediately if `eval'
raises an exception.

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index cbcfc008c9e6af3c2c0a251a869f4d7ad8fb30c8..e11781491794378b8251ec9439a61be85a32847b 100644 (file)
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -371,6 +371,7 @@ sub main {
 }
 1;
 EOF
+               die "E: $f failed: $@" if $@;
                $pkg->can('main');
        }
 }