Lines Matching refs:write_file
11 write_file('bleah.pm',@_);
41 sub write_file {
127 write_file('bleah.pm', "print 'ok $i - require bleah.pm\n'; 1;\n");
142 write_file($flag_file, 1);
145 write_file('bleah.pm', "unlink '$flag_file' or die; \$a=0; \$b=1/\$a; 1;\n");
164 write_file($flag_file, 1);
165 write_file('bleah.pm', "unlink '$flag_file'; 1");
182 write_file("bleah.do", <<EOT);
192 write_file('bleah.pm', <<'**BLEAH**'
232 write_file('bleah.pm', qq(die "This is an expected error";\n));
243 write_file($file, <<"EOT");
268 write_file('urkkk.pm', qq(print "ok $simple - urkkk.pm branch A\n"));
269 write_file('whap.pmc', qq(die "This is not an expected error"));
274 write_file('krunch.pm', qq(print "ok $pmc_older - krunch.pm branch A\n"));
276 write_file('whap.pm', qq(die "This is an expected error"));
279 write_file('krunch.pmc', qq(print "ok $pmc_older - krunch.pm branch B\n";));
281 write_file('whap.pmc', qq(die "This is an expected error"));
287 write_file('urkkk.pmc', qq(print "ok $simple - urkkk.pm branch B\n";));
336 write_file('bleah.pm',"package F; \$x = '\xD1\x9E';\n");
346 write_file('bleah.pm',"require re; re->import('/x'); 1;\n");