diff options
| author | Craig A. Berry <craigberry@mac.com> | 2017-11-13 18:52:38 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2017-11-13 18:52:38 -0600 |
| commit | 71aef03063d8a31440de0007b74be1e03f6cb450 (patch) | |
| tree | e2f98dbc34fb59a93cd199d6340a4f654a348b76 /lib | |
| parent | ab50f992f5e287f719dfe1f20969ce4cf04e0090 (diff) | |
| download | perl-71aef03063d8a31440de0007b74be1e03f6cb450.tar.gz | |
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.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perlbug.t | 2 |
1 files changed, 1 insertions, 1 deletions
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"); |