diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-08-04 12:46:57 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-05 08:09:59 +0000 |
| commit | 2cdd06f700e22243a0f92357f562eb4b13b7197a (patch) | |
| tree | 4ccf9f885dab23d66a53f2d4e7516cf7f3910756 /pp.c | |
| parent | e07e341956f18e57659bfd4ab6881a29bbc725c9 (diff) | |
| download | perl-2cdd06f700e22243a0f92357f562eb4b13b7197a.tar.gz | |
Deprecate /^/ implictly meaning /^/m.
To: Gurusamy Sarathy <gsar@activestate.com>
Cc: Tom Christiansen <tchrist@jhereg.perl.com>, chaimf@pobox.com,
ed@chronos.net, perl5-porters@perl.org
Subject: [PATCH 5.00557] split /^/
Message-ID: <19990804164657.A3776@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@3922
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -5007,7 +5007,13 @@ PP(pp_split) ++s; } } - else if (strEQ("^", rx->precomp)) { + else if (rx->prelen == 1 && *rx->precomp == '^') { + if (!(pm->op_pmflags & PMf_MULTILINE) + && !(pm->op_pmregexp->reganch & ROPT_WARNED)) { + if (ckWARN(WARN_DEPRECATED)) + warn("split /^/ better written as split /^/m"); + pm->op_pmregexp->reganch |= ROPT_WARNED; + } while (--limit) { /*SUPPRESS 530*/ for (m = s; m < strend && *m != '\n'; m++) ; |