develooper Front page | perl.perl5.porters | Postings from April 2001

[PATCH: perl@9865] vms specific tweak to new selfstubber.t

Thread Next
From:
Peter Prymmer
Date:
April 26, 2001 17:41
Subject:
[PATCH: perl@9865] vms specific tweak to new selfstubber.t
Message ID:
Pine.OSF.4.10.10104261738370.338047-100000@aspara.forte.com

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



Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About