Lines Matching refs:case
143 my $case = " ";
144 $$hashref{$case} = "";
155 $$hashref{$case} = $$hashref{$case} . $line;
158 $case = trim($lastline);
159 exists $$hashref{$case} and die "Header '$case' already exists";
160 $$hashref{$case} = $line;
165 if ($case eq " ") {
166 $$hashref{$case} = $$hashref{$case} . $lastline;
170 trim($lastline) eq "" or die ("Odd non-pattern line '$lastline' for '$case'");
173 $$hashref{$case} = $$hashref{$case} . $lastline;