Lines Matching defs:scriptname

2190     const char *scriptname = NULL;
2349                 scriptname = BIT_BUCKET;
2515     if (!scriptname)
2516         scriptname = argv[0];
2519         scriptname = BIT_BUCKET;	/* don't look for script or read stdin */
2521     else if (scriptname == NULL) {
2522         scriptname = "-";
2531         rsfp = open_script(scriptname, dosearch, &suidscript);
4149 S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript)
4165         scriptname = PL_origfilename = find_script(scriptname, dosearch, NULL, 1);
4166         s = scriptname + strlen(scriptname);
4168         if (strBEGINs(scriptname, "/dev/fd/")
4169             && isDIGIT(scriptname[8])
4170             && grok_atoUV(scriptname + 8, &uv, &s)
4195                 scriptname = savepv(s + 1);
4197                 PL_origfilename = (char *)scriptname;
4205         scriptname = (char *)"";
4209     else if (!*scriptname) {
4229         if (strEQ(scriptname, BIT_BUCKET)) {
4232                 scriptname = tmpname;
4238         rsfp = PerlIO_open(scriptname,PERL_SCRIPT_MODE);
4240         if (   strBEGINs(scriptname, FAKE_BIT_BUCKET_PREFIX)
4241             && strlen(scriptname) == sizeof(tmpname) - 1)
4243             unlink(scriptname);
4245         scriptname = BIT_BUCKET;