From 1c6fd0d36b3166cc6880527c197327b28545f52e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 8 Aug 2011 10:02:05 -0500
Subject: sync test suite

---
 t/scalar-values.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/scalar-values.t b/t/scalar-values.t
index c4e8736..b2daebe 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");
 
@@ -46,7 +46,7 @@ is(exception { $Bar->add_symbol('$pvlv', \substr($pvlv, 0, 1)) }, undef,
    "can add PVLV values");
 
 my $vstring = v1.2.3;
-is(reftype(\$vstring), 'VSTRING');
+is(reftype(\$vstring), ($] < 5.010 ? 'SCALAR' : 'VSTRING'));
 is(exception { $Bar->add_symbol('$vstring', \$vstring) }, undef,
    "can add vstring values");
 
-- 
cgit v1.2.3-54-g00ecf