diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-05-23 18:32:22 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-23 16:51:18 +0000 |
| commit | 287c8091529321306208d03ea400ad532aea56f5 (patch) | |
| tree | 65ac76361bd83808bb266dd98bb9d4c9b0c3f9df /embed.pl | |
| parent | fb207d526ce4bce3776385fc87bb41c535edcb76 (diff) | |
| download | perl-287c8091529321306208d03ea400ad532aea56f5.tar.gz | |
RE: [PATCH] RE: maint snapshot @ 19525
Message-ID: <533D273D4014D411AB1D00062938C4D90404653C@hotel.npl.co.uk>
p4raw-id: //depot/perl@19599
Diffstat (limited to 'embed.pl')
| -rwxr-xr-x | embed.pl | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -202,11 +202,8 @@ sub write_protos { if( $flags =~ /f/ ) { 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 "\n\t__attribute__format__(__printf__,%s%d,%s%d)", $prefix, $args - 1, $prefix, $args; - $ret .= "\n#endif\n"; } $ret .= ";"; $ret .= ' */' if $flags =~ /m/; |