Merge pull request #145 from zmughal-contrib/xs-int

XS for Int is faster inline
tobyink · Sep 8, 2024 · 39a5c7e · 39a5c7e
2 parents c804cda + 548feb2
commit 39a5c7e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/lib/Types/Standard.pm b/lib/Types/Standard.pm
@@ -112,6 +112,7 @@ my $add_core_type = sub {
 			# equivalents
 			$name eq 'Str'
 			or $name eq 'Bool'
+			or $name eq 'Int'
 			or $name eq 'ClassName'
 			or $name eq 'RegexpRef'
 			or $name eq 'FileHandle'

diff --git a/t/20-modules/Type-Params/strictness.t b/t/20-modules/Type-Params/strictness.t
@@ -22,6 +22,8 @@ the same terms as the Perl 5 programming language system itself.
 use strict;
 use warnings;
 
+BEGIN { $ENV{PERL_TYPE_TINY_XS} = 0; }
+
 use Test::More;
 use Test::Fatal;