This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
mktables: Calculate legal chars in algorithmic names
[perl5.git]
/
os2
/
os2_pipe.t
diff --git
a/os2/os2_pipe.t
b/os2/os2_pipe.t
index
208d376
..
37aa409
100644
(file)
--- a/
os2/os2_pipe.t
+++ b/
os2/os2_pipe.t
@@
-164,7
+164,7
@@
$pid = system 4|0x40000, $^X, '-wle', <<'EOS', $pname, $$; # SESSION|INDEPENDENT
EOS
ok $pid, 'kid started';
-sleep 2; # XXX How to syncronize with kid???
+sleep 2; # XXX How to sync
h
ronize with kid???
$in = scalar <$server_pipe>;
my $ok1 = ($in || '') eq "Is your pid $$?\n";
is $in, "Is your pid $$?\n", 'call in';