diff options
| author | Andrew Fresh <afresh1@cvs.openbsd.org> | 2024-05-14 19:39:02 +0000 |
|---|---|---|
| committer | Andrew Fresh <afresh1@cvs.openbsd.org> | 2024-05-14 19:39:02 +0000 |
| commit | 45c703581717284c37fbb2abc2968de039f80a64 (patch) | |
| tree | 4bc6b627547b709d1beaa366b98c92444fe5c5b8 /gnu/usr.bin/perl/dquote.c | |
| parent | 0aa19f5e10f3aa68dc15f265cb9e764af0950d32 (diff) | |
Fix merge issues, remove excess files - match perl-5.38.2 dist
ok gkoehler@
Commit and we'll fix fallout bluhm@
Right away, please deraadt@
Diffstat (limited to 'gnu/usr.bin/perl/dquote.c')
| -rw-r--r-- | gnu/usr.bin/perl/dquote.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/dquote.c b/gnu/usr.bin/perl/dquote.c index e0c56228a98..e2c03f64eb3 100644 --- a/gnu/usr.bin/perl/dquote.c +++ b/gnu/usr.bin/perl/dquote.c @@ -46,7 +46,7 @@ Perl_grok_bslash_c(pTHX_ const char source, const char control = toCTRL('{'); if (isPRINT_A(control)) { /* diag_listed_as: Use "%s" instead of "%s" */ - *message = Perl_form(aTHX_ "Use \"%c\" instead of \"\\c{\"", control); + *message = Perl_form(aTHX_ PERL_DIAG_DIE_SYNTAX("Use \"%c\" instead of \"\\c{\""), control); } else { *message = "Sequence \"\\c{\" invalid"; @@ -58,7 +58,7 @@ Perl_grok_bslash_c(pTHX_ const char source, if (isPRINT_A(*result) && ckWARN(WARN_SYNTAX)) { U8 clearer[3]; U8 i = 0; - char format[] = "\"\\c%c\" is more clearly written simply as \"%s\""; + char format[] = PERL_DIAG_WARN_SYNTAX("\"\\c%c\" is more clearly written simply as \"%s\""); if (! isWORDCHAR(*result)) { clearer[i++] = '\\'; |