diff options
| author | Tony Cook <tony@develop-help.com> | 2014-02-11 16:42:57 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-02-19 10:01:50 +1100 |
| commit | f33104554559fbfcadf9819544fc60f7d290b122 (patch) | |
| tree | d33929a09318b767a06ef37468630c54136bc975 /lib | |
| parent | 351ec230d480130439db26b86b4e19da52a96028 (diff) | |
| download | perl-f33104554559fbfcadf9819544fc60f7d290b122.tar.gz | |
[perl #121081] workaround different output on VMS
VMS is a special snowflake, deal with the slightly different debugger
output it produces.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 9ef7aaa370..3af7f64e6e 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -1505,10 +1505,11 @@ DebugWrap->new({ } ); + my $nl = $^O eq 'VMS' ? "" : "\\\n"; $wrapper->output_like(qr# - \nVar<Q>=1\n - \nVar<Q>=2\n - \nVar<Q>=3\n + \nVar<Q>=1$nl + \nVar<Q>=2$nl + \nVar<Q>=3 #msx, "a command is working", ); @@ -2278,7 +2279,7 @@ DebugWrap->new({ ); $wrapper->output_like(qr# - ^This\ program\ dies\.\ at\ \S+\ line\ 18\.\n + ^This\ program\ dies\.\ at\ \S+\ line\ 18\N*\.\n .*? ^\s+main::baz\(\)\ called\ at\ \S+\ line\ 13\n \s+main::bar\(\)\ called\ at\ \S+\ line\ 7\n @@ -2303,7 +2304,7 @@ DebugWrap->new({ ); $wrapper->contents_like(qr# - ^This\ is\ not\ a\ warning\.\ at\ \S+\ line\ 18\.\n + ^This\ is\ not\ a\ warning\.\ at\ \S+\ line\ 18\N*\.\n .*? ^\s+main::baz\(\)\ called\ at\ \S+\ line\ 13\n \s+main::bar\(\)\ called\ at\ \S+\ line\ 25\n |