RE: maint snapshot @ 19525

[p5sagit/p5-mst-13.2.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index 8da5df7..4ba0eb9 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -203,7 +203,8 @@ sub write_protos {
            my $prefix = $flags =~ /n/ ? '' : 'pTHX_';
            my $args = scalar @args;
            $ret .= "\n#ifdef CHECK_FORMAT\n";
-           $ret .= sprintf " __attribute__((format(__printf__,%s%d,%s%d)))",
+           $ret .=
+               sprintf " __attribute__((__format__(__printf__,%s%d,%s%d)))",
                                    $prefix, $args - 1, $prefix, $args;
            $ret .= "\n#endif\n";
        }