Optimise if (%foo) to be faster than if(keys %foo)

[p5sagit/p5-mst-13.2.git] / pp_proto.h

diff --git a/pp_proto.h b/pp_proto.h
index 0c1829a..16c5c8c 100644 (file)
--- a/pp_proto.h
+++ b/pp_proto.h
@@ -409,5 +409,6 @@ PERL_PPDEF(Perl_pp_getlogin)
 PERL_PPDEF(Perl_pp_syscall)
 PERL_PPDEF(Perl_pp_lock)
 PERL_PPDEF(Perl_pp_once)
+PERL_PPDEF(Perl_pp_boolkeys)
 
 /* ex: set ro: */