This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5.8's B.xs exports AVf_REAL, so need to jiggle the test count by 1.
[perl5.git] / ext / B / t / concise-xs.t
index 3ce4625..ba9a1ed 100644 (file)
@@ -119,9 +119,9 @@ use Test::More tests => ( # per-pkg tests (function ct + require_ok)
                          40 + 16       # Data::Dumper, Digest::MD5
                          + 517 + 239   # B::Deparse, B
                          + 595 + 190   # POSIX, IO::Socket
-                         + 346 * ($] > 5.009)
+                         + 345 * ($] > 5.009)
                          + 17 * ($] >= 5.009003)
-                         - 366);       # fudge
+                         - 365);       # fudge
 
 require_ok("B::Concise");