From 30c56bedbebe2c54645b1567a97473c0cf748b0c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 8 Aug 2011 09:44:44 -0500
Subject: before 5.12, regexps were PVMG

---
 t/scalar-values.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/scalar-values.t b/t/scalar-values.t
index c4e8736..849d7c1 100644
--- a/t/scalar-values.t
+++ b/t/scalar-values.t
@@ -31,7 +31,7 @@ is(exception { $Bar->add_symbol('$pvmg', \$pvmg) }, undef,
    "can add PVMG values");
 
 my $regexp = qr/foo/;
-isa_ok(B::svref_2object($regexp), 'B::REGEXP');
+isa_ok(B::svref_2object($regexp), ($] < 5.012 ? 'B::PVMG' : 'B::REGEXP'));
 is(exception { $Bar->add_symbol('$regexp', $regexp) }, undef,
    "can add REGEXP values");
 
-- 
cgit v1.2.3-54-g00ecf