summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Math/Int64/native_if_available.pm14
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;