perl 5.0 alpha 9perl-5a9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 0 insertions, 53 deletions

diff --git a/match_stuff b/match_stuff
deleted file mode 100644
index b13d2b7bb6..0000000000
--- a/match_stuff
+++ /dev/null
@@ -1,53 +0,0 @@
-    len = sv->sv_cur;
-    e = sv->sv_ptr + len;
-    if (delim == '\'')
-	d = e;
-    else
-	d = sv->sv_ptr;
-    for (; d < e; d++) {
-	if (*d == '\\')
-	    d++;
-	else if ((*d == '$' && d[1] && d[1] != '|' && d[1] != ')') ||
-		 (*d == '@')) {
-	    lex_stuff = newSVsv(sv);
-	    d = scan_ident(d,bufend,buf,FALSE);
-	    (void)gv_fetchpv(buf,TRUE);		/* make sure it's created */
-	    for (; d < e; d++) {
-		if (*d == '\\')
-		    d++;
-		else if (*d == '$' && d[1] && d[1] != '|' && d[1] != ')') {
-		    d = scan_ident(d,bufend,buf,FALSE);
-		    (void)gv_fetchpv(buf,TRUE);
-		}
-		else if (*d == '@') {
-		    d = scan_ident(d,bufend,buf,FALSE);
-		    if (strEQ(buf,"ARGV") || strEQ(buf,"ENV") ||
-		      strEQ(buf,"SIG") || strEQ(buf,"INC"))
-			(void)gv_fetchpv(buf,TRUE);
-		}
-	    }
-	    pm->op_pmflags |= PMf_RUNTIME;
-	    goto got_pat;		/* skip compiling for now */
-	}
-    }
-    if (pm->op_pmflags & PMf_FOLD)
-	StructCopy(pm, &savepm, PMOP);
-    scan_prefix(pm,sv->sv_ptr,len);
-    if ((pm->op_pmflags & PMf_ALL) && (pm->op_pmflags & PMf_SCANFIRST)) {
-	fbm_compile(pm->op_pmshort, pm->op_pmflags & PMf_FOLD);
-	pm->op_pmregexp = regcomp(sv->sv_ptr,sv->sv_ptr+len,
-	    pm->op_pmflags & PMf_FOLD);
-		/* Note that this regexp can still be used if someone says
-		 * something like /a/ && s//b/;  so we can't delete it.
-		 */
-    }
-    else {
-	if (pm->op_pmflags & PMf_FOLD)
-	    StructCopy(&savepm, pm, PMOP);
-	if (pm->op_pmshort)
-	    fbm_compile(pm->op_pmshort, pm->op_pmflags & PMf_FOLD);
-	pm->op_pmregexp = regcomp(sv->sv_ptr,sv->sv_ptr+len,
-	    pm->op_pmflags & PMf_FOLD);
-	hoistmust(pm);
-    }
-  got_pat: