Make the new perl5db.t taint test work on VMS.

Follow-up to 07004ebbe530fe5ce1c67e63c0b8e1c0aa77b3b9.

diff --git a/lib/perl5db.t b/lib/perl5db.t
index b2f7266..4419136 100644 (file)
--- 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");
 }