From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 1 Dec 1999 18:42:38 +0000 (+0000)
Subject: find_byclass() prototype was incoherent
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c3eec57473df2067943d3a2bb444a3e95a38412;p=p5sagit%2Fp5-mst-13.2.git

find_byclass() prototype was incoherent

p4raw-id: //depot/perl@4608
---

diff --git a/regexec.c b/regexec.c
index f1b3590..9c0ef17 100644
--- a/regexec.c
+++ b/regexec.c
@@ -745,8 +745,8 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 }
 
 /* We know what class REx starts with.  Try to find this position... */
-static char *
-find_byclass(regexp * prog, regnode *c, char *s, char *strend, char *startpos, I32 norun)
+STATIC char *
+S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *startpos, I32 norun)
 {
 	I32 doevery = (prog->reganch & ROPT_SKIP) == 0;
 	char *m;
@@ -1221,11 +1221,8 @@ find_byclass(regexp * prog, regnode *c, char *s, char *strend, char *startpos, I
 	    }
 	    break;
 	default:
-	    {
-		dTHX;
-		Perl_croak(aTHX_ "panic: unknown regstclass %d", (int)OP(c));
-		break;
-	    }
+	    Perl_croak(aTHX_ "panic: unknown regstclass %d", (int)OP(c));
+	    break;
 	}
 	return 0;
       got_it: