4984b43ef1
the bytes.pm pragma, which is the only thing that the new version of Net::DNS needs from 5.6+ that isn't in 5.005.03.
43 lines
848 B
Perl
43 lines
848 B
Perl
# This is the file from Perl 5.8.7, installed
|
|
# by the p5-Net-DNS module for Perl < 5.6.
|
|
|
|
package bytes;
|
|
|
|
sub length ($) {
|
|
BEGIN { bytes::import() }
|
|
return CORE::length($_[0]);
|
|
}
|
|
|
|
sub substr ($$;$$) {
|
|
BEGIN { bytes::import() }
|
|
return
|
|
@_ == 2 ? CORE::substr($_[0], $_[1]) :
|
|
@_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
|
|
CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
|
|
}
|
|
|
|
sub ord ($) {
|
|
BEGIN { bytes::import() }
|
|
return CORE::ord($_[0]);
|
|
}
|
|
|
|
sub chr ($) {
|
|
BEGIN { bytes::import() }
|
|
return CORE::chr($_[0]);
|
|
}
|
|
|
|
sub index ($$;$) {
|
|
BEGIN { bytes::import() }
|
|
return
|
|
@_ == 2 ? CORE::index($_[0], $_[1]) :
|
|
CORE::index($_[0], $_[1], $_[2]) ;
|
|
}
|
|
|
|
sub rindex ($$;$) {
|
|
BEGIN { bytes::import() }
|
|
return
|
|
@_ == 2 ? CORE::rindex($_[0], $_[1]) :
|
|
CORE::rindex($_[0], $_[1], $_[2]) ;
|
|
}
|
|
|
|
1;
|