[p5sagit/p5-mst-13.2.git] / t / op.exec

#!./perl

# $Header: op.exec,v 1.0 87/12/18 13:13:26 root Exp $

$| = 1;				# flush stdout
print "1..4\n";

system "echo ok \\1";		# shell interpreted
system "echo ok 2";		# split and directly called
system "echo", "ok", "3";	# directly called

exec "echo","ok","4";
Commit	Line	Data
8d063cd8	1	#!./perl
	2
	3	# $Header: op.exec,v 1.0 87/12/18 13:13:26 root Exp $
	4
	5	$\| = 1; # flush stdout
	6	print "1..4\n";
	7
	8	system "echo ok \\1"; # shell interpreted
	9	system "echo ok 2"; # split and directly called
	10	system "echo", "ok", "3"; # directly called
	11
	12	exec "echo","ok","4";