When invoking this version of grepmail with perl 5.8.0 all output start with:
Useless (?g) - use /g modifier in regex; marked by <-- HERE in m/(?mg
+<-- HERE x)^(From\s.*\d:\d\d:\d\d\s\d{4}|
From\s.*\d:\d\d:\d\d\s\d{4}\s[+-]\d{
+4}|
From\s.*\d:\d\d\s.*\w{2,3}\s\d{4})$/
+ at ./grepmail.orig line 163.
You can use following diff which reduces number of failing test to 55:)
diff grepmail.orig grepmail
161c161
< while($READ_BUFFER =~ m/(?mgx)^(From\s.*\d:\d\d:\d\d\s\d{4}|
---
> while($READ_BUFFER =~ m/(?mx)^(From\s.*\d:\d\d:\d\d\s\d{4}|