summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm
blob: 170475dafab9d3b91afb4d2882dae5536e37c162 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
package Math::Int64::native_if_available;

sub import {
    if (Math::Int64::_backend() eq 'IV' and $] >= 5.008) {
        Math::Int64::_set_may_use_native(1);
        $^H{Math::Int64::native_if_available} = 1;
    }
}

sub unimport {
    undef $^H{Math::Int64::native_if_available};
}

1;