- Timestamp:
- 07/31/08 02:48:12 (5 months ago)
- Files:
-
- 1 modified
-
misc/evalbot/evalbot.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
misc/evalbot/evalbot.pl
r21636 r21642 208 208 my $str = shift; 209 209 if($str =~ /PARSE FAILED/) { 210 my @lines = split /\n/, $str;211 return $lines[1];210 my @lines = grep {!/-+>/ && !/PARSE FAILED/} split /\n/, $str; 211 return join '', @lines; 212 212 } else { 213 213 return 'parse ok';
