use E flag for pattern expansion

It is better to reserve e flag for compatibility with Perl s///e.

1 files changed, 1 insertions, 1 deletions

diff --git a/pcre.c b/pcre.c
index ec922b2..9b5ab51 100644
--- a/pcre.c
+++ b/pcre.c
@@ -45,7 +45,7 @@ char *match(const char *name, int argc, char **argv)
 	if (argc > 2) {
 		for (p = argv[2]; *p != '\0'; p++) {
 			switch (*p) {
-			case 'e':
+			case 'E':
 				pat = gmk_expand(argv[0]);
 				break;
 			case 'm':