In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/71aef03063d8a31440de0007b74be1e03f6cb450?hp=ab50f992f5e287f719dfe1f20969ce4cf04e0090>
- Log ----------------------------------------------------------------- commit 71aef03063d8a31440de0007b74be1e03f6cb450 Author: Craig A. Berry <[email protected]> Date: Mon Nov 13 18:52:38 2017 -0600 Make perlbug.t forgiving about newlines. On VMS, pipes often introduce extra newlines, so the test infrastructure deduplicates them, which then makes it impossible to check for more than one. So just check for one or more. ----------------------------------------------------------------------- Summary of changes: lib/perlbug.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/perlbug.t b/lib/perlbug.t index d4f1116972..bb6180bcfa 100644 --- a/lib/perlbug.t +++ b/lib/perlbug.t @@ -158,7 +158,7 @@ $result = runperl( progfile => $extracted_program, stderr => 1, args => ['-o'] ) like($result, qr/^\s*This program is designed/, "No leading error messages with help from invalid arg."); $result = runperl( progfile => $extracted_program, stderr => 1, args => ['--help'] ); # Invalid option -like($result, qr/^\s*perlbug version \d+\.\d+\n\nThis program is designed/, "No leading error messages with help from --help and version is displayed."); +like($result, qr/^\s*perlbug version \d+\.\d+\n+This program is designed/, "No leading error messages with help from --help and version is displayed."); $result = runperl( progfile => $extracted_program, stderr => 1, args => ['--version'] ); # Invalid option like($result, qr/^perlbug version \d+\.\d+\n$/, "No leading error messages with --version"); -- Perl5 Master Repository
