diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-10-04 09:15:10 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-04 09:37:59 -0700 |
| commit | 9f275339d46b79cc64e0475bd96a56295e679eb2 (patch) | |
| tree | d3adccb51fdce1ae761346ca1bec27aaa6dd3a1a /dist | |
| parent | d2585a2dbcf7b50d5840bc2df3e213d3bf238062 (diff) | |
| download | perl-9f275339d46b79cc64e0475bd96a56295e679eb2.tar.gz | |
bignum overrides.t: Fix for 5.8
We use the ;$ prototype for testing global overrides under 5.8, as it
had no _ prototype. But back then (before 5.14, in fact) ;$ did not
give a function unary precedence.
Comparing against 5.009004 in bigint scope is the same as comparing
against 5, resulting in incorrect version checks and skips being
skipped.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/bignum/t/overrides.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dist/bignum/t/overrides.t b/dist/bignum/t/overrides.t index 581ec9870e..84a2ce1924 100644 --- a/dist/bignum/t/overrides.t +++ b/dist/bignum/t/overrides.t @@ -31,7 +31,7 @@ BEGIN is oct(@_), "16", 'bigint oct override provides scalar context'; SKIP: { - skip "no lexical hex/oct", 2 unless $] > 5.009004; + skip "no lexical hex/oct", 2 unless $] > do { no bigint; 5.009004}; is ref hex(1), 'Math::BigInt', 'bigint hex() works when bignum and bigrat are loaded'; is ref oct(1), 'Math::BigInt', @@ -108,5 +108,5 @@ is $oct_called, 1, 'existing oct overrides are called'; ::is \&hex, \&bigint::hex, 'bigrat exports same hex as bigint'; ::is \&oct, \&bigint::oct, 'bigrat exports same oct as bigint'; } -is ref hex 0, "", 'hex export is not global'; -is ref oct 0, "", 'oct export is not global'; +is ref(hex 0), "", 'hex export is not global'; +is ref(oct 0), "", 'oct export is not global'; |