Lines Matching refs:write_file
15 write_file('bleah.pm',@_);
47 sub write_file {
133 write_file('bleah.pm', "print 'ok $i - require bleah.pm\n'; 1;\n");
148 write_file($flag_file, 1);
151 write_file('bleah.pm', "unlink '$flag_file' or die; \$a=0; \$b=1/\$a; 1;\n");
170 write_file($flag_file, 1);
171 write_file('bleah.pm', "unlink '$flag_file'; 1");
188 write_file("bleah.do", <<EOT);
198 write_file('bleah.pm', <<'**BLEAH**'
239 write_file('bleah.pm', qq(die "This is an expected error";\n));
250 write_file($file, <<"EOT");
275 write_file('urkkk.pm', qq(print "ok $simple - urkkk.pm branch A\n"));
276 write_file('whap.pmc', qq(die "This is not an expected error"));
281 write_file('krunch.pm', qq(print "ok $pmc_older - krunch.pm branch A\n"));
283 write_file('whap.pm', qq(die "This is an expected error"));
286 write_file('krunch.pmc', qq(print "ok $pmc_older - krunch.pm branch B\n";));
288 write_file('whap.pmc', qq(die "This is an expected error"));
294 write_file('urkkk.pmc', qq(print "ok $simple - urkkk.pm branch B\n";));
343 write_file('bleah.pm',"package F; \$x = '\xD1\x9E';\n");
353 write_file('bleah.pm',"require re; re->import('/x'); 1;\n");
451 write_file("$pack_name.pm", $this_code);
515 … write_file('blorn.pm', "package blorn;\nuse v5.37;\nsub foo {};\nno feature 'module_true';\n");
528 write_file('blunge.pm', "package blunge;\nuse feature ':5.38';\n".
543 write_file("$pack.pm", sprintf(<<'CODE', $pack)=~s/^#//mgr);