diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm b/Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm new file mode 100755 index 00000000000..170475dafab --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm @@ -0,0 +1,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; |