From: Peter Prymmer <PPrymmer@factset.com>
Date: Thu, 26 Apr 2001 17:41:58 +0000 (-0700)
Subject: vms specific tweak to new selfstubber.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbd00933a3e07892c8b7a8ede0322ba62b44cf84;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {