diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-10-09 18:32:41 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-10-09 18:32:41 -0500 |
| commit | 314655b3bf3a78f53857298857fbdc053e783117 (patch) | |
| tree | f61e1b2dfee2388bb4fa2c2f980a3e5131a64afb /lib/perl5db.t | |
| parent | e8b231c6829a16740f05a666243bfc33e1ac1514 (diff) | |
| download | perl-314655b3bf3a78f53857298857fbdc053e783117.tar.gz | |
Make the new perl5db.t taint test work on VMS.
Follow-up to 07004ebbe530fe5ce1c67e63c0b8e1c0aa77b3b9.
Diffstat (limited to 'lib/perl5db.t')
| -rw-r--r-- | lib/perl5db.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index b2f72661c6..441913676e 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -173,6 +173,7 @@ SKIP: { local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1"; my $output = runperl(switches => [ '-d', '-T' ], stderr => 1, progfile => '../lib/perl5db/t/taint'); + chomp $output if $^O eq 'VMS'; # newline guaranteed at EOF is($output, '[$^X][done]', "taint"); } |