work around the 5.005_0[45] B bug

diff --git a/TODO b/TODO
index c102e403b1a42ca583646e094875df7e865c5d1a..1e4415be63d1b942182208563a84616d0f2bd332 100644 (file)
--- a/TODO
+++ b/TODO
@@ -45,7 +45,7 @@ scaling alpha channel image issues (done)
 
 PBM images inverted (#30859) (might be fixed in TIFF branch)
 
-don't load B at compile-time in t82inline.t (#30508)
+don't load B at compile-time in t82inline.t (#30508) (done)
 
 the hardinvert filter inverts the alpha channels, this probably isn't
 desirable (#30002)

diff --git a/t/t82inline.t b/t/t82inline.t
index cdbc5ff9f14027ba5d6deaa1d66388eb4422e588..d0fc5bb3324f8645b8657a3c4c0082a50009e1fc 100644 (file)
--- a/t/t82inline.t
+++ b/t/t82inline.t
@@ -10,6 +10,9 @@ use Cwd 'getcwd';
 plan skip_all => "Inline won't work in directories with spaces"
   if getcwd() =~ / /;
 
+plan skip_all => "perl 5.005_04, 5.005_05 too buggy"
+  if $] =~ /^5\.005_0[45]$/;
+
 plan tests => 9;
 require Inline;
 Inline->import(with => 'Imager');
@@ -252,7 +255,7 @@ ok($im3->write(file=>'testout/t82lots.ppm'), "write t82lots.ppm");
 
   my $im = make_10x10();
   my $im2 = Imager->new(xsize => 10, ysize => 10);
-  use B;
+  require B;
   my $imb = B::svref_2object($im);
   my $im2b = B::svref_2object($im2);
   is ($imb->REFCNT, $im2b->REFCNT,