This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/embed.pl: Fix uninit variable warning.
[perl5.git] / regen / embed.pl
index 1f5b749..2a47e86 100755 (executable)
@@ -92,7 +92,7 @@ my ($embed, $core, $ext, $api) = setup_embed();
            else {
                $type = $1 eq 's' ? "STATIC" : "PERL_STATIC_INLINE";
            }
            else {
                $type = $1 eq 's' ? "STATIC" : "PERL_STATIC_INLINE";
            }
-           warn "$func: i and s flags are mutually exclusive"
+           warn "$plain_func: i and s flags are mutually exclusive"
                                            if $flags =~ /s/ && $flags =~ /i/;
            $retval = "$type $splint_flags$retval";
            $func = "S_$plain_func";
                                            if $flags =~ /s/ && $flags =~ /i/;
            $retval = "$type $splint_flags$retval";
            $func = "S_$plain_func";