diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-08-08 10:02:05 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-08-08 10:02:05 -0500 |
| commit | 1c6fd0d36b3166cc6880527c197327b28545f52e (patch) | |
| tree | abca688e9a1c9f874fcb2608a9aa744cbbb1ed1e | |
| parent | aa9c54a31b72a6cc7bdce3efcc27dd010e593564 (diff) | |
| download | package-stash-1c6fd0d36b3166cc6880527c197327b28545f52e.tar.gz package-stash-1c6fd0d36b3166cc6880527c197327b28545f52e.zip | |
sync test suite
| -rw-r--r-- | t/scalar-values.t | 4 |
1 files 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"); |