This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/embed.pl: Improve error msg
authorKarl Williamson <khw@cpan.org>
Sun, 1 Sep 2019 02:45:08 +0000 (20:45 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 3 Sep 2019 03:52:10 +0000 (21:52 -0600)
by indicating which function the problem occurs in

regen/embed.pl

index ca466a3..4dfb961 100755 (executable)
@@ -124,7 +124,8 @@ my ($embed, $core, $ext, $api) = setup_embed();
            }
        }
 
-       die_at_end "M flag requires p flag" if $flags =~ /M/ && $flags !~ /p/;
+       die_at_end "For '$plain_func', M flag requires p flag"
+                                           if $flags =~ /M/ && $flags !~ /p/;
 
        $func = full_name($plain_func, $flags);
        $ret = "";