Lines Matching refs:slurp
640 local($slurp, $answer_matched) = ('', 0);
644 $slurp = &read_file_into_string ($logfile);
648 $slurp =~ s/^.*modification time .*in the future.*\n//gm;
649 $slurp =~ s/^.*Clock skew detected.*\n//gm;
653 if ($slurp eq $answer) {
662 $slurp =~ tr,\\,/,;
663 $slurp =~ s,\r\n,\n,gs;
665 $answer_matched = ($slurp eq $answer_mod);
700 local ($slurp) = <RFISFILE>;
705 return $slurp;
