%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /backups/router/usr/local/lib/perl5/site_perl/mach/5.36/sys/
Upload File :
Create Path :
Current File : //backups/router/usr/local/lib/perl5/site_perl/mach/5.36/sys/crc16.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

require 'sys/types.ph';
unless(defined(&_SYS_CRC16_H_)) {
    eval 'sub _SYS_CRC16_H_ () {1;}' unless defined(&_SYS_CRC16_H_);
    eval 'sub crc16 {
        my($crc,$buffer,$len) = @_;
	    eval q({  &const my $char * &cp = $buffer;  &while ($len--) $crc = ((($crc >> 8) & 0xff) ^  $crc16_table[($crc ^ * &cp++) & 0xff]) & 0xffff; $crc; });
    }' unless defined(&crc16);
}
1;

Zerion Mini Shell 1.0