MINI
C:
/
app
/
Administrator
/
product
/
11.2.0
/
dbhome_1
/
perl
/
lib
/
ExtUtils
/
MakeMaker
/
Upload File:
files >> C:/app/Administrator/product/11.2.0/dbhome_1/perl/lib/ExtUtils/MakeMaker/bytes.pm
package ExtUtils::MakeMaker::bytes; use strict; use vars qw($VERSION); $VERSION = 6.42; my $Have_Bytes = eval q{require bytes; 1;}; sub import { return unless $Have_Bytes; shift; unshift @_, 'bytes'; goto &bytes::import; } 1; =head1 NAME ExtUtils::MakeMaker::bytes - Version-agnostic bytes.pm =head1 SYNOPSIS use just like bytes.pm =head1 DESCRIPTION bytes.pm was introduced with 5.6. This means any code which has 'use bytes' in it won't even compile on 5.5.X. Since bytes is a lexical pragma and must be used at compile time we can't simply wrap it in a BEGIN { eval 'use bytes' } block. ExtUtils::MakeMaker::bytes is just a very thin wrapper around bytes which works just like it when bytes.pm exists and everywhere else it does nothing. =cut
Copyright ©2021 || Defacer Indonesia