Without the enclosed patch:
$ perl lib/selfstubber.t;1
1..7
ok 1
ok 2
ok 3
ok 4
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSI-94177" Parent--94177
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSI-94177" Child--94177
# Child expect 'Parent' got 'Parent
'
# Parent expect 'Parent' got 'Parent
'
not ok 5
ok 6
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSO-94177" Parent--94177
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSO-94177" Child--94177
# Child expect 'Child' got 'Child
'
# Parent expect 'Parent' got 'Parent
'
not ok 7
With the enclosed patch:
$ perl lib/selfstubber.t
1..7
ok 1
ok 2
ok 3
ok 4
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSI-94177" Parent--94177
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSI-94177" Child--94177
ok 5
ok 6
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSO-94177" Parent--94177
# dra3:[perl.][000000]perl.exe;1 "-I../lib" "-ISSO-94177" Child--94177
ok 7
Of course this was not the only way to do it I suppose. You might have
wanted instead to =~ s/^\n$// any trailing blank line garbage instead.
Please let me know if you would prefer such a reformulation.
--- perl_9865/t/lib/selfstubber.t.orig Wed Apr 25 19:41:05 2001
+++ perl_9865/t/lib/selfstubber.t Thu Apr 26 17:34:07 2001
@@ -83,6 +83,11 @@
# "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 {
End of Patch.
Peter Prymmer
