![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to delRS.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to delRS.pl CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.2, 2001/12/21 11:54:37 | version 1.3, 2002/01/13 00:32:12 |
|---|---|
| Line 83 close (OUTDUMP); | Line 83 close (OUTDUMP); |
| sub s | sub s |
| { | { |
| my ($s1,$s2,$s3,$kvo) = @_; | my ($s1,$s2,$s3,$kvo) = @_; |
| $unpacked=unpack("S",$s2); | $unpacked=unpack("S",$s2)|(($s1 & 0xF0) << 12); |
| my $id=$outid{$unpacked}; | my $id=$outid{$unpacked}; |
| if (!$id) {$$kvo-=4;return ""} else {return "$s1$s2$s3"} | if (!$id) {$$kvo-=4;return ""} else {return "$s1$s2$s3"} |