diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-11-19 17:38:18 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-11-19 18:00:43 -0700 |
| commit | 33e8a81374c209ff5ae32bda91d36bbe45951ce2 (patch) | |
| tree | 5991e081b059e62b8a0c088401ccb75fbb07bd72 /regen/embed.pl | |
| parent | 4c88d5e0740d796bf5064336d280bba72897f385 (diff) | |
| download | perl-33e8a81374c209ff5ae32bda91d36bbe45951ce2.tar.gz | |
regen/embed.pl: Fix uninit variable warning.
Diffstat (limited to 'regen/embed.pl')
| -rwxr-xr-x | regen/embed.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index 1f5b7497ce..2a47e8670d 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -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"; |