Rephrase perlop for non-destructive substitution

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

diff --git a/embed.pl b/embed.pl
index 50da232..9c55cb4 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -253,6 +253,9 @@ sub write_protos {
        if ( $flags =~ /r/ ) {
            push @attrs, "__attribute__noreturn__";
        }
+       if ( $flags =~ /D/ ) {
+           push @attrs, "__attribute__deprecated__";
+       }
        if ( $is_malloc ) {
            push @attrs, "__attribute__malloc__";
        }