This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
don't bother testing if we can flush all handles when fflush(stdin)
[perl5.git] / lib / bytes_heavy.pl
CommitLineData
657b208b 1package bytes;
5bc28da9 2
393fec97 3sub length ($) {
657b208b 4 BEGIN { bytes::import() }
393fec97 5 return CORE::length($_[0]);
5bc28da9
NIS
6}
7
81;