From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 8 Aug 2011 14:44:44 +0000 (-0500)
Subject: before 5.12, regexps were PVMG
X-Git-Tag: 0.23~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30c56bedbebe2c54645b1567a97473c0cf748b0c;p=gitmo%2FPackage-Stash-XS.git

before 5.12, regexps were PVMG
---

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");