regen/embed.pl: Fix uninit variable warning.
authorKarl Williamson <public@khwilliamson.com>
Tue, 20 Nov 2012 00:38:18 +0000 (17:38 -0700)
committerKarl Williamson <public@khwilliamson.com>
Tue, 20 Nov 2012 01:00:43 +0000 (18:00 -0700)
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";
            }
-           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";