diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-08-08 09:44:44 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-08-08 09:44:44 -0500 |
| commit | 30c56bedbebe2c54645b1567a97473c0cf748b0c (patch) | |
| tree | 4c86ea245a67037159104140d4c5d92f7c98f4c1 | |
| parent | 35ac42dfa898f4ed2124a52545f7f7c2d2bd0449 (diff) | |
| download | package-stash-xs-30c56bedbebe2c54645b1567a97473c0cf748b0c.tar.gz package-stash-xs-30c56bedbebe2c54645b1567a97473c0cf748b0c.zip | |
before 5.12, regexps were PVMG
| -rw-r--r-- | t/scalar-values.t | 2 |
1 files changed, 1 insertions, 1 deletions
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"); |