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

[p5sagit/p5-mst-13.2.git] / ext / B / t / concise-xs.t

diff --git a/ext/B/t/concise-xs.t b/ext/B/t/concise-xs.t
index b50cbb2..d900113 100644 (file)
--- a/ext/B/t/concise-xs.t
+++ b/ext/B/t/concise-xs.t
@@ -148,7 +148,7 @@ my $testpkgs = {
                  ), $] > 5.009 ? ('unitcheck_av') : ()],
     },
 
-    B::Deparse => { dflt => 'perl',    # 235 functions
+    B::Deparse => { dflt => 'perl',    # 236 functions
 
        XS => [qw( svref_2object perlstring opnumber main_start
                   main_root main_cv )],