vms specific tweak to new selfstubber.t

Message-ID: <Pine.OSF.4.10.10104261738370.338047-100000@aspara.forte.com>

p4raw-id: //depot/perl@9876

diff --git a/t/lib/selfstubber.t b/t/lib/selfstubber.t
index f545024..fd0cf06 100644 (file)
--- a/t/lib/selfstubber.t
+++ b/t/lib/selfstubber.t
@@ -107,6 +107,11 @@ close FH;
 # "wrong" and "right" may change if SelfLoader is changed.
 my %wrong = ( Parent => 'Parent', Child => 'Parent' );
 my %right = ( Parent => 'Parent', Child => 'Child' );
+if ($^O eq 'VMS') {
+    # extra line feeds for MBX IPC
+    %wrong = ( Parent => "Parent\n", Child => "Parent\n" );
+    %right = ( Parent => "Parent\n", Child => "Child\n" );
+}
 my @module = qw(Parent Child)
 ;
 sub fail {