Lines Matching defs:scriptname
2146 const char *scriptname = NULL;
2292 scriptname = BIT_BUCKET;
2458 if (!scriptname)
2459 scriptname = argv[0];
2462 scriptname = BIT_BUCKET; /* don't look for script or read stdin */
2464 else if (scriptname == NULL) {
2465 scriptname = "-";
2474 rsfp = open_script(scriptname, dosearch, &suidscript);
4100 S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript)
4116 scriptname = PL_origfilename = find_script(scriptname, dosearch, NULL, 1);
4117 s = scriptname + strlen(scriptname);
4119 if (strBEGINs(scriptname, "/dev/fd/")
4120 && isDIGIT(scriptname[8])
4121 && grok_atoUV(scriptname + 8, &uv, &s)
4146 scriptname = savepv(s + 1);
4148 PL_origfilename = (char *)scriptname;
4156 scriptname = (char *)"";
4160 else if (!*scriptname) {
4180 if (strEQ(scriptname, BIT_BUCKET)) {
4183 scriptname = tmpname;
4189 rsfp = PerlIO_open(scriptname,PERL_SCRIPT_MODE);
4191 if ( strBEGINs(scriptname, FAKE_BIT_BUCKET_PREFIX)
4192 && strlen(scriptname) == sizeof(tmpname) - 1)
4194 unlink(scriptname);
4196 scriptname = BIT_BUCKET;