db/prgsrc/dump2dump.pl - diff

Return to dump2dump.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.4, 2002/01/13 00:32:12	version 1.5, 2002/01/14 01:41:08
Line 86 foreach my $id (values %id)	Line 86 foreach my $id (values %id)

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