From 3d3fc93b9a975b32621c66cd4d05d42dc558ef68 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop=help.com>
Date: Mon, 3 Dec 2007 00:36:10 +0000
Subject: [PATCH] work around the 5.005_0[45] B bug

---
 TODO          | 2 +-
 t/t82inline.t | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/TODO b/TODO
index c102e403..1e4415be 100644
--- 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 cdbc5ff9..d0fc5bb3 100644
--- 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, 
-- 
2.39.5