diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-09 05:37:48 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-09 05:37:48 +0000 |
| commit | 15e52e56ffc1b4b0632038d47561373c5ca610c4 (patch) | |
| tree | 15aaf7ccef22d054555bbacbab3696f48ba8aab3 /pp_ctl.c | |
| parent | d06ea78cdb5afedf2e1a85ff54e3bfc5c519b3c5 (diff) | |
| download | perl-15e52e56ffc1b4b0632038d47561373c5ca610c4.tar.gz | |
get it building again on win32
p4raw-id: //depot/perl@1394
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -101,7 +101,7 @@ PP(pp_regcomp) } pm->op_pmflags = pm->op_pmpermflags; /* reset case sensitivity */ - pm->op_pmregexp = (*regcompp)(t, t + len, pm); + pm->op_pmregexp = CALLREGCOMP(t, t + len, pm); } } @@ -148,7 +148,7 @@ PP(pp_substcont) sv_catsv(dstr, POPs); /* Are we done */ - if (cx->sb_once || !(*regexecp)(rx, s, cx->sb_strend, orig, + if (cx->sb_once || !CALLREGEXEC(rx, s, cx->sb_strend, orig, s == m, Nullsv, NULL, cx->sb_safebase ? 0 : REXEC_COPY_STR)) { |