db/prgsrc/dump2dump.pl - diff

Return to dump2dump.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.3, 2001/11/01 01:44:59	version 1.4, 2002/01/13 00:32:12
Line 86 foreach my $id (values %id)	Line 86 foreach my $id (values %id)

sub s	sub s
{	{
	!!!! Ne doizmeneno!!!!!!!!!
my $a=shift;	my $a=shift;
my $unpacked=unpack("S",$a);	my $unpacked=unpack("L",$a);
$unpacked=$id{$unpacked};	my $field=$unpacked && 0xF;
my $packed=pack("S",$unpacked);	$unpacked=$id{(($unpacked & 0xF0) << 12) + $unpacked & 0xFFFF};
	my $packed=$field \| $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF);
$packed;	$packed;
}	}