| 1 | |
| 2 | |
| 3 | |
| 4 | { |
| 5 | no warnings 'once'; |
| 6 | local $::main::QueueID = 'wookie'; |
| 7 | - like(::main::gen_msgid_header(), qr/Message-ID: <\d{12}\.wookie\@[-a-zA-Z0-9\.]+>\n/, 'Got Message-ID header in correct format'); |
| 8 | + like(::main::gen_msgid_header(), qr/Message-ID: <\d{12}\.wookie\@[-_a-zA-Z0-9\.]+>\n/, 'Got Message-ID header in correct format'); |
| 9 | } |
| 10 | |
| 11 | sub t_time_str: Test(1) |