Lines Matching refs:line
16 # get the UNAME line for a host, date, suite
19 my(@possible_files, $pf, $line);
44 while ($line = <UF>) {
45 if ($line =~ /^UNAME/) {
47 $line =~ s/UNAME *//;
48 $line =~ s/$inhost//;
49 $uname_cache{"$inhost.$indate"} = $line;
50 return $line;
59 while ($line = <UF>) {
60 if ($line =~ /^UNAME/) {
62 $line =~ s/UNAME="(.*)"/\1/;
63 $line =~ s/$inhost//;
64 $uname_cache{"$inhost.$indate"} = $line;
65 return $line;