This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Teach incfilter.t some DCL.
authorCraig A. Berry <craigberry@mac.com>
Wed, 31 May 2006 03:31:54 +0000 (03:31 +0000)
committerCraig A. Berry <craigberry@mac.com>
Wed, 31 May 2006 03:31:54 +0000 (03:31 +0000)
p4raw-id: //depot/perl@28340

t/op/incfilter.t

index a8db411..f796275 100644 (file)
@@ -72,11 +72,24 @@ do [$fh, sub {s/$_[1]/pass/; return;}, 'fail'] or die;
 
 print "# 2 tests with pipes from subprocesses.\n";
 
-open $fh, 'echo pass|' or die $!;
+my ($echo_command, $pass_arg, $fail_arg);
+
+if ($^O eq 'VMS') {
+    $echo_command = 'write sys$output';
+    $pass_arg = '"pass"';
+    $fail_arg = '"fail"';
+}
+else {
+    $echo_command = 'echo';
+    $pass_arg = 'pass';
+    $fail_arg = 'fail';
+}
+
+open $fh, "$echo_command $pass_arg|" or die $!;
 
 do $fh or die;
 
-open $fh, 'echo fail|' or die $!;
+open $fh, "$echo_command $fail_arg|" or die $!;
 
 do [$fh, sub {s/$_[1]/pass/; return;}, 'fail'] or die;