[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / bytes_heavy.pl

package bytes;

sub length ($) {
    BEGIN { bytes::import() }
    return CORE::length($_[0]);
}

1;
Commit	Line	Data
86530b38 AT	1	package bytes;
	2
	3	sub length ($) {
	4	BEGIN { bytes::import() }
	5	return CORE::length($_[0]);
	6	}
	7
	8	1;