Lines Matching refs:lastpath
58 my(@hf, @mypoints, @lines, $firstpath, $lastpath, @path, $origin);
59 my(@lastpath, $net, @origin, $msgid, $msgidfrom, $approved, $path);
159 $firstpath = $lastpath = $origin = $msgidfrom = "";
162 $lastpath = pop(@path);
163 $lastpath =~ s/^\x01PATH: //;
164 @lastpath = split(/\s+/, $lastpath);
165 foreach(@lastpath)
168 $lastpath = $_;
170 $lastpath = "2:$lastpath" if $lastpath;
171 @lastpath = ();
201 { unless ($lastpath =~ m/^2:50/)
550 $path = $lastpath = "";
553 next if $lastpath eq $1;
554 $lastpath = $1;