Lines Matching refs:script

26 my @script = (
38 push @script, "{ my \$t=$test; ".q{
83 push(@script, <<'EOT');
91     push(@script, qq(print "ok $test\\n"}\n));
94 push(@script, <<'EOT');
104     push(@script, qq(print "ok $test\\n"}\n));
107 push(@script, <<'EOT');
117     push(@script, qq(print "ok $test\\n"}\n));
137 push(@script, $constants);
145 	push(@script, <<EOT);
151         push(@script, qq(print "ok $test\\n";\n));
160 	push(@script, <<EOT);
166         push(@script, qq(print "ok $test\\n";\n));
204 	push(@script, <<EOT);
210         push(@script, qq(print "ok $test\\n";\n));
218     push @script, <<EOS;
224     push @script, <<EOS;
231     push @script, <<EOS;
238     push @script, <<EOS;
249     push @script, <<EOS;
256     push @script, <<EOS;
265     push @script, <<EOS;
274     push @script, <<EOS;
281     push @script, <<EOS;
290     push @script, <<EOS;
299     push @script, <<EOS;
308     push @script, <<EOS;
317     push @script, <<EOS;
324     push @script, <<EOS;
335     push @script, <<EOS;
343     push @script, <<EOS;
351     push @script, <<EOS;
359     push @script, <<EOS;
367     push @script, <<EOS;
375     push @script, <<EOS;
384     push @script, <<'EOS';
390     push @script, <<EOS;
396     push @script, <<EOS;
401     push @script, <<EOS;
407     push @script, <<EOS;
412     push @script, <<EOS;
418     push @script, <<EOS;
423     push @script, <<EOS;
429     push @script, <<EOS;
436     push @script, <<'EOS';
444 	    push @script, <<EOS;
449     push @script, <<'EOS';
453     push @script, <<EOS;
457     push @script, <<EOS;
461     push @script, <<EOS;
465     push @script, <<EOS;
483 eval join '', @script;
489 	push(@script, qq(print "# $op=\n";));
500 		push @script, "\$z$i = $val;\n";
505 		push @script, "\$res = $try; ";
506 		push @script, "check($test, $args[0], \$res, \$z$#args, $args);\n";
516 		push @script, "\$res = $try; ";
517 		push @script, "check($test, '$try', \$res, \$z$#args, $args);\n";
521 			push @script, <<EOB;
536 			push @script, qq(print "not " unless (\$zbr == \$z1r and \$zbi == \$z1i););
537 			push @script, qq(print "ok $test\\n";\n);
538 			push @script, "}\n";
553 		push @script, "\$s$i = $val;\n";