regen/embed.pl: flag 'i' didn't work with 'n'

[perl5.git] / regen / embed.pl

diff --git a/regen/embed.pl b/regen/embed.pl
index 2a47e86..8f59f36 100755 (executable)
--- a/regen/embed.pl
+++ b/regen/embed.pl
@@ -274,7 +274,7 @@ sub embed_h {
        unless ($flags =~ /[om]/) {
            my $args = scalar @args;
            if ($flags =~ /n/) {
-               if ($flags =~ /s/) {
+               if ($flags =~ /[si]/) {
                    $ret = hide($func,"S_$func");
                }
                elsif ($flags =~ /p/) {