#!./perl
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+}
+
# $RCSfile$
$| = 1;
-$^W = 1;
+use warnings;
$Is_VMS = $^O eq 'VMS';
print "1..66\n";
{
local *F;
for (1..2) {
- open(F, "echo #foo|") or print "not ";
+ open(F, "echo \\#foo|") or print "not ";
print <F>;
close F;
}
ok;
for (1..2) {
- open(F, "-|", "echo #foo") or print "not ";
+ open(F, "-|", "echo \\#foo") or print "not ";
print <F>;
close F;
}