my $runperl = "$^X \"-I../lib\"";
+# ensure correct output ordering for system() calls
+
+select STDERR; $| = 1; select STDOUT; $| = 1;
+
print "1..12\n";
my @cleanup;
# "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 {
}
# Check that the DATA handle stays open
-system "$runperl -w \"-I$lib\" -MData -e Data::ok";
+system "$runperl -w \"-I$lib\" \"-MData\" -e \"Data::ok\"";
# Possibly a pointless test as this doesn't really verify that it's been
# stubbed.
-system "$runperl -w \"-I$lib\" -MEnd -e End::lime";
+system "$runperl -w \"-I$lib\" \"-MEnd\" -e \"End::lime\"";
# But check that the documentation after the __END__ survived.
open FH, "$lib/End.pm" or die $!;