Commit | Line | Data |
---|---|---|
e8c18a84 TC |
1 | __END__ |
2 | # pp_sys.c | |
3 | # NAME pipe() croaks on bad left side [perl #126480] | |
4 | # SKIP ? use Config; !$Config{d_pipe} && "No pipe() available" | |
5 | my $fh; | |
6 | pipe($$5, $fh) | |
7 | EXPECT | |
8 | Bad symbol for filehandle at - line 3. | |
9 | ######## | |
10 | # NAME pipe() croaks on bad right side [perl #126480] | |
11 | # SKIP ? use Config; !$Config{d_pipe} && "No pipe() available" | |
12 | my $fh; | |
13 | pipe($fh, $$5) | |
14 | EXPECT | |
15 | Bad symbol for filehandle at - line 2. | |
16 | ######## |