This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add missing ARGS_ASSERT
authorKarl Williamson <khw@cpan.org>
Wed, 27 Feb 2019 16:28:05 +0000 (09:28 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 27 Feb 2019 16:29:47 +0000 (09:29 -0700)
From c1e47bad34ce1d9c84ed57c9b8978bcbd5a02e98

op.c

diff --git a/op.c b/op.c
index 2b162e1..11f84e7 100644 (file)
--- a/op.c
+++ b/op.c
@@ -17053,6 +17053,8 @@ Perl_dup_warnings(pTHX_ STRLEN* warnings)
     Size_t size;
     STRLEN *new_warnings;
 
     Size_t size;
     STRLEN *new_warnings;
 
+    PERL_ARGS_ASSERT_DUP_WARNINGS;
+
     if (specialWARN(warnings))
         return warnings;
 
     if (specialWARN(warnings))
         return warnings;