This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7d0cbfb
)
ppport.h: Turn off some likely warnings
author
Karl Williamson
<khw@cpan.org>
Sun, 28 Jul 2019 21:07:14 +0000
(15:07 -0600)
committer
Nicolas 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
patch
|
blob
|
blame
|
history
diff --git
a/dist/Devel-PPPort/parts/inc/ppphbin
b/dist/Devel-PPPort/parts/inc/ppphbin
index
10f7d5d
..
ee8bf89
100644
(file)
--- a/
dist/Devel-PPPort/parts/inc/ppphbin
+++ b/
dist/Devel-PPPort/parts/inc/ppphbin
@@
-113,6
+113,7
@@
my($hint, $define, $function);
sub find_api
{
my $code = shift;
+ no warnings 'uninitialized';
$code =~ s{
/ (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
| "[^"\\]*(?:\\.[^"\\]*)*"