This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ppport.h: Turn off some likely warnings
authorKarl Williamson <khw@cpan.org>
Sun, 28 Jul 2019 21:07:14 +0000 (15:07 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:27 +0000 (16:51 -0600)
I'm not sure when this ability to turn off warnings was introduced, but
putting it inside a block eval should avoid any issues.

(cherry picked from commit d1378eaded6746a4c36230f9eb803c2bce7edb3d)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/ppphbin

index 10f7d5d..ee8bf89 100644 (file)
@@ -113,6 +113,7 @@ my($hint, $define, $function);
 sub find_api
 {
   my $code = shift;
+  no warnings 'uninitialized';
   $code =~ s{
     / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
   | "[^"\\]*(?:\\.[^"\\]*)*"