diff options
Diffstat (limited to 'src/pl')
| -rw-r--r-- | src/pl/plperl/text2macro.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pl/plperl/text2macro.pl b/src/pl/plperl/text2macro.pl index 577417ac7ac..c6240af69c7 100644 --- a/src/pl/plperl/text2macro.pl +++ b/src/pl/plperl/text2macro.pl @@ -88,11 +88,11 @@ sub selftest close $fh; system("perl $0 --name=X $tmp.pl > $tmp.c") == 0 or die; - open $fh, '>>', "$tmp.c"; + open $fh, '>>', "$tmp.c" or die; print $fh "#include <stdio.h>\n"; print $fh "int main() { puts(X); return 0; }\n"; close $fh; - system("cat -n $tmp.c"); + system("cat -n $tmp.c") == 0 or die; system("make $tmp") == 0 or die; open $fh, '<', "./$tmp |" or die; |