#!./perl
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+}
+
# $RCSfile$
$| = 1;
-$^W = 1;
+use warnings;
$Is_VMS = $^O eq 'VMS';
print "1..66\n";
# 24..26
if ($Is_VMS) {
- for (24..26) { print "ok $_ # skipped: not Unix fork\n"; }
+ for (24..26) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
}
else {
print "# \$!='$!'\nnot " unless open(my $f, '-|', <<'EOC');
# 27..30
if ($Is_VMS) {
- for (27..30) { print "ok $_ # skipped: not Unix fork\n"; }
+ for (27..30) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
}
else {
print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC');
# 56..58
if ($Is_VMS) {
- for (56..58) { print "ok $_ # skipped: not Unix fork\n"; }
+ for (56..58) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
}
else {
print "# \$!='$!'\nnot " unless open(local $f, '-|', <<'EOC');
# 59..62
if ($Is_VMS) {
- for (59..62) { print "ok $_ # skipped: not Unix fork\n"; }
+ for (59..62) { print "ok $_ # skipped: not Unix fork\n"; $test++;}
}
else {
print "# \$!='$!'\nnot " unless open(local $f, '|-', <<'EOC');
# 65..66
{
local *F;
- for (1..2) { open(F, "echo #foo|") or print "not "; }
- ok;
- for (1..2) { open(F, "-|", "echo #foo") or print "not "; }
+ for (1..2) {
+ open(F, "echo \\#foo|") or print "not ";
+ print <F>;
+ close F;
+ }
+ ok;
+ for (1..2) {
+ open(F, "-|", "echo \\#foo") or print "not ";
+ print <F>;
+ close F;
+ }
ok;
}