sgs/lari/lari.pl

38 use vars  qw(%Symbols %Objects %Versioned %DemSyms %ObjFltrs %SymFltes);
521 		%Objects = ();
630 				$Objects{$DstFile}{$SymName} |= $Self;
635 				$Objects{$DstFile}{$SymName} |= $Extn;
646 				$Objects{$DstFile}{$SymName} |= $Dirc;
650 				$Objects{$DstFile}{$SymName} |= $Cpyr;
654 				$Objects{$DstFile}{$SymName} |= $Gfte;
658 				$Objects{$DstFile}{$SymName} |= $Intp;
662 				$Objects{$DstFile}{$SymName} |= $Plta;
666 				$Objects{$DstFile}{$SymName} |= $Rejt;
670 				$Objects{$DstFile}{$SymName} |= $User;
694 			for my $Obj (keys(%Objects)) {
701 			if (!exists($Objects{$Filtee})) {
709 			for my $SymName (keys(%{$Objects{$Filtee}})) {
750 		for my $Obj (keys(%Objects)) {
757 		if (!exists($Objects{$FullPath})) {
784 		foreach my $Obj (keys(%Objects)) {
814 			foreach my $SymName (sort(keys(%{$Objects{$Obj}}))) {
815 				my ($Flag) = $Objects{$Obj}{$SymName};
847 				    (sort(keys(%{$Objects{$Obj}}))) {
848 					my ($Flag) = $Objects{$Obj}{$SymName};
1220 	if ($Objects{$Obj}) {
1374 			$Objects{$Obj}{$SymName} |= $Cpyr;
1407 				$Objects{$Obj}{$SymName} |= $Flags;
1437 		$Objects{$Obj}{"DoesNotExist"} = 0;
1519 		$Objects{$Obj}{$Fields[8]} |= $Flags;
1535 				$Objects{$Obj}{$AliasName} |= $Cpyr;